From: dbs <dbs@6d9bc8c9-1ec2-4278-b937-99fde70a366f>
Date: Mon, 8 Nov 2010 20:37:05 +0000 (+0000)
Subject: Clean up unnecessary code in ResolverResolver's delete_cached_key function
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=7b2c31479c2eee7118e92663fbcb218a2cff84e0;p=contrib%2FConifer.git

Clean up unnecessary code in ResolverResolver's delete_cached_key function


git-svn-id: svn://svn.open-ils.org/ILS-Contrib/conifer/branches/rel_1_6_1@1061 6d9bc8c9-1ec2-4278-b937-99fde70a366f
---

diff --git a/src/perlmods/OpenILS/Application/ResolverResolver.pm b/src/perlmods/OpenILS/Application/ResolverResolver.pm
index cd868175d8..3463c1e9ef 100644
--- a/src/perlmods/OpenILS/Application/ResolverResolver.pm
+++ b/src/perlmods/OpenILS/Application/ResolverResolver.pm
@@ -246,7 +246,7 @@ Returns a list of raw JSON objects representing the full-text holdings for a giv
     }
 );
 
-# Add methods to clear cache for specific lookups?
+# Clear cache for specific lookups
 sub delete_cached_holdings {
     my $self = shift;
     my $conn = shift;
@@ -255,27 +255,15 @@ sub delete_cached_holdings {
     my $url_base = shift || $default_url_base; 
     my @deleted_keys;
 
-    # Big ugly SFX OpenURL request
-    my $url_args = '?url_ver=Z39.88-2004&url_ctx_fmt=infofi/fmt:kev:mtx:ctx&'
-        . 'ctx_enc=UTF-8&ctx_ver=Z39.88-2004&rfr_id=info:sid/conifer&'
-        . 'sfx.ignore_date_threshold=1&'
-        . 'sfx.response_type=multi_obj_detailed_xml&__service_type=getFullTxt';
-
-    if ($id_type eq 'issn') {
-        $url_args .= "&rft.issn=$id_value";
-    } elsif ($id_type eq 'isbn') {
-        $url_args .= "&rft.isbn=$id_value";
-    }
-    
     $logger->warn("Deleting value [$id_value]");
     # We'll use this in our cache key
     foreach my $method ('open-ils.resolver.resolve_holdings.raw', 'open-ils.resolver.resolve_holdings') {
         my $ckey = $prefix . $method . $url_base . $id_type . $id_value;
 
-	$logger->warn("Deleted cache key [$ckey]");
-	my $result = $cache->delete_cache($ckey);
+        $logger->warn("Deleted cache key [$ckey]");
+        my $result = $cache->delete_cache($ckey);
 
-	$logger->warn("Result of deleting cache key: [$result]");
+        $logger->warn("Result of deleting cache key: [$result]");
         push @deleted_keys, $result;
     }