[open-ils-commits] r9024 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher

[svn at svn.open-ils.org]

Author: miker
Date: 2008-03-14 16:59:28 -0400 (Fri, 14 Mar 2008)
New Revision: 9024

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/metabib.pm
Log:
returning the resulting $_ from map

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/metabib.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/metabib.pm	2008-03-14 20:32:45 UTC (rev 9023)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/metabib.pm	2008-03-14 20:59:28 UTC (rev 9024)
@@ -2416,13 +2416,13 @@
 	my $param_search_ou = $ou;
 	my $param_depth = $args{depth}; $param_depth = 'NULL' unless (defined($param_depth) and length($param_depth) > 0 );
     my $param_searches = OpenSRF::Utils::JSON->perl2JSON( \%stored_proc_search_args ); $param_searches =~ s/\$//go; $param_searches = '$$'.$param_searches.'$$';
-    my $param_statuses = '$${' . join(',', map { s/\$//go } @statuses) . '}$$';
-    my $param_audience = '$${' . join(',', map { s/\$//go } @aud) . '}$$';
-    my $param_language = '$${' . join(',', map { s/\$//go } @lang) . '}$$';
-    my $param_lit_form = '$${' . join(',', map { s/\$//go } @lit_form) . '}$$';
-    my $param_types = '$${' . join(',', map { s/\$//go } @types) . '}$$';
-    my $param_forms = '$${' . join(',', map { s/\$//go } @forms) . '}$$';
-    my $param_vformats = '$${' . join(',', map { s/\$//go } @vformats) . '}$$';
+    my $param_statuses = '$${' . join(',', map { s/\$//go; $_ } @statuses) . '}$$';
+    my $param_audience = '$${' . join(',', map { s/\$//go; $_ } @aud) . '}$$';
+    my $param_language = '$${' . join(',', map { s/\$//go; $_ } @lang) . '}$$';
+    my $param_lit_form = '$${' . join(',', map { s/\$//go; $_ } @lit_form) . '}$$';
+    my $param_types = '$${' . join(',', map { s/\$//go; $_ } @types) . '}$$';
+    my $param_forms = '$${' . join(',', map { s/\$//go; $_ } @forms) . '}$$';
+    my $param_vformats = '$${' . join(',', map { s/\$//go; $_ } @vformats) . '}$$';
 	my $param_pref_lang = $args{preferred_language}; $param_pref_lang =~ s/\$//go; $param_pref_lang = '$$'.$param_pref_lang.'$$';
 	my $param_pref_lang_multiplier = $args{preferred_language_weight}; $param_pref_lang_multiplier ||= 'NULL';
 	my $param_sort = $args{'sort'}; $param_sort =~ s/\$//go; $param_sort = '$$'.$param_sort.'$$';