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 cd86817..3463c1e 100644 (file)
--- 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;
     }