From bf568d428fd2f8626d0d46dded75eb09a6217a0f Mon Sep 17 00:00:00 2001 From: miker Date: Fri, 14 Mar 2008 20:59:28 +0000 Subject: [PATCH] returning the resulting $_ from map git-svn-id: svn://svn.open-ils.org/ILS/trunk@9024 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- .../Application/Storage/Publisher/metabib.pm | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/metabib.pm b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/metabib.pm index 30efda645e..9e06dc155a 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/metabib.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/metabib.pm @@ -2416,13 +2416,13 @@ sub staged_fts { 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.'$$'; -- 2.43.2