[open-ils-commits] r11183 - trunk/Open-ILS/src/perlmods/OpenILS/WWW

[svn at svn.open-ils.org]

Author: miker
Date: 2008-11-14 08:36:30 -0500 (Fri, 14 Nov 2008)
New Revision: 11183

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
Log:
stricter closure construction

Modified: trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm	2008-11-14 05:50:55 UTC (rev 11182)
+++ trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm	2008-11-14 13:36:30 UTC (rev 11183)
@@ -143,20 +143,25 @@
 		->request("open-ils.supercat.record.formats")
 		->gather(1);
 
-    for my $record_browse_format ( @$list ) {
-        for my $browse_axis ( qw/title author subject topic series/ ) {
-            $browse_types{$browse_axis}{$record_browse_format} = sub {
-            	my $record_list = shift;
-            	my $prev = shift;
-            	my $next = shift;
+    for my $browse_axis ( qw/title author subject topic series/ ) {
+        for my $record_browse_format ( @$list ) {
+            {
+                my $__f = $record_browse_format;
+                my $__a = $browse_axis;
 
-            	my $feed = create_record_feed( 'record', $record_browse_format, $record_list, undef, undef, 0 );
+                $browse_types{$__a}{$__f} = sub {
+                	my $record_list = shift;
+                	my $prev = shift;
+                	my $next = shift;
 
-            	return (
-                    "Content-type: ". $feed->type ."; charset=utf-8\n\n",
-                    $feed->toString
-                );
-            };
+                	my $feed = create_record_feed( 'record', $__f, $record_list, undef, undef, 0 );
+
+                	return (
+                        "Content-type: ". $feed->type ."; charset=utf-8\n\n",
+                        $feed->toString
+                    );
+                };
+            }
         }
     }
 }