From 70dd49752674fe50581aa5066ba78670c4a3adfd Mon Sep 17 00:00:00 2001 From: Marcel de Rooy Date: Tue, 12 May 2015 17:31:29 +0200 Subject: [PATCH] [PASSED QA] Bug 13437: Perltidy some plugin files before conversion Preliminary work before converting to new plugin style. Several files still contained tabs or had strange indentation. Perltidied: marc21_linking_section.pl Perltidied: marc21_field_007.pl Perltidied: marc21_leader_authorities.pl Perltidied: marc21_leader.pl Perltidied: marc21_leader_book.pl Perltidied: marc21_leader_computerfile.pl Perltidied: marc21_leader_video.pl Test plan: Run perltidy -pro=xt/perltidyrc on marc21_linking_section and compare. Try another one too :) Signed-off-by: Bernardo Gonzalez Kriegel Minor differences on comparison :) No errors Signed-off-by: Katrin Fischer --- cataloguing/value_builder/marc21_field_007.pl | 202 ++++---- cataloguing/value_builder/marc21_leader.pl | 78 ++-- .../value_builder/marc21_leader_authorities.pl | 74 +-- cataloguing/value_builder/marc21_leader_book.pl | 78 ++-- .../value_builder/marc21_leader_computerfile.pl | 78 ++-- cataloguing/value_builder/marc21_leader_video.pl | 78 ++-- .../value_builder/marc21_linking_section.pl | 519 ++++++++++----------- 7 files changed, 553 insertions(+), 554 deletions(-) diff --git a/cataloguing/value_builder/marc21_field_007.pl b/cataloguing/value_builder/marc21_field_007.pl index b5ba751..d65c33e 100755 --- a/cataloguing/value_builder/marc21_field_007.pl +++ b/cataloguing/value_builder/marc21_field_007.pl @@ -1,6 +1,5 @@ #!/usr/bin/perl - # Copyright 2000-2002 Katipo Communications # # This file is part of Koha. @@ -19,6 +18,7 @@ # along with Koha; if not, see . use strict; + #use warnings; FIXME - Bug 2505 use C4::Auth; use CGI qw ( -utf8 ); @@ -34,9 +34,9 @@ plugin_parameters : other parameters added when the plugin is called by the dopo =cut sub plugin_javascript { -my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; -my $function_name= $field_number; -my $res=" + my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_; + my $function_name = $field_number; + my $res = " "; -return ($function_name,$res); + return ( $function_name, $res ); } + sub plugin { -my ($input) = @_; - my $index= $input->param('index'); - my $result= $input->param('result'); - - - my $dbh = C4::Context->dbh; - -my ($template, $loggedinuser, $cookie) - = get_template_and_user({template_name => "cataloguing/value_builder/marc21_field_007.tt", - query => $input, - type => "intranet", - authnotrequired => 0, - flagsrequired => {editcatalogue => '*'}, - debug => 1, - }); - $result = "ta" unless $result; - my $f0 = substr($result,0,1); - my $f1 = substr($result,1,1); -#added new parameters to allow for all material types - my $f2 = substr($result,2,1); - my $f3 = substr($result,3,1); - my $f4 = substr($result,4,1); - my $f5 = substr($result,5,1); - my $f6 = substr($result,6,1); - my $f7 = substr($result,7,1); - my $f8 = substr($result,8,1); - my $f9 = substr($result,9,1); - my $f10 = substr($result,10,1); - my $f11 = substr($result,11,1); - my $f12 = substr($result,12,1); - my $f13 = substr($result,13,1); - my $f14 = substr($result,14,1); - my $f15 = substr($result,15,1); - my $f16 = substr($result,16,1); - my $f17 = substr($result,17,1); - my $f18 = substr($result,18,1); - my $f19 = substr($result,19,1); - my $f20 = substr($result,20,1); - my $f21 = substr($result,21,1); - my $f22 = substr($result,22,1); -#FIXME: There is probably a more-elegant way to do this! -#FIXME: Two of the material types treat position 06, 07, and 08 as a single -#three-char field. This script works fine for creating values and sending them -#back to the MARC, but if there is already a value in the 007, it won't send -#it properly to the value builder for those two instances. Not sure how to solve. - $template->param( index => $index, - f0 => $f0, - "f0$f0" => $f0, - f1 => $f1, - "f1$f1" => $f1, - f2 => $f2, - "f2$f2" => $f2, - f3 => $f3, - "f3$f3" => $f3, - f4 => $f4, - "f4$f4" => $f4, - f5 => $f5, - "f5$f5" => $f5, - f6 => $f6, - "f6$f6" => $f6, - f7 => $f7, - "f7$f7" => $f7, - f8 => $f8, - "f8$f8" => $f8, - f9 => $f9, - "f9$f9" => $f9, - f10 => $f10, - "f10$f10" => $f10, - f11 => $f11, - "f11$f11" => $f11, - f12 => $f12, - "f12$f12" => $f12, - f13 => $f13, - "f13$f13" => $f13, - f14 => $f14, - "f14$f14" => $f14, - f15 => $f15, - "f15$f15" => $f15, - f16 => $f16, - "f16$f16" => $f16, - f17 => $f17, - "f17$f17" => $f17, - f18 => $f18, - "f18$f18" => $f18, - f19 => $f19, - "f19$f19" => $f19, - f20 => $f20, - "f20$f20" => $f20, - f21 => $f21, - "f21$f21" => $f21, - f22 => $f22, - "f22$f22" => $f22, - ); - output_html_with_http_headers $input, $cookie, $template->output; + my ($input) = @_; + my $index = $input->param('index'); + my $result = $input->param('result'); + + my $dbh = C4::Context->dbh; + + my ( $template, $loggedinuser, $cookie ) = get_template_and_user( + { template_name => "cataloguing/value_builder/marc21_field_007.tt", + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => { editcatalogue => '*' }, + debug => 1, + } + ); + $result = "ta" unless $result; + my $f0 = substr( $result, 0, 1 ); + my $f1 = substr( $result, 1, 1 ); + + #added new parameters to allow for all material types + my $f2 = substr( $result, 2, 1 ); + my $f3 = substr( $result, 3, 1 ); + my $f4 = substr( $result, 4, 1 ); + my $f5 = substr( $result, 5, 1 ); + my $f6 = substr( $result, 6, 1 ); + my $f7 = substr( $result, 7, 1 ); + my $f8 = substr( $result, 8, 1 ); + my $f9 = substr( $result, 9, 1 ); + my $f10 = substr( $result, 10, 1 ); + my $f11 = substr( $result, 11, 1 ); + my $f12 = substr( $result, 12, 1 ); + my $f13 = substr( $result, 13, 1 ); + my $f14 = substr( $result, 14, 1 ); + my $f15 = substr( $result, 15, 1 ); + my $f16 = substr( $result, 16, 1 ); + my $f17 = substr( $result, 17, 1 ); + my $f18 = substr( $result, 18, 1 ); + my $f19 = substr( $result, 19, 1 ); + my $f20 = substr( $result, 20, 1 ); + my $f21 = substr( $result, 21, 1 ); + my $f22 = substr( $result, 22, 1 ); + + #FIXME: There is probably a more-elegant way to do this! + #FIXME: Two of the material types treat position 06, 07, and 08 as a single + #three-char field. This script works fine for creating values and sending them + #back to the MARC, but if there is already a value in the 007, it won't send + #it properly to the value builder for those two instances. Not sure how to solve. + $template->param( + index => $index, + f0 => $f0, + "f0$f0" => $f0, + f1 => $f1, + "f1$f1" => $f1, + f2 => $f2, + "f2$f2" => $f2, + f3 => $f3, + "f3$f3" => $f3, + f4 => $f4, + "f4$f4" => $f4, + f5 => $f5, + "f5$f5" => $f5, + f6 => $f6, + "f6$f6" => $f6, + f7 => $f7, + "f7$f7" => $f7, + f8 => $f8, + "f8$f8" => $f8, + f9 => $f9, + "f9$f9" => $f9, + f10 => $f10, + "f10$f10" => $f10, + f11 => $f11, + "f11$f11" => $f11, + f12 => $f12, + "f12$f12" => $f12, + f13 => $f13, + "f13$f13" => $f13, + f14 => $f14, + "f14$f14" => $f14, + f15 => $f15, + "f15$f15" => $f15, + f16 => $f16, + "f16$f16" => $f16, + f17 => $f17, + "f17$f17" => $f17, + f18 => $f18, + "f18$f18" => $f18, + f19 => $f19, + "f19$f19" => $f19, + f20 => $f20, + "f20$f20" => $f20, + f21 => $f21, + "f21$f21" => $f21, + f22 => $f22, + "f22$f22" => $f22, + ); + output_html_with_http_headers $input, $cookie, $template->output; } diff --git a/cataloguing/value_builder/marc21_leader.pl b/cataloguing/value_builder/marc21_leader.pl index 58c849e..4b49ae0 100755 --- a/cataloguing/value_builder/marc21_leader.pl +++ b/cataloguing/value_builder/marc21_leader.pl @@ -1,6 +1,5 @@ #!/usr/bin/perl - # Copyright 2000-2002 Katipo Communications # # This file is part of Koha. @@ -19,6 +18,7 @@ # along with Koha; if not, see . use strict; + #use warnings; FIXME - Bug 2505 use C4::Auth; use CGI qw ( -utf8 ); @@ -28,9 +28,9 @@ use C4::Search; use C4::Output; sub plugin_javascript { -my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; -my $function_name= $field_number; -my $res=" + my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_; + my $function_name = $field_number; + my $res = " "; -return ($function_name,$res); + return ( $function_name, $res ); } -sub plugin { -my ($input) = @_; - my $index= $input->param('index'); - my $result= $input->param('result'); +sub plugin { + my ($input) = @_; + my $index = $input->param('index'); + my $result = $input->param('result'); - my $dbh = C4::Context->dbh; + my $dbh = C4::Context->dbh; -my ($template, $loggedinuser, $cookie) - = get_template_and_user({template_name => "cataloguing/value_builder/marc21_leader.tt", - query => $input, - type => "intranet", - authnotrequired => 0, - flagsrequired => {editcatalogue => '*'}, - debug => 1, - }); - $result = " nam a22 7a 4500" unless $result; - my $f5 = substr($result,5,1); - my $f6 = substr($result,6,1); - my $f7 = substr($result,7,1); - my $f8 = substr($result,8,1); - my $f17 = substr($result,17,1); - my $f18 = substr($result,18,1); - my $f19 = substr($result,19,1); - my $f2023 = substr($result,20,4); - $template->param(index => $index, - "f5$f5" => 1, - "f6$f6" => 1, - "f7$f7" => 1, - "f8$f8" => 1, - "f17$f17" => 1, - "f18$f18" => 1, - "f19$f19" => 1, - "f2023" => $f2023, - ); - output_html_with_http_headers $input, $cookie, $template->output; + my ( $template, $loggedinuser, $cookie ) = get_template_and_user( + { template_name => "cataloguing/value_builder/marc21_leader.tt", + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => { editcatalogue => '*' }, + debug => 1, + } + ); + $result = " nam a22 7a 4500" unless $result; + my $f5 = substr( $result, 5, 1 ); + my $f6 = substr( $result, 6, 1 ); + my $f7 = substr( $result, 7, 1 ); + my $f8 = substr( $result, 8, 1 ); + my $f17 = substr( $result, 17, 1 ); + my $f18 = substr( $result, 18, 1 ); + my $f19 = substr( $result, 19, 1 ); + my $f2023 = substr( $result, 20, 4 ); + $template->param( + index => $index, + "f5$f5" => 1, + "f6$f6" => 1, + "f7$f7" => 1, + "f8$f8" => 1, + "f17$f17" => 1, + "f18$f18" => 1, + "f19$f19" => 1, + "f2023" => $f2023, + ); + output_html_with_http_headers $input, $cookie, $template->output; } diff --git a/cataloguing/value_builder/marc21_leader_authorities.pl b/cataloguing/value_builder/marc21_leader_authorities.pl index 57c1d93..15e31ff 100755 --- a/cataloguing/value_builder/marc21_leader_authorities.pl +++ b/cataloguing/value_builder/marc21_leader_authorities.pl @@ -1,6 +1,5 @@ #!/usr/bin/perl - # Copyright 2000-2002 Katipo Communications # # This file is part of Koha. @@ -19,6 +18,7 @@ # along with Koha; if not, see . use strict; + #use warnings; FIXME - Bug 2505 use C4::Auth; use CGI qw ( -utf8 ); @@ -28,9 +28,9 @@ use C4::Search; use C4::Output; sub plugin_javascript { -my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; -my $function_name= $field_number; -my $res=" + my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_; + my $function_name = $field_number; + my $res = " "; -return ($function_name,$res); + return ( $function_name, $res ); } -sub plugin { -my ($input) = @_; - my $index= $input->param('index'); - my $result= $input->param('result'); +sub plugin { + my ($input) = @_; + my $index = $input->param('index'); + my $result = $input->param('result'); - my $dbh = C4::Context->dbh; + my $dbh = C4::Context->dbh; -my ($template, $loggedinuser, $cookie) - = get_template_and_user({template_name => "cataloguing/value_builder/marc21_leader_authorities.tt", - query => $input, - type => "intranet", - authnotrequired => 0, - flagsrequired => {editcatalogue => '*'}, - debug => 1, - }); - $result = " nz a22 n 4500" unless $result; - my $f5 = substr($result,5,1); - my $f6 = substr($result,6,1); - my $f7 = substr($result,7,1); - my $f8 = substr($result,8,1); - my $f9 = substr($result,9,1); - my $f17 = substr($result,17,1); - my $f2023 = substr($result,20,4); - $template->param(index => $index, - "f5$f5" => 1, - "f6$f6" => 1, - "f7$f7" => 1, - "f8$f8" => 1, - "f9$f9" => 1, - "f17$f17" => 1, - "f2023" => $f2023, - ); - output_html_with_http_headers $input, $cookie, $template->output; + my ( $template, $loggedinuser, $cookie ) = get_template_and_user( + { template_name => "cataloguing/value_builder/marc21_leader_authorities.tt", + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => { editcatalogue => '*' }, + debug => 1, + } + ); + $result = " nz a22 n 4500" unless $result; + my $f5 = substr( $result, 5, 1 ); + my $f6 = substr( $result, 6, 1 ); + my $f7 = substr( $result, 7, 1 ); + my $f8 = substr( $result, 8, 1 ); + my $f9 = substr( $result, 9, 1 ); + my $f17 = substr( $result, 17, 1 ); + my $f2023 = substr( $result, 20, 4 ); + $template->param( + index => $index, + "f5$f5" => 1, + "f6$f6" => 1, + "f7$f7" => 1, + "f8$f8" => 1, + "f9$f9" => 1, + "f17$f17" => 1, + "f2023" => $f2023, + ); + output_html_with_http_headers $input, $cookie, $template->output; } diff --git a/cataloguing/value_builder/marc21_leader_book.pl b/cataloguing/value_builder/marc21_leader_book.pl index 477fc95..45aeb70 100755 --- a/cataloguing/value_builder/marc21_leader_book.pl +++ b/cataloguing/value_builder/marc21_leader_book.pl @@ -1,6 +1,5 @@ #!/usr/bin/perl - # Copyright 2000-2002 Katipo Communications # # This file is part of Koha. @@ -19,6 +18,7 @@ # along with Koha; if not, see . use strict; + #use warnings; FIXME - Bug 2505 use C4::Auth; use CGI qw ( -utf8 ); @@ -28,9 +28,9 @@ use C4::Search; use C4::Output; sub plugin_javascript { -my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; -my $function_name= $field_number; -my $res=" + my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_; + my $function_name = $field_number; + my $res = " "; -return ($function_name,$res); + return ( $function_name, $res ); } -sub plugin { -my ($input) = @_; - my $index= $input->param('index'); - my $result= $input->param('result'); +sub plugin { + my ($input) = @_; + my $index = $input->param('index'); + my $result = $input->param('result'); - my $dbh = C4::Context->dbh; + my $dbh = C4::Context->dbh; -my ($template, $loggedinuser, $cookie) - = get_template_and_user({template_name => "cataloguing/value_builder/marc21_leader.tt", - query => $input, - type => "intranet", - authnotrequired => 0, - flagsrequired => {editcatalogue => '*'}, - debug => 1, - }); - $result = " nam 7a " unless $result; - my $f5 = substr($result,5,1); - my $f6 = substr($result,6,1); - my $f7 = substr($result,7,1); - my $f8 = substr($result,8,1); - my $f9 = substr($result,9,1); - my $f17 = substr($result,17,1); - my $f18 = substr($result,18,1); - my $f19 = substr($result,19,1); + my ( $template, $loggedinuser, $cookie ) = get_template_and_user( + { template_name => "cataloguing/value_builder/marc21_leader.tt", + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => { editcatalogue => '*' }, + debug => 1, + } + ); + $result = " nam 7a " unless $result; + my $f5 = substr( $result, 5, 1 ); + my $f6 = substr( $result, 6, 1 ); + my $f7 = substr( $result, 7, 1 ); + my $f8 = substr( $result, 8, 1 ); + my $f9 = substr( $result, 9, 1 ); + my $f17 = substr( $result, 17, 1 ); + my $f18 = substr( $result, 18, 1 ); + my $f19 = substr( $result, 19, 1 ); - $template->param(index => $index, - "f5$f5" => 1, - "f6$f6" => 1, - "f7$f7" => 1, - "f8$f8" => 1, - "f9$f9" => 1, - "f17$f17" => 1, - "f18$f18" => 1, - "f19$f19" => 1, - ); - output_html_with_http_headers $input, $cookie, $template->output; + $template->param( + index => $index, + "f5$f5" => 1, + "f6$f6" => 1, + "f7$f7" => 1, + "f8$f8" => 1, + "f9$f9" => 1, + "f17$f17" => 1, + "f18$f18" => 1, + "f19$f19" => 1, + ); + output_html_with_http_headers $input, $cookie, $template->output; } diff --git a/cataloguing/value_builder/marc21_leader_computerfile.pl b/cataloguing/value_builder/marc21_leader_computerfile.pl index f49debe..9dc90c7 100755 --- a/cataloguing/value_builder/marc21_leader_computerfile.pl +++ b/cataloguing/value_builder/marc21_leader_computerfile.pl @@ -1,6 +1,5 @@ #!/usr/bin/perl - # Copyright 2000-2002 Katipo Communications # # This file is part of Koha. @@ -19,6 +18,7 @@ # along with Koha; if not, see . use strict; + #use warnings; FIXME - Bug 2505 use C4::Auth; use CGI qw ( -utf8 ); @@ -28,9 +28,9 @@ use C4::Search; use C4::Output; sub plugin_javascript { -my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; -my $function_name= $field_number; -my $res=" + my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_; + my $function_name = $field_number; + my $res = " "; -return ($function_name,$res); + return ( $function_name, $res ); } -sub plugin { -my ($input) = @_; - my $index= $input->param('index'); - my $result= $input->param('result'); +sub plugin { + my ($input) = @_; + my $index = $input->param('index'); + my $result = $input->param('result'); - my $dbh = C4::Context->dbh; + my $dbh = C4::Context->dbh; -my ($template, $loggedinuser, $cookie) - = get_template_and_user({template_name => "cataloguing/value_builder/marc21_leader_computerfile.tt", - query => $input, - type => "intranet", - authnotrequired => 0, - flagsrequired => {editcatalogue => '*'}, - debug => 1, - }); - $result = " nmm 7a " unless $result; - my $f5 = substr($result,5,1); - my $f6 = substr($result,6,1); - my $f7 = substr($result,7,1); - my $f8 = substr($result,8,1); - my $f9 = substr($result,9,1); - my $f17 = substr($result,17,1); - my $f18 = substr($result,18,1); - my $f19 = substr($result,19,1); + my ( $template, $loggedinuser, $cookie ) = get_template_and_user( + { template_name => "cataloguing/value_builder/marc21_leader_computerfile.tt", + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => { editcatalogue => '*' }, + debug => 1, + } + ); + $result = " nmm 7a " unless $result; + my $f5 = substr( $result, 5, 1 ); + my $f6 = substr( $result, 6, 1 ); + my $f7 = substr( $result, 7, 1 ); + my $f8 = substr( $result, 8, 1 ); + my $f9 = substr( $result, 9, 1 ); + my $f17 = substr( $result, 17, 1 ); + my $f18 = substr( $result, 18, 1 ); + my $f19 = substr( $result, 19, 1 ); - $template->param(index => $index, - "f5$f5" => 1, - "f6$f6" => 1, - "f7$f7" => 1, - "f8$f8" => 1, - "f9$f9" => 1, - "f17$f17" => 1, - "f18$f18" => 1, - "f19$f19" => 1, - ); - output_html_with_http_headers $input, $cookie, $template->output; + $template->param( + index => $index, + "f5$f5" => 1, + "f6$f6" => 1, + "f7$f7" => 1, + "f8$f8" => 1, + "f9$f9" => 1, + "f17$f17" => 1, + "f18$f18" => 1, + "f19$f19" => 1, + ); + output_html_with_http_headers $input, $cookie, $template->output; } diff --git a/cataloguing/value_builder/marc21_leader_video.pl b/cataloguing/value_builder/marc21_leader_video.pl index 7c761aa..7edc5f6 100755 --- a/cataloguing/value_builder/marc21_leader_video.pl +++ b/cataloguing/value_builder/marc21_leader_video.pl @@ -1,6 +1,5 @@ #!/usr/bin/perl - # Copyright 2000-2002 Katipo Communications # # This file is part of Koha. @@ -19,6 +18,7 @@ # along with Koha; if not, see . use strict; + #use warnings; FIXME - Bug 2505 use C4::Auth; use CGI qw ( -utf8 ); @@ -28,9 +28,9 @@ use C4::Search; use C4::Output; sub plugin_javascript { -my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; -my $function_name= $field_number; -my $res=" + my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_; + my $function_name = $field_number; + my $res = " "; -return ($function_name,$res); + return ( $function_name, $res ); } -sub plugin { -my ($input) = @_; - my $index= $input->param('index'); - my $result= $input->param('result'); +sub plugin { + my ($input) = @_; + my $index = $input->param('index'); + my $result = $input->param('result'); - my $dbh = C4::Context->dbh; + my $dbh = C4::Context->dbh; -my ($template, $loggedinuser, $cookie) - = get_template_and_user({template_name => "cataloguing/value_builder/marc21_leader.tt", - query => $input, - type => "intranet", - authnotrequired => 0, - flagsrequired => {editcatalogue => '*'}, - debug => 1, - }); - $result = " ngm 7a " unless $result; - my $f5 = substr($result,5,1); - my $f6 = substr($result,6,1); - my $f7 = substr($result,7,1); - my $f8 = substr($result,8,1); - my $f9 = substr($result,9,1); - my $f17 = substr($result,17,1); - my $f18 = substr($result,18,1); - my $f19 = substr($result,19,1); + my ( $template, $loggedinuser, $cookie ) = get_template_and_user( + { template_name => "cataloguing/value_builder/marc21_leader.tt", + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => { editcatalogue => '*' }, + debug => 1, + } + ); + $result = " ngm 7a " unless $result; + my $f5 = substr( $result, 5, 1 ); + my $f6 = substr( $result, 6, 1 ); + my $f7 = substr( $result, 7, 1 ); + my $f8 = substr( $result, 8, 1 ); + my $f9 = substr( $result, 9, 1 ); + my $f17 = substr( $result, 17, 1 ); + my $f18 = substr( $result, 18, 1 ); + my $f19 = substr( $result, 19, 1 ); - $template->param(index => $index, - "f5$f5" => 1, - "f6$f6" => 1, - "f7$f7" => 1, - "f8$f8" => 1, - "f9$f9" => 1, - "f17$f17" => 1, - "f18$f18" => 1, - "f19$f19" => 1, - ); - output_html_with_http_headers $input, $cookie, $template->output; + $template->param( + index => $index, + "f5$f5" => 1, + "f6$f6" => 1, + "f7$f7" => 1, + "f8$f8" => 1, + "f9$f9" => 1, + "f17$f17" => 1, + "f18$f18" => 1, + "f19$f19" => 1, + ); + output_html_with_http_headers $input, $cookie, $template->output; } diff --git a/cataloguing/value_builder/marc21_linking_section.pl b/cataloguing/value_builder/marc21_linking_section.pl index 8407ace..723840f 100644 --- a/cataloguing/value_builder/marc21_linking_section.pl +++ b/cataloguing/value_builder/marc21_linking_section.pl @@ -34,9 +34,9 @@ use C4::Branch; use C4::ItemType; sub plugin_javascript { - my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_; - my $function_name = $field_number; - my $res = " + my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_; + my $function_name = $field_number; + my $res = "