From 56202090a365dc755e8da1e8403262a20fdd5b17 Mon Sep 17 00:00:00 2001 From: miker Date: Fri, 14 Nov 2008 13:36:30 +0000 Subject: [PATCH] stricter closure construction git-svn-id: svn://svn.open-ils.org/ILS/trunk@11183 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm | 33 +++++++++++++++------------ 1 file changed, 19 insertions(+), 14 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm b/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm index d720483f49..d89761304a 100644 --- a/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm +++ b/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm @@ -143,20 +143,25 @@ sub child_init { ->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; - - my $feed = create_record_feed( 'record', $record_browse_format, $record_list, undef, undef, 0 ); - - return ( - "Content-type: ". $feed->type ."; charset=utf-8\n\n", - $feed->toString - ); - }; + 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; + + $browse_types{$__a}{$__f} = sub { + my $record_list = shift; + my $prev = shift; + my $next = shift; + + my $feed = create_record_feed( 'record', $__f, $record_list, undef, undef, 0 ); + + return ( + "Content-type: ". $feed->type ."; charset=utf-8\n\n", + $feed->toString + ); + }; + } } } } -- 2.11.0