[open-ils-commits] r1061 - conifer/branches/rel_1_6_1/src/perlmods/OpenILS/Application (dbs)

[svn at svn.open-ils.org]

Author: dbs
Date: 2010-11-08 15:37:05 -0500 (Mon, 08 Nov 2010)
New Revision: 1061

Modified:
   conifer/branches/rel_1_6_1/src/perlmods/OpenILS/Application/ResolverResolver.pm
Log:
Clean up unnecessary code in ResolverResolver's delete_cached_key function


Modified: conifer/branches/rel_1_6_1/src/perlmods/OpenILS/Application/ResolverResolver.pm
===================================================================
--- conifer/branches/rel_1_6_1/src/perlmods/OpenILS/Application/ResolverResolver.pm	2010-11-08 18:13:02 UTC (rev 1060)
+++ conifer/branches/rel_1_6_1/src/perlmods/OpenILS/Application/ResolverResolver.pm	2010-11-08 20:37:05 UTC (rev 1061)
@@ -246,7 +246,7 @@
     }
 );
 
-# 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 @@
     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;
     }