From 3731406592418b17c38a4c1a49858474ddd26352 Mon Sep 17 00:00:00 2001 From: toins Date: Tue, 31 Jul 2007 16:06:21 +0000 Subject: [PATCH] plugin rewrited to works with addbiblio. NOTE : Unimarc plugins has been fully tested but not MARC21 one. Unimarc plugins respect the norme now. --- cataloguing/value_builder/marc21_field_003.pl | 3 +- cataloguing/value_builder/marc21_field_005.pl | 7 +- cataloguing/value_builder/marc21_field_006.pl | 6 +- cataloguing/value_builder/marc21_field_007.pl | 7 +- cataloguing/value_builder/marc21_field_008.pl | 9 +- .../marc21_field_008_authorities.pl | 9 +- .../value_builder/marc21_field_040c.pl | 5 +- .../value_builder/marc21_field_040d.pl | 5 +- cataloguing/value_builder/marc21_leader.pl | 18 +- .../marc21_leader_authorities.pl | 4 +- .../value_builder/marc21_leader_book.pl | 6 +- .../marc21_leader_computerfile.pl | 6 +- .../value_builder/marc21_leader_video.pl | 4 +- .../value_builder/unimarc_field_100.pl | 40 +- .../value_builder/unimarc_field_105.pl | 84 +-- .../value_builder/unimarc_field_106.pl | 13 +- .../value_builder/unimarc_field_110.pl | 64 +- .../value_builder/unimarc_field_115a.pl | 156 ++-- .../value_builder/unimarc_field_115b.pl | 109 +-- .../value_builder/unimarc_field_116.pl | 114 +-- .../value_builder/unimarc_field_117.pl | 13 +- .../value_builder/unimarc_field_120.pl | 6 +- .../value_builder/unimarc_field_121a.pl | 6 +- .../value_builder/unimarc_field_121b.pl | 6 +- .../value_builder/unimarc_field_122.pl | 7 +- .../value_builder/unimarc_field_123a.pl | 10 +- .../value_builder/unimarc_field_123d.pl | 6 +- .../value_builder/unimarc_field_123e.pl | 6 +- .../value_builder/unimarc_field_123f.pl | 6 +- .../value_builder/unimarc_field_123g.pl | 6 +- .../value_builder/unimarc_field_123i.pl | 6 +- .../value_builder/unimarc_field_123j.pl | 57 +- .../value_builder/unimarc_field_124.pl | 6 +- .../value_builder/unimarc_field_124a.pl | 6 +- .../value_builder/unimarc_field_124b.pl | 6 +- .../value_builder/unimarc_field_124c.pl | 7 +- .../value_builder/unimarc_field_124d.pl | 6 +- .../value_builder/unimarc_field_124e.pl | 6 +- .../value_builder/unimarc_field_124f.pl | 6 +- .../value_builder/unimarc_field_124g.pl | 6 +- .../value_builder/unimarc_field_125.pl | 6 +- .../value_builder/unimarc_field_125a.pl | 26 +- .../value_builder/unimarc_field_125b.pl | 6 +- .../value_builder/unimarc_field_126.pl | 6 +- .../value_builder/unimarc_field_126a.pl | 6 +- .../value_builder/unimarc_field_126b.pl | 6 +- .../value_builder/unimarc_field_127.pl | 6 +- .../value_builder/unimarc_field_128a.pl | 6 +- .../value_builder/unimarc_field_128b.pl | 6 +- .../value_builder/unimarc_field_128c.pl | 7 +- .../value_builder/unimarc_field_130.pl | 7 +- .../value_builder/unimarc_field_135a.pl | 6 +- .../value_builder/unimarc_field_140.pl | 7 +- .../value_builder/unimarc_field_141.pl | 6 +- .../value_builder/unimarc_field_210c.pl | 4 +- .../value_builder/unimarc_field_225a.pl | 231 +++--- .../value_builder/unimarc_field_4XX.pl | 678 +++++++++++------- .../value_builder/unimarc_field_60X.pl | 168 +++-- .../value_builder/unimarc_field_700-4.pl | 4 +- .../unimarc_field_700_701_702.pl | 6 +- cataloguing/value_builder/unimarc_leader.pl | 92 +-- .../value_builder/unimarc_field_100.tmpl | 456 ++++++------ .../value_builder/unimarc_field_105.tmpl | 331 ++++----- .../value_builder/unimarc_field_106.tmpl | 20 +- .../value_builder/unimarc_field_110.tmpl | 179 ++--- .../value_builder/unimarc_field_115a.tmpl | 348 +++------ .../value_builder/unimarc_field_115b.tmpl | 145 ++-- .../value_builder/unimarc_field_116.tmpl | 321 +++++---- .../value_builder/unimarc_field_117.tmpl | 73 +- .../value_builder/unimarc_field_120.tmpl | 156 +--- .../value_builder/unimarc_field_121a.tmpl | 90 +-- .../value_builder/unimarc_field_121b.tmpl | 46 +- .../value_builder/unimarc_field_122.tmpl | 85 +-- .../value_builder/unimarc_field_123a.tmpl | 18 +- .../value_builder/unimarc_field_123d.tmpl | 33 +- .../value_builder/unimarc_field_123e.tmpl | 33 +- .../value_builder/unimarc_field_123f.tmpl | 37 +- .../value_builder/unimarc_field_123g.tmpl | 32 +- .../value_builder/unimarc_field_124a.tmpl | 18 +- .../value_builder/unimarc_field_124b.tmpl | 19 +- .../value_builder/unimarc_field_124c.tmpl | 18 +- .../value_builder/unimarc_field_124d.tmpl | 17 +- .../value_builder/unimarc_field_124e.tmpl | 20 +- .../value_builder/unimarc_field_124f.tmpl | 17 +- .../value_builder/unimarc_field_124g.tmpl | 18 +- .../value_builder/unimarc_field_125a.tmpl | 25 +- .../value_builder/unimarc_field_125b.tmpl | 19 +- .../value_builder/unimarc_field_126a.tmpl | 100 +-- .../value_builder/unimarc_field_126b.tmpl | 22 +- .../value_builder/unimarc_field_127.tmpl | 5 +- .../value_builder/unimarc_field_128a.tmpl | 21 +- .../value_builder/unimarc_field_128b.tmpl | 16 +- .../value_builder/unimarc_field_128c.tmpl | 18 +- .../value_builder/unimarc_field_130.tmpl | 58 +- .../value_builder/unimarc_field_135a.tmpl | 17 +- .../value_builder/unimarc_field_140.tmpl | 164 +++-- .../value_builder/unimarc_field_141.tmpl | 71 +- .../value_builder/unimarc_field_210c.tmpl | 6 +- .../value_builder/unimarc_field_225a.tmpl | 39 +- .../value_builder/unimarc_field_4XX.tmpl | 332 ++++----- .../value_builder/unimarc_field_60X.tmpl | 34 +- .../value_builder/unimarc_field_700-4.tmpl | 9 +- .../value_builder/unimarc_leader.tmpl | 90 ++- 103 files changed, 2714 insertions(+), 3005 deletions(-) diff --git a/cataloguing/value_builder/marc21_field_003.pl b/cataloguing/value_builder/marc21_field_003.pl index 84ace02941..53780b8be7 100755 --- a/cataloguing/value_builder/marc21_field_003.pl +++ b/cataloguing/value_builder/marc21_field_003.pl @@ -55,7 +55,7 @@ the 3 scripts are inserted after the in the html code =cut sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; -my $function_name= "003".(int(rand(100000))+1); +my $function_name= $field_number; # find today's date my $org = C4::Context->preference('MARCOrgCode'); @@ -66,6 +66,7 @@ function Blur$function_name(index) { } function Focus$function_name(subfield_managed) { + // TODO FIXME :: HTML code has changed for (i=0 ; i in the html code =cut sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; -my $function_name= "210c".(int(rand(100000))+1); +my $function_name= $field_number; # find today's date -my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = - localtime(time); +my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); $year +=1900; $mon +=1; if (length($mon)==1) { @@ -88,6 +87,8 @@ function Blur$function_name(index) { } function Focus$function_name(subfield_managed) { + // TODO FIXME :: HTML code has changed + for (i=0 ; i diff --git a/cataloguing/value_builder/marc21_field_007.pl b/cataloguing/value_builder/marc21_field_007.pl index 2aaec6f5c1..ad3ca89908 100755 --- a/cataloguing/value_builder/marc21_field_007.pl +++ b/cataloguing/value_builder/marc21_field_007.pl @@ -33,6 +33,7 @@ use C4::Output; plugin_parameters : other parameters added when the plugin is called by the dopop function =cut + sub plugin_parameters { my ($dbh,$record,$tagslib,$i,$tabloop) = @_; return ""; @@ -40,7 +41,7 @@ return ""; sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; -my $function_name= "100".(int(rand(100000))+1); +my $function_name= $field_number; my $res=" diff --git a/cataloguing/value_builder/marc21_field_008.pl b/cataloguing/value_builder/marc21_field_008.pl index 546e78f4a7..b2705ea4f8 100755 --- a/cataloguing/value_builder/marc21_field_008.pl +++ b/cataloguing/value_builder/marc21_field_008.pl @@ -33,6 +33,7 @@ use C4::Output; plugin_parameters : other parameters added when the plugin is called by the dopop function =cut + # find today's date my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); @@ -45,10 +46,12 @@ sub plugin_parameters { sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; - my $function_name= "100".(int(rand(100000))+1); + my $function_name= $field_number; my $res=" diff --git a/cataloguing/value_builder/marc21_field_008_authorities.pl b/cataloguing/value_builder/marc21_field_008_authorities.pl index d7839cb1d4..0c53434c11 100755 --- a/cataloguing/value_builder/marc21_field_008_authorities.pl +++ b/cataloguing/value_builder/marc21_field_008_authorities.pl @@ -33,8 +33,7 @@ plugin_parameters : other parameters added when the plugin is called by the dopo =cut # find today's date -my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = - localtime(time); +my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); $year = substr($year,1,2); $mon +=1; my $date = "$year-$mon-$mday"; @@ -53,7 +52,7 @@ return ""; sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; -my $function_name= "100".(int(rand(100000))+1); +my $function_name= $field_number; my $res=" diff --git a/cataloguing/value_builder/marc21_field_040c.pl b/cataloguing/value_builder/marc21_field_040c.pl index 46b14f069c..adf68fbddf 100755 --- a/cataloguing/value_builder/marc21_field_040c.pl +++ b/cataloguing/value_builder/marc21_field_040c.pl @@ -35,6 +35,7 @@ use C4::Koha; plugin_parameters : other parameters added when the plugin is called by the dopop function =cut + sub plugin_parameters { my ($dbh,$record,$tagslib,$i,$tabloop) = @_; return ""; @@ -56,7 +57,7 @@ the 3 scripts are inserted after the in the html code =cut sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; -my $function_name= "003".(int(rand(100000))+1); +my $function_name= $field_number; # find today's date my $org = C4::Context->preference('MARCOrgCode'); @@ -67,6 +68,8 @@ function Blur$function_name(index) { } function Focus$function_name(subfield_managed) { + // TODO FIXME :: HTML code has changed + for (i=0 ; i in the html code =cut sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; -my $function_name= "003".(int(rand(100000))+1); +my $function_name= $field_number; # find today's date my $org = C4::Context->preference('MARCOrgCode'); @@ -67,6 +68,8 @@ function Blur$function_name(index) { } function Focus$function_name(subfield_managed) { + // TODO FIXME :: HTML code has changed + for (i=0 ; i diff --git a/cataloguing/value_builder/marc21_leader_authorities.pl b/cataloguing/value_builder/marc21_leader_authorities.pl index beb655a3f2..7784f8edf4 100755 --- a/cataloguing/value_builder/marc21_leader_authorities.pl +++ b/cataloguing/value_builder/marc21_leader_authorities.pl @@ -39,7 +39,7 @@ return ""; sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; -my $function_name= "100".(int(rand(100000))+1); +my $function_name= $field_number; my $res=" diff --git a/cataloguing/value_builder/marc21_leader_computerfile.pl b/cataloguing/value_builder/marc21_leader_computerfile.pl index 669a87bdf6..81df209016 100755 --- a/cataloguing/value_builder/marc21_leader_computerfile.pl +++ b/cataloguing/value_builder/marc21_leader_computerfile.pl @@ -39,7 +39,7 @@ return ""; sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; -my $function_name= "100".(int(rand(100000))+1); +my $function_name= $field_number; my $res=" diff --git a/cataloguing/value_builder/marc21_leader_video.pl b/cataloguing/value_builder/marc21_leader_video.pl index c5d03121d7..6be559f245 100755 --- a/cataloguing/value_builder/marc21_leader_video.pl +++ b/cataloguing/value_builder/marc21_leader_video.pl @@ -39,7 +39,7 @@ return ""; sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; -my $function_name= "100".(int(rand(100000))+1); +my $function_name= $field_number; my $res=" + "; - return ( $function_name, $res ); + return ( $field_number, $res ); } sub plugin { diff --git a/cataloguing/value_builder/unimarc_field_105.pl b/cataloguing/value_builder/unimarc_field_105.pl index 332d60c171..2f29e11d1d 100755 --- a/cataloguing/value_builder/unimarc_field_105.pl +++ b/cataloguing/value_builder/unimarc_field_105.pl @@ -32,42 +32,43 @@ use C4::Output; plugin_parameters : other parameters added when the plugin is called by the dopop function =cut + sub plugin_parameters { -my ($dbh,$record,$tagslib,$i,$tabloop) = @_; -return ""; + my ($dbh,$record,$tagslib,$i,$tabloop) = @_; + return ""; } sub plugin_javascript { -my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; -my $function_name= "105".(int(rand(100000))+1); -my $res=" - + "; + + return ($field_number,$res); } -function Clic$function_name(i) { - defaultvalue=document.forms['f'].field_value[i].value; - newin=window.open(\"plugin_launcher.pl?plugin_name=unimarc_field_105.pl&index=\"+i+\"&result=\"+defaultvalue,\"unimarc field 105\",'width=1200,height=400,toolbar=false,scrollbars=yes'); - -} - -"; - -return ($function_name,$res); -} sub plugin { -my ($input) = @_; - my $index= $input->param('index'); - my $result= $input->param('result'); + my ($input) = @_; + my $index= $input->param('index'); + my $result= $input->param('result'); - my $dbh = C4::Context->dbh; -my ($template, $loggedinuser, $cookie) + my $dbh = C4::Context->dbh; + my ($template, $loggedinuser, $cookie) = get_template_and_user({template_name => "cataloguing/value_builder/unimarc_field_105.tmpl", query => $input, type => "intranet", @@ -90,21 +91,22 @@ my ($template, $loggedinuser, $cookie) my $f11 = substr($result,10,1); my $f12 = substr($result,11,1); my $f13 = substr($result,12,1); + $template->param(index => $index, - "f1$f1" => 1, - "f2$f2" => 1, - "f3$f3" => 1, - "f4$f4" => 1, - "f5$f5" => 1, - "f6$f6" => 1, - "f7$f7" => 1, - "f8$f8" => 1, - "f9$f9" => 1, - "f10$f10" => 1, - "f11$f11" => 1, - "f12$f12" => 1, - "f13$f13" => 1 - ); + "f1$f1" => 1, + "f2$f2" => 1, + "f3$f3" => 1, + "f4$f4" => 1, + "f5$f5" => 1, + "f6$f6" => 1, + "f7$f7" => 1, + "f8$f8" => 1, + "f9$f9" => 1, + "f10$f10" => 1, + "f11$f11" => 1, + "f12$f12" => 1, + "f13$f13" => 1 + ); output_html_with_http_headers $input, $cookie, $template->output; } diff --git a/cataloguing/value_builder/unimarc_field_106.pl b/cataloguing/value_builder/unimarc_field_106.pl index 174c99af4e..5723db977d 100755 --- a/cataloguing/value_builder/unimarc_field_106.pl +++ b/cataloguing/value_builder/unimarc_field_106.pl @@ -42,30 +42,29 @@ my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; my $function_name= "106".(int(rand(100000))+1); my $res=" "; -return ($function_name,$res); +return ($field_number,$res); } sub plugin { my ($input) = @_; my $index= $input->param('index'); my $result= $input->param('result'); -warn ("Je suis quand meme ici\n"); my $dbh = C4::Context->dbh; my ($template, $loggedinuser, $cookie) = get_template_and_user({template_name => "cataloguing/value_builder/unimarc_field_106.tmpl", diff --git a/cataloguing/value_builder/unimarc_field_110.pl b/cataloguing/value_builder/unimarc_field_110.pl index cc6643854b..21f9641748 100755 --- a/cataloguing/value_builder/unimarc_field_110.pl +++ b/cataloguing/value_builder/unimarc_field_110.pl @@ -32,33 +32,33 @@ use C4::Output; plugin_parameters : other parameters added when the plugin is called by the dopop function =cut + sub plugin_parameters { -my ($dbh,$record,$tagslib,$i,$tabloop) = @_; -return ""; + my ($dbh,$record,$tagslib,$i,$tabloop) = @_; + return ""; } sub plugin_javascript { -my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; -my $function_name= "110".(int(rand(100000))+1); -my $res=" - -"; - -return ($function_name,$res); + my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; + my $res=" + + "; + + return ($field_number,$res); } sub plugin { my ($input) = @_; @@ -85,15 +85,15 @@ my ($template, $loggedinuser, $cookie) my $f9 = substr($result,10,1); $template->param(index => $index, - "f1$f1" => 1, - "f2$f2" => 1, - "f3$f3" => 1, - "f4$f4" => 1, - f5 => $f5, - "f6$f6" => 1, - "f7$f7" => 1, - "f8$f8" => 1, - "f9$f9" => 1 + "f1$f1" => 1, + "f2$f2" => 1, + "f3$f3" => 1, + "f4$f4" => 1, + f5 => $f5, + "f6$f6" => 1, + "f7$f7" => 1, + "f8$f8" => 1, + "f9$f9" => 1 ); output_html_with_http_headers $input, $cookie, $template->output; } diff --git a/cataloguing/value_builder/unimarc_field_115a.pl b/cataloguing/value_builder/unimarc_field_115a.pl index ecf7674cef..30e448e120 100755 --- a/cataloguing/value_builder/unimarc_field_115a.pl +++ b/cataloguing/value_builder/unimarc_field_115a.pl @@ -32,88 +32,100 @@ use C4::Output; plugin_parameters : other parameters added when the plugin is called by the dopop function =cut + sub plugin_parameters { -my ($dbh,$record,$tagslib,$i,$tabloop) = @_; -return ""; + my ( $dbh, $record, $tagslib, $i, $tabloop ) = @_; + return ""; } sub plugin_javascript { -my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; -my $function_name= "115a".(int(rand(100000))+1); -my $res=" - -"; + + "; -return ($function_name,$res); + return ( $field_number, $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/unimarc_field_115a.tmpl", - query => $input, - type => "intranet", - authnotrequired => 0, - flagsrequired => {editcatalogue => 1}, - debug => 1, - }); - my $f1 = substr($result,0,1); - my $f2 = substr($result,1,3); - my $f3 = substr($result,4,1); - my $f4 = substr($result,5,1); - my $f5 = substr($result,6,1); - my $f6 = substr($result,7,1); - my $f7 = substr($result,8,1); - my $f8 = substr($result,9,1); - my $f9 = substr($result,10,1); - my $f10 = substr($result,11,1); - my $f11 = substr($result,12,1); - my $f12 = substr($result,13,1); - my $f13 = substr($result,14,1); - my $f14 = substr($result,15,1); - my $f15 = substr($result,16,1); - my $f16 = substr($result,17,1); - my $f17 = substr($result,18,1); - my $f18 = substr($result,19,1); - - $template->param(index => $index, - "f1$f1" => 1, - "f2" => $f2, - "f3$f3" => 1, - "f4$f4" => 1, - "f5$f5" => 1, - "f6$f6" => 1, - "f7$f7" => 1, - "f8$f8" => 1, - "f9$f9" => 1, - "f10$f10" => 1, - "f11$f11" => 1, - "f12$f12" => 1, - "f13$f13" => 1, - "f14$f14" => 1, - "f15$f15" => 1, - "f16$f16" => 1, - "f17$f17" => 1, - "f18$f18" => 1 - ); - 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/unimarc_field_115a.tmpl", + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => { editcatalogue => 1 }, + debug => 1, + } + ); + my $f1 = substr( $result, 0, 1 ); + my $f2 = substr( $result, 1, 3 ); + my $f3 = substr( $result, 4, 1 ); + my $f4 = substr( $result, 5, 1 ); + my $f5 = substr( $result, 6, 1 ); + my $f6 = substr( $result, 7, 1 ); + my $f7 = substr( $result, 8, 1 ); + my $f8 = substr( $result, 9, 1 ); + my $f9 = substr( $result, 10, 1 ); + my $f10 = substr( $result, 11, 1 ); + my $f11 = substr( $result, 12, 1 ); + my $f12 = substr( $result, 13, 1 ); + my $f13 = substr( $result, 14, 1 ); + my $f14 = substr( $result, 15, 1 ); + my $f15 = substr( $result, 16, 1 ); + my $f16 = substr( $result, 17, 1 ); + my $f17 = substr( $result, 18, 1 ); + my $f18 = substr( $result, 19, 1 ); + + $template->param( + index => $index, + "f1$f1" => 1, + "f2" => $f2, + "f3$f3" => 1, + "f4$f4" => 1, + "f5$f5" => 1, + "f6$f6" => 1, + "f7$f7" => 1, + "f8$f8" => 1, + "f9$f9" => 1, + "f10$f10" => 1, + "f11$f11" => 1, + "f12$f12" => 1, + "f13$f13" => 1, + "f14$f14" => 1, + "f15$f15" => 1, + "f16$f16" => 1, + "f17$f17" => 1, + "f18$f18" => 1 + ); + + output_html_with_http_headers $input, $cookie, $template->output; } 1; diff --git a/cataloguing/value_builder/unimarc_field_115b.pl b/cataloguing/value_builder/unimarc_field_115b.pl index 562adcca6f..7d03bfdaaa 100755 --- a/cataloguing/value_builder/unimarc_field_115b.pl +++ b/cataloguing/value_builder/unimarc_field_115b.pl @@ -32,74 +32,79 @@ use C4::Output; plugin_parameters : other parameters added when the plugin is called by the dopop function =cut + sub plugin_parameters { -my ($dbh,$record,$tagslib,$i,$tabloop) = @_; -return ""; + my ( $dbh, $record, $tagslib, $i, $tabloop ) = @_; + return ""; } sub plugin_javascript { -my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; -my $function_name= "115b".(int(rand(100000))+1); -my $res=" - "; -return ($function_name,$res); + return ( $field_number, $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/unimarc_field_115b.tmpl", - query => $input, - type => "intranet", - authnotrequired => 0, - flagsrequired => {editcatalogue => 1}, - debug => 1, - }); - my $f1 = substr($result,0,1); - my $f2 = substr($result,1,1); - my $f3 = substr($result,2,1); - my $f4 = substr($result,3,1); - my $f5 = substr($result,4,1); - my $f6 = substr($result,5,1); - my $f7 = substr($result,6,1); - my $f8 = substr($result,7,1); - my $f9 = substr($result,8,1); - my $f10 = substr($result,9,4); - my $f11 = substr($result,13,2); - - $template->param(index => $index, - "f1$f1" => 1, - "f2$f2" => 1, - "f3$f3" => 1, - "f4$f4" => 1, - "f5$f5" => 1, - "f6$f6" => 1, - "f7$f7" => 1, - "f8$f8" => 1, - "f9$f9" => 1, - "f10" => $f10, - "f11" => $f11 - ); - 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/unimarc_field_115b.tmpl", + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => { editcatalogue => 1 }, + debug => 1, + } + ); + my $f1 = substr( $result, 0, 1 ); + my $f2 = substr( $result, 1, 1 ); + my $f3 = substr( $result, 2, 1 ); + my $f4 = substr( $result, 3, 1 ); + my $f5 = substr( $result, 4, 1 ); + my $f6 = substr( $result, 5, 1 ); + my $f7 = substr( $result, 6, 1 ); + my $f8 = substr( $result, 7, 1 ); + my $f9 = substr( $result, 8, 1 ); + my $f10 = substr( $result, 9, 4 ); + my $f11 = substr( $result, 13, 2 ); + + $template->param( + index => $index, + "f1$f1" => 1, + "f2$f2" => 1, + "f3$f3" => 1, + "f4$f4" => 1, + "f5$f5" => 1, + "f6$f6" => 1, + "f7$f7" => 1, + "f8$f8" => 1, + "f9$f9" => 1, + "f10" => $f10, + "f11" => $f11 + ); + output_html_with_http_headers $input, $cookie, $template->output; } 1; diff --git a/cataloguing/value_builder/unimarc_field_116.pl b/cataloguing/value_builder/unimarc_field_116.pl index e088a35265..b011e6dfe5 100755 --- a/cataloguing/value_builder/unimarc_field_116.pl +++ b/cataloguing/value_builder/unimarc_field_116.pl @@ -32,77 +32,81 @@ use C4::Output; plugin_parameters : other parameters added when the plugin is called by the dopop function =cut + sub plugin_parameters { -my ($dbh,$record,$tagslib,$i,$tabloop) = @_; -return ""; + my ( $dbh, $record, $tagslib, $i, $tabloop ) = @_; + return ""; } sub plugin_javascript { -my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; -my $function_name= "116".(int(rand(100000))+1); -my $res=" + my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_; + my $res = " "; -return ($function_name,$res); + return ( $field_number, $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/unimarc_field_116.tmpl", - query => $input, - type => "intranet", - authnotrequired => 0, - flagsrequired => {editcatalogue => 1}, - debug => 1, - }); - my $f1 = substr($result,0,1); - my $f2 = substr($result,1,1); - my $f3 = substr($result,2,1); - my $f4 = substr($result,3,1); - - my $f5 = substr($result,4,2); - my $f6 = substr($result,6,2); - my $f7 = substr($result,8,2); - - my $f8 = substr($result,10,2); - my $f9 = substr($result,12,2); - my $f10 = substr($result,14,2); - - my $f11 = substr($result,16,2); - - $template->param(index => $index, - "f1$f1" => 1, - "f2$f2" => 1, - "f3$f3" => 1, - "f4$f4" => 1, - "f5$f5" => 1, - "f6$f6" => 1, - "f7$f7" => 1, - "f8$f8" => 1, - "f9$f9" => 1, - "f10$f10" => 1, - "f11$f11" => 1 - ); - 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/unimarc_field_116.tmpl", + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => { editcatalogue => 1 }, + debug => 1, + } + ); + my $f1 = substr( $result, 0, 1 ); + my $f2 = substr( $result, 1, 1 ); + my $f3 = substr( $result, 2, 1 ); + my $f4 = substr( $result, 3, 1 ); + + my $f5 = substr( $result, 4, 2 ); + my $f6 = substr( $result, 6, 2 ); + my $f7 = substr( $result, 8, 2 ); + + my $f8 = substr( $result, 10, 2 ); + my $f9 = substr( $result, 12, 2 ); + my $f10 = substr( $result, 14, 2 ); + + my $f11 = substr( $result, 16, 2 ); + + $template->param( + index => $index, + "f1$f1" => 1, + "f2$f2" => 1, + "f3$f3" => 1, + "f4$f4" => 1, + "f5$f5" => 1, + "f6$f6" => 1, + "f7$f7" => 1, + "f8$f8" => 1, + "f9$f9" => 1, + "f10$f10" => 1, + "f11$f11" => 1 + ); + output_html_with_http_headers $input, $cookie, $template->output; } 1; diff --git a/cataloguing/value_builder/unimarc_field_117.pl b/cataloguing/value_builder/unimarc_field_117.pl index 1ba6c394d4..1bc50ef20d 100755 --- a/cataloguing/value_builder/unimarc_field_117.pl +++ b/cataloguing/value_builder/unimarc_field_117.pl @@ -39,26 +39,25 @@ return ""; sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; -my $function_name= "117".(int(rand(100000))+1); my $res=" "; -return ($function_name,$res); +return ($field_number,$res); } sub plugin { my ($input) = @_; diff --git a/cataloguing/value_builder/unimarc_field_120.pl b/cataloguing/value_builder/unimarc_field_120.pl index e8cc56c680..e7242d0741 100755 --- a/cataloguing/value_builder/unimarc_field_120.pl +++ b/cataloguing/value_builder/unimarc_field_120.pl @@ -39,7 +39,7 @@ return ""; sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; -my $function_name= "120".(int(rand(100000))+1); +my $function_name=$field_number; my $res=" diff --git a/cataloguing/value_builder/unimarc_field_121a.pl b/cataloguing/value_builder/unimarc_field_121a.pl index 696ceee978..512a80ada2 100755 --- a/cataloguing/value_builder/unimarc_field_121a.pl +++ b/cataloguing/value_builder/unimarc_field_121a.pl @@ -39,7 +39,7 @@ return ""; sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; -my $function_name= "121a".(int(rand(100000))+1); +my $function_name= $field_number; my $res=" diff --git a/cataloguing/value_builder/unimarc_field_121b.pl b/cataloguing/value_builder/unimarc_field_121b.pl index 7b325a9fa1..627b2c566a 100755 --- a/cataloguing/value_builder/unimarc_field_121b.pl +++ b/cataloguing/value_builder/unimarc_field_121b.pl @@ -39,7 +39,7 @@ return ""; sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; -my $function_name= "121b".(int(rand(100000))+1); +my $function_name= $field_number; my $res=" diff --git a/cataloguing/value_builder/unimarc_field_122.pl b/cataloguing/value_builder/unimarc_field_122.pl index 8957fae5bb..ccc6e5f9a0 100755 --- a/cataloguing/value_builder/unimarc_field_122.pl +++ b/cataloguing/value_builder/unimarc_field_122.pl @@ -32,6 +32,7 @@ use C4::Output; plugin_parameters : other parameters added when the plugin is called by the dopop function =cut + sub plugin_parameters { my ($dbh,$record,$tagslib,$i,$tabloop) = @_; return ""; @@ -39,7 +40,7 @@ return ""; sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; -my $function_name= "122".(int(rand(100000))+1); +my $function_name= $field_number; my $res=" diff --git a/cataloguing/value_builder/unimarc_field_123a.pl b/cataloguing/value_builder/unimarc_field_123a.pl index 919301e05f..535f874501 100755 --- a/cataloguing/value_builder/unimarc_field_123a.pl +++ b/cataloguing/value_builder/unimarc_field_123a.pl @@ -39,20 +39,20 @@ return ""; sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; -my $function_name= "123a".(int(rand(100000))+1); +my $function_name= $field_number; my $res=" diff --git a/cataloguing/value_builder/unimarc_field_123d.pl b/cataloguing/value_builder/unimarc_field_123d.pl index e5dd90ad00..12367c06f9 100755 --- a/cataloguing/value_builder/unimarc_field_123d.pl +++ b/cataloguing/value_builder/unimarc_field_123d.pl @@ -39,7 +39,7 @@ return ""; sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; -my $function_name= "123g".(int(rand(100000))+1); +my $function_name= $field_number; my $res=" diff --git a/cataloguing/value_builder/unimarc_field_123e.pl b/cataloguing/value_builder/unimarc_field_123e.pl index 514f0e3904..12367c06f9 100755 --- a/cataloguing/value_builder/unimarc_field_123e.pl +++ b/cataloguing/value_builder/unimarc_field_123e.pl @@ -39,7 +39,7 @@ return ""; sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; -my $function_name= "123g".(int(rand(100000))+1); +my $function_name= $field_number; my $res=" diff --git a/cataloguing/value_builder/unimarc_field_123f.pl b/cataloguing/value_builder/unimarc_field_123f.pl index 318df0594b..0e6a0faeb8 100755 --- a/cataloguing/value_builder/unimarc_field_123f.pl +++ b/cataloguing/value_builder/unimarc_field_123f.pl @@ -39,7 +39,7 @@ return ""; sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; -my $function_name= "123g".(int(rand(100000))+1); +my $function_name= $field_number; my $res=" diff --git a/cataloguing/value_builder/unimarc_field_123g.pl b/cataloguing/value_builder/unimarc_field_123g.pl index e5dd90ad00..12367c06f9 100755 --- a/cataloguing/value_builder/unimarc_field_123g.pl +++ b/cataloguing/value_builder/unimarc_field_123g.pl @@ -39,7 +39,7 @@ return ""; sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; -my $function_name= "123g".(int(rand(100000))+1); +my $function_name= $field_number; my $res=" diff --git a/cataloguing/value_builder/unimarc_field_123i.pl b/cataloguing/value_builder/unimarc_field_123i.pl index 627b99e172..71ca35976d 100755 --- a/cataloguing/value_builder/unimarc_field_123i.pl +++ b/cataloguing/value_builder/unimarc_field_123i.pl @@ -39,7 +39,7 @@ return ""; sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; -my $function_name= "123i".(int(rand(100000))+1); +my $function_name= $field_number; my $res=" diff --git a/cataloguing/value_builder/unimarc_field_123j.pl b/cataloguing/value_builder/unimarc_field_123j.pl index 331495f774..d8c5c1c0b1 100755 --- a/cataloguing/value_builder/unimarc_field_123j.pl +++ b/cataloguing/value_builder/unimarc_field_123j.pl @@ -32,50 +32,55 @@ use C4::Output; plugin_parameters : other parameters added when the plugin is called by the dopop function =cut + sub plugin_parameters { -my ($dbh,$record,$tagslib,$i,$tabloop) = @_; -return ""; + my ($dbh,$record,$tagslib,$i,$tabloop) = @_; + return ""; } sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; -my $function_name= "123j".(int(rand(100000))+1); +my $function_name= $field_number; my $res=" - -"; + } + + "; -return ($function_name,$res); + return ($function_name,$res); } + sub plugin { -my ($input) = @_; + 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/unimarc_field_123j.tmpl", - query => $input, - type => "intranet", - authnotrequired => 0, - flagsrequired => {editcatalogue => 1}, - debug => 1, - }); + my ($template, $loggedinuser, $cookie) + = get_template_and_user( + { + template_name => "cataloguing/value_builder/unimarc_field_123j.tmpl", + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => {editcatalogue => 1}, + debug => 1, + } + ); my $f1 = substr($result,0,1); my $f2 = substr($result,1,3); my $f3 = substr($result,4,2); diff --git a/cataloguing/value_builder/unimarc_field_124.pl b/cataloguing/value_builder/unimarc_field_124.pl index 20eaf78cd2..38ac7e3729 100755 --- a/cataloguing/value_builder/unimarc_field_124.pl +++ b/cataloguing/value_builder/unimarc_field_124.pl @@ -39,7 +39,7 @@ return ""; sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; -my $function_name= "100".(int(rand(100000))+1); +my $function_name= $field_number; my $res=" diff --git a/cataloguing/value_builder/unimarc_field_124a.pl b/cataloguing/value_builder/unimarc_field_124a.pl index aab5d013fd..5b06ea9a8c 100755 --- a/cataloguing/value_builder/unimarc_field_124a.pl +++ b/cataloguing/value_builder/unimarc_field_124a.pl @@ -39,7 +39,7 @@ return ""; sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; -my $function_name= "124a".(int(rand(100000))+1); +my $function_name= $field_number; my $res=" diff --git a/cataloguing/value_builder/unimarc_field_124b.pl b/cataloguing/value_builder/unimarc_field_124b.pl index 585ec74f1d..d6e3e0df1f 100755 --- a/cataloguing/value_builder/unimarc_field_124b.pl +++ b/cataloguing/value_builder/unimarc_field_124b.pl @@ -39,7 +39,7 @@ return ""; sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; -my $function_name= "124b".(int(rand(100000))+1); +my $function_name= $field_number; my $res=" diff --git a/cataloguing/value_builder/unimarc_field_124c.pl b/cataloguing/value_builder/unimarc_field_124c.pl index c9e49b7014..81ce4e9cdb 100755 --- a/cataloguing/value_builder/unimarc_field_124c.pl +++ b/cataloguing/value_builder/unimarc_field_124c.pl @@ -32,6 +32,7 @@ use C4::Output; plugin_parameters : other parameters added when the plugin is called by the dopop function =cut + sub plugin_parameters { my ($dbh,$record,$tagslib,$i,$tabloop) = @_; return ""; @@ -39,7 +40,7 @@ return ""; sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; -my $function_name= "124c".(int(rand(100000))+1); +my $function_name= $field_number; my $res=" diff --git a/cataloguing/value_builder/unimarc_field_124d.pl b/cataloguing/value_builder/unimarc_field_124d.pl index 2a9ab6911a..df7e720130 100755 --- a/cataloguing/value_builder/unimarc_field_124d.pl +++ b/cataloguing/value_builder/unimarc_field_124d.pl @@ -39,7 +39,7 @@ return ""; sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; -my $function_name= "124d".(int(rand(100000))+1); +my $function_name= $field_number; my $res=" diff --git a/cataloguing/value_builder/unimarc_field_124e.pl b/cataloguing/value_builder/unimarc_field_124e.pl index 6d1eb205e7..d72bc14f9e 100755 --- a/cataloguing/value_builder/unimarc_field_124e.pl +++ b/cataloguing/value_builder/unimarc_field_124e.pl @@ -39,7 +39,7 @@ return ""; sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; -my $function_name= "124e".(int(rand(100000))+1); +my $function_name= $field_number; my $res=" diff --git a/cataloguing/value_builder/unimarc_field_124f.pl b/cataloguing/value_builder/unimarc_field_124f.pl index 91e30dc3f4..e812439dff 100755 --- a/cataloguing/value_builder/unimarc_field_124f.pl +++ b/cataloguing/value_builder/unimarc_field_124f.pl @@ -39,7 +39,7 @@ return ""; sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; -my $function_name= "124f".(int(rand(100000))+1); +my $function_name= $field_number; my $res=" diff --git a/cataloguing/value_builder/unimarc_field_124g.pl b/cataloguing/value_builder/unimarc_field_124g.pl index ff1041cb1e..9af10d612b 100755 --- a/cataloguing/value_builder/unimarc_field_124g.pl +++ b/cataloguing/value_builder/unimarc_field_124g.pl @@ -39,7 +39,7 @@ return ""; sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; -my $function_name= "124g".(int(rand(100000))+1); +my $function_name= $field_number; my $res=" diff --git a/cataloguing/value_builder/unimarc_field_125.pl b/cataloguing/value_builder/unimarc_field_125.pl index 20eaf78cd2..38ac7e3729 100755 --- a/cataloguing/value_builder/unimarc_field_125.pl +++ b/cataloguing/value_builder/unimarc_field_125.pl @@ -39,7 +39,7 @@ return ""; sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; -my $function_name= "100".(int(rand(100000))+1); +my $function_name= $field_number; my $res=" diff --git a/cataloguing/value_builder/unimarc_field_125a.pl b/cataloguing/value_builder/unimarc_field_125a.pl index 5c83ffc0d1..83c8736dd1 100755 --- a/cataloguing/value_builder/unimarc_field_125a.pl +++ b/cataloguing/value_builder/unimarc_field_125a.pl @@ -39,23 +39,23 @@ return ""; sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; -my $function_name= "125a".(int(rand(100000))+1); +my $function_name= $field_number; my $res=" - + } + "; return ($function_name,$res); diff --git a/cataloguing/value_builder/unimarc_field_125b.pl b/cataloguing/value_builder/unimarc_field_125b.pl index e5f24bfcbb..0c8ada7e64 100755 --- a/cataloguing/value_builder/unimarc_field_125b.pl +++ b/cataloguing/value_builder/unimarc_field_125b.pl @@ -39,7 +39,7 @@ return ""; sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; -my $function_name= "125b".(int(rand(100000))+1); +my $function_name= $field_number; my $res=" diff --git a/cataloguing/value_builder/unimarc_field_126.pl b/cataloguing/value_builder/unimarc_field_126.pl index c37e5cc642..38ac7e3729 100755 --- a/cataloguing/value_builder/unimarc_field_126.pl +++ b/cataloguing/value_builder/unimarc_field_126.pl @@ -39,7 +39,7 @@ return ""; sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; -my $function_name= "100".(int(rand(100000))+1); +my $function_name= $field_number; my $res=" diff --git a/cataloguing/value_builder/unimarc_field_126a.pl b/cataloguing/value_builder/unimarc_field_126a.pl index c1f4d880b7..a324caff35 100755 --- a/cataloguing/value_builder/unimarc_field_126a.pl +++ b/cataloguing/value_builder/unimarc_field_126a.pl @@ -39,7 +39,7 @@ return ""; sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; -my $function_name= "126a".(int(rand(100000))+1); +my $function_name= $field_number; my $res=" diff --git a/cataloguing/value_builder/unimarc_field_126b.pl b/cataloguing/value_builder/unimarc_field_126b.pl index 54dbb2c4f7..b611a0a26f 100755 --- a/cataloguing/value_builder/unimarc_field_126b.pl +++ b/cataloguing/value_builder/unimarc_field_126b.pl @@ -39,7 +39,7 @@ return ""; sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; -my $function_name= "126b".(int(rand(100000))+1); +my $function_name= $field_number; my $res=" diff --git a/cataloguing/value_builder/unimarc_field_127.pl b/cataloguing/value_builder/unimarc_field_127.pl index 48303b5ab0..f9dc6a5670 100755 --- a/cataloguing/value_builder/unimarc_field_127.pl +++ b/cataloguing/value_builder/unimarc_field_127.pl @@ -39,7 +39,7 @@ return ""; sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; -my $function_name= "127".(int(rand(100000))+1); +my $function_name= $field_number; my $res=" diff --git a/cataloguing/value_builder/unimarc_field_128a.pl b/cataloguing/value_builder/unimarc_field_128a.pl index 4a00e2cff8..1ccf664845 100755 --- a/cataloguing/value_builder/unimarc_field_128a.pl +++ b/cataloguing/value_builder/unimarc_field_128a.pl @@ -39,7 +39,7 @@ return ""; sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; -my $function_name= "128a".(int(rand(100000))+1); +my $function_name= $field_number; my $res=" diff --git a/cataloguing/value_builder/unimarc_field_128b.pl b/cataloguing/value_builder/unimarc_field_128b.pl index 1d5a39d239..60e1293876 100755 --- a/cataloguing/value_builder/unimarc_field_128b.pl +++ b/cataloguing/value_builder/unimarc_field_128b.pl @@ -39,7 +39,7 @@ return ""; sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; -my $function_name= "128b".(int(rand(100000))+1); +my $function_name= $field_number; my $res=" diff --git a/cataloguing/value_builder/unimarc_field_128c.pl b/cataloguing/value_builder/unimarc_field_128c.pl index 967e9208c5..a29f46eb42 100755 --- a/cataloguing/value_builder/unimarc_field_128c.pl +++ b/cataloguing/value_builder/unimarc_field_128c.pl @@ -32,6 +32,7 @@ use C4::Output; plugin_parameters : other parameters added when the plugin is called by the dopop function =cut + sub plugin_parameters { my ($dbh,$record,$tagslib,$i,$tabloop) = @_; return ""; @@ -39,7 +40,7 @@ return ""; sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; -my $function_name= "128c".(int(rand(100000))+1); +my $function_name= $field_number; my $res=" diff --git a/cataloguing/value_builder/unimarc_field_130.pl b/cataloguing/value_builder/unimarc_field_130.pl index bcf6034390..7f59bc5060 100755 --- a/cataloguing/value_builder/unimarc_field_130.pl +++ b/cataloguing/value_builder/unimarc_field_130.pl @@ -32,6 +32,7 @@ use C4::Output; plugin_parameters : other parameters added when the plugin is called by the dopop function =cut + sub plugin_parameters { my ($dbh,$record,$tagslib,$i,$tabloop) = @_; return ""; @@ -39,7 +40,7 @@ return ""; sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; -my $function_name= "130".(int(rand(100000))+1); +my $function_name= $field_number; my $res=" diff --git a/cataloguing/value_builder/unimarc_field_135a.pl b/cataloguing/value_builder/unimarc_field_135a.pl index 38d693d60e..b05b9e7118 100755 --- a/cataloguing/value_builder/unimarc_field_135a.pl +++ b/cataloguing/value_builder/unimarc_field_135a.pl @@ -39,7 +39,7 @@ return ""; sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; -my $function_name= "135a".(int(rand(100000))+1); +my $function_name= $field_number; my $res=" diff --git a/cataloguing/value_builder/unimarc_field_140.pl b/cataloguing/value_builder/unimarc_field_140.pl index 26d4cd7c46..31d125344b 100755 --- a/cataloguing/value_builder/unimarc_field_140.pl +++ b/cataloguing/value_builder/unimarc_field_140.pl @@ -39,7 +39,7 @@ return ""; sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; -my $function_name= "140".(int(rand(100000))+1); +my $function_name= $field_number; my $res=" @@ -98,7 +98,6 @@ my ($template, $loggedinuser, $cookie) my $f20 = substr($result,24,1); my $f21 = substr($result,25 ,1); -warn "Dans ce cas clea nous fait un f17 => $f17\n"; $template->param(index => $index, "f1$f1" => 1, diff --git a/cataloguing/value_builder/unimarc_field_141.pl b/cataloguing/value_builder/unimarc_field_141.pl index 8abd5649be..d057a85952 100755 --- a/cataloguing/value_builder/unimarc_field_141.pl +++ b/cataloguing/value_builder/unimarc_field_141.pl @@ -39,7 +39,7 @@ return ""; sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; -my $function_name= "141".(int(rand(100000))+1); +my $function_name= $field_number; my $res=" diff --git a/cataloguing/value_builder/unimarc_field_210c.pl b/cataloguing/value_builder/unimarc_field_210c.pl index 34fea240cd..ec318faa2c 100755 --- a/cataloguing/value_builder/unimarc_field_210c.pl +++ b/cataloguing/value_builder/unimarc_field_210c.pl @@ -56,7 +56,7 @@ the 3 scripts are inserted after the in the html code =cut sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; -my $function_name= "210c".(int(rand(100000))+1); +my $function_name= $field_number; #---- build editors list. #---- the editor list is built from the "EDITORS" thesaurus #---- this thesaurus category must be filled as follow : @@ -115,7 +115,7 @@ function Blur$function_name(subfield_managed) { } function Clic$function_name(subfield_managed) { - defaultvalue=escape(document.forms['f'].field_value[subfield_managed].value); + defaultvalue=escape(document.getElementById(\"$field_number\").value); newin=window.open(\"plugin_launcher.pl?plugin_name=unimarc_field_210c.pl&index=\"+subfield_managed,\"unimarc 225a\",'width=500,height=600,toolbar=false,scrollbars=yes'); } diff --git a/cataloguing/value_builder/unimarc_field_225a.pl b/cataloguing/value_builder/unimarc_field_225a.pl index 16ca2868c0..d8b449300f 100755 --- a/cataloguing/value_builder/unimarc_field_225a.pl +++ b/cataloguing/value_builder/unimarc_field_225a.pl @@ -18,6 +18,7 @@ # You should have received a copy of the GNU General Public License along with # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place, # Suite 330, Boston, MA 02111-1307 USA + =head1 SYNOPSIS This plugin is used to map isbn/editor with collection. @@ -27,11 +28,11 @@ It need : isbn separator editor separator collection. for example : 2204 -- Cerf -- Cogitatio fidei - 2204 -- Cerf -- Le Magist�re de l'Eglise + 2204 -- Cerf -- Le Magistere de l'Eglise 2204 -- Cerf -- Lectio divina 2204 -- Cerf -- Lire la Bible 2204 -- Cerf -- Pour lire - 2204 -- Cerf -- Sources chr�tiennes + 2204 -- Cerf -- Sources chretiennes when the user clic on ... on 225a line, the popup shows the list of collections from the selected editor if the biblio has no isbn, then the search if done on editor only @@ -54,105 +55,151 @@ use C4::Output; plugin_parameters : other parameters added when the plugin is called by the dopop function =cut + sub plugin_parameters { -my ($dbh,$record,$tagslib,$i,$tabloop) = @_; -return ""; + my ( $dbh, $record, $tagslib, $i, $tabloop ) = @_; + return ""; } sub plugin_javascript { -my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; -my $function_name= "100".(int(rand(100000))+1); -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 $editor_found = $input->param('editor_found'); - my $isbn_found = $input->param('isbn_found'); - my $dbh = C4::Context->dbh; - my $authoritysep = C4::Context->preference("authoritysep"); - my ($template, $loggedinuser, $cookie) - = get_template_and_user({template_name => "cataloguing/value_builder/unimarc_field_225a.tmpl", - query => $input, - type => "intranet", - authnotrequired => 0, - flagsrequired => {editcatalogue => 1}, - debug => 1, - }); + my ($input) = @_; + my $index = $input->param('index'); + my $result = $input->param('result'); + my $editor_found = $input->param('editor_found'); + my $isbn_found = $input->param('isbn_found'); + my $dbh = C4::Context->dbh; + my $authoritysep = C4::Context->preference("authoritysep"); + my ( $template, $loggedinuser, $cookie ) = get_template_and_user( + { + template_name => + "cataloguing/value_builder/unimarc_field_225a.tmpl", + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => { editcatalogue => 1 }, + debug => 1, + } + ); + # builds collection list : search isbn and editor, in parent, then load collections from bibliothesaurus table - # if there is an isbn, complete search - my @collections; - if ($isbn_found) { - my $sth = $dbh->prepare("select auth_subfield_table.authid,subfieldvalue from auth_subfield_table - left join auth_header on auth_subfield_table.authid=auth_header.authid - where authtypecode='EDITORS' and tag='200' and subfieldcode='a' and subfieldvalue=?"); - my $sth2 = $dbh->prepare("select subfieldvalue from auth_subfield_table where tag='200' and subfieldcode='c' and authid=? order by subfieldvalue"); - my @splited = split //, $isbn_found; - my $isbn_rebuild=''; - foreach my $x (@splited) { - $isbn_rebuild.=$x; - $sth->execute($isbn_rebuild); - my ($authid) = $sth->fetchrow; - $sth2->execute($authid); - while (my ($line)= $sth2->fetchrow) { - push @collections,$line; - } - } - } else { - my $sth = $dbh->prepare("select auth_subfield_table.authid,subfieldvalue from auth_subfield_table - left join auth_header on auth_subfield_table.authid=auth_header.authid - where authtypecode='EDITORS' and tag='200' and subfieldcode='b' and subfieldvalue=?"); - my $sth2 = $dbh->prepare("select subfieldvalue from auth_subfield_table where tag='200' and subfieldcode='c' and authid=? order by subfieldvalue"); - $sth->execute($editor_found); - my ($authid) = $sth->fetchrow; - $sth2->execute($authid); - while (my ($line)= $sth2->fetchrow) { - push @collections,$line; - } - } -# my @collections = ["test"]; - my $collection =CGI::scrolling_list(-name=>'f1', - -values=> \@collections, - -default=>"$result", - -size=>1, - -multiple=>0, - ); - $template->param(index => $index, - collection => $collection); - output_html_with_http_headers $input, $cookie, $template->output; +# if there is an isbn, complete search + my @collections; + if ($isbn_found) { + my $sth = $dbh->prepare( + "SELECT auth_subfield_table.authid,subfieldvalue + FROM auth_subfield_table + LEFT JOIN auth_header ON auth_subfield_table.authid = auth_header.authid + WHERE authtypecode='EDITORS' + AND tag='200' + AND subfieldcode='a' + AND subfieldvalue=?" + ); + my $sth2 = + $dbh->prepare( + "SELECT subfieldvalue + FROM auth_subfield_table + WHERE tag='200' + AND subfieldcode='c' + AND authid=? + ORDER BY subfieldvalue" + ); + my @splited = split //, $isbn_found; + my $isbn_rebuild = ''; + foreach my $x (@splited) { + $isbn_rebuild .= $x; + $sth->execute($isbn_rebuild); + my ($authid) = $sth->fetchrow; + $sth2->execute($authid); + while ( my ($line) = $sth2->fetchrow ) { + push @collections, $line; + } + } + } + else { + my $sth = $dbh->prepare( + "SELECT auth_subfield_table.authid,subfieldvalue + FROM auth_subfield_table + LEFT JOIN auth_header ON auth_subfield_table.authid = auth_header.authid + WHERE authtypecode='EDITORS' + AND tag='200' + AND subfieldcode='b' + AND subfieldvalue=?" + ); + my $sth2 = + $dbh->prepare( + "SELECT subfieldvalue + FROM auth_subfield_table + WHERE tag='200' + AND subfieldcode='c' + AND authid=? + ORDER BY subfieldvalue" + ); + $sth->execute($editor_found); + my ($authid) = $sth->fetchrow; + $sth2->execute($authid); + while ( my ($line) = $sth2->fetchrow ) { + push @collections, $line; + } + } + + # my @collections = ["test"]; + my $collection = CGI::scrolling_list( + -name => 'f1', + -values => \@collections, + -default => "$result", + -size => 1, + -multiple => 0, + ); + $template->param( + index => $index, + collection => $collection + ); + output_html_with_http_headers $input, $cookie, $template->output; } 1; diff --git a/cataloguing/value_builder/unimarc_field_4XX.pl b/cataloguing/value_builder/unimarc_field_4XX.pl index 9f90665a2f..cb409212b0 100755 --- a/cataloguing/value_builder/unimarc_field_4XX.pl +++ b/cataloguing/value_builder/unimarc_field_4XX.pl @@ -17,6 +17,8 @@ # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place, # Suite 330, Boston, MA 02111-1307 USA +# $Id$ + use strict; require Exporter; use CGI; @@ -29,355 +31,493 @@ use C4::Output; use C4::Biblio; use C4::Koha; use MARC::Record; -use C4::Branch; # GetBranches +use C4::Branch; # GetBranches sub plugin_parameters { -my ($dbh,$record,$tagslib,$i,$tabloop) = @_; -return ""; + my ( $dbh, $record, $tagslib, $i, $tabloop ) = @_; + return ""; } sub plugin_javascript { -my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; -my $function_name= "4XX".(int(rand(100000))+1); -my $res=" - -"; + } + + "; -return ($function_name,$res); + return ( $function_name, $res ); } +# sub plugin +# +# input arg : +# -- op could be equals to +# * fillinput : +# * do_search : +# + sub plugin { - my ($input) = @_; - my $dbh=C4::Context->dbh; - my $query = new CGI; - my $op = $query->param('op'); - my $type=$query->param('type'); -# warn "operation ".$op; - my $startfrom=$query->param('startfrom'); - $startfrom=0 if(!defined $startfrom); - my ($template, $loggedinuser, $cookie); + my ($input) = @_; + my $dbh = C4::Context->dbh; + my $query = new CGI; + my $op = $query->param('op'); + my $type = $query->param('type'); + my $startfrom = $query->param('startfrom'); + $startfrom = 0 if ( !defined $startfrom ); + my ( $template, $loggedinuser, $cookie ); my $resultsperpage; my $searchdesc; - - if ($op eq "fillinput"){ + + if ( $op eq "fillinput" ) { my $bibnum = $query->param('bibnum'); - my $index = $query->param('index'); + my $index = $query->param('index'); my $marcrecord; -# open template - ($template, $loggedinuser, $cookie)= get_template_and_user({template_name => "cataloguing/value_builder/unimarc_field_4XX.tmpl", - query => $query, - type => "intranet", - authnotrequired => 0, - flagsrequired => {editcatalogue => 1}, - debug => 1, - }); + + # open template + ( $template, $loggedinuser, $cookie ) = get_template_and_user( + { + template_name => + "cataloguing/value_builder/unimarc_field_4XX.tmpl", + query => $query, + type => "intranet", + authnotrequired => 0, + flagsrequired => { editcatalogue => 1 }, + debug => 1, + } + ); #get marc record $marcrecord = GetMarcBiblio($bibnum); - my $subfield_value_9=$bibnum; + my $subfield_value_9 = $bibnum; my $subfield_value_0; - $subfield_value_0=$marcrecord->field('001')->data if $marcrecord->field('001'); + $subfield_value_0 = $marcrecord->field('001')->data + if $marcrecord->field('001'); my $subfield_value_a; - if ($marcrecord->field('700')){ - $subfield_value_a=$marcrecord->field('700')->subfield("a"); - $subfield_value_a.=", ".$marcrecord->subfield('700',"b") if $marcrecord->subfield('700','b'); - $subfield_value_a.=" ".$marcrecord->subfield('700',"d") if $marcrecord->subfield('700','d'); - $subfield_value_a.=" (".$marcrecord->subfield('700','c')." - " if $marcrecord->subfield('700','c'); - $subfield_value_a.=" (" if ($marcrecord->subfield('700','f') and not( $marcrecord->subfield('700','c'))); - $subfield_value_a.=$marcrecord->subfield('700','f') if ($marcrecord->subfield('700','f')); - $subfield_value_a.=")" if ($marcrecord->subfield('701','f') or $marcrecord->subfield('701','c')); - } elsif ($marcrecord->field('702')){ - $subfield_value_a=$marcrecord->subfield('702','a'); - $subfield_value_a.=", ".$marcrecord->subfield('702','b') if $marcrecord->subfield('702','b'); - $subfield_value_a.=" ".$marcrecord->subfield('702','d') if $marcrecord->subfield('702','d'); - $subfield_value_a.=" (".$marcrecord->subfield('702','c')."; " if $marcrecord->subfield('702','c'); - $subfield_value_a.=" (" if $marcrecord->subfield('702','f') and not $marcrecord->subfield('702','c'); - $subfield_value_a.=$marcrecord->subfield('702','f') if $marcrecord->subfield('702','f'); - $subfield_value_a.=")" if $marcrecord->subfield('702','f') or $marcrecord->subfield('702','c'); - } elsif ($marcrecord->field('710')){ - $subfield_value_a=$marcrecord->subfield('710','d')." " if $marcrecord->subfield('710','d'); - $subfield_value_a.=$marcrecord->subfield('710','a') if $marcrecord->subfield('710','a'); - $subfield_value_a.=", ".$marcrecord->subfield('710','b') if $marcrecord->subfield('710'); - $subfield_value_a.=" (".$marcrecord->subfield('710','f')." - " if $marcrecord->subfield('710','f'); - $subfield_value_a.=" (" if $marcrecord->subfield('710','e') and not $marcrecord->subfield('710','f'); - $subfield_value_a.=$marcrecord->subfield('710','e') if $marcrecord->subfield('710','e'); - $subfield_value_a.=")" if $marcrecord->subfield('710','e') or $marcrecord->subfield('710','f'); - } elsif ($marcrecord->field('701')){ - $subfield_value_a=$marcrecord->subfield('701','a'); - $subfield_value_a.=", ".$marcrecord->subfield('701','b') if $marcrecord->subfield('701','b'); - $subfield_value_a.=" ".$marcrecord->subfield('701','d',) if $marcrecord->subfield('701','d'); - $subfield_value_a.=" (".$marcrecord->subfield('701','c')." - " if $marcrecord->subfield('701','c'); - $subfield_value_a.=" (" if $marcrecord->subfield('701','f') and not( $marcrecord->subfield('701','c')); - $subfield_value_a.=$marcrecord->subfield('701','f') if $marcrecord->subfield('701','f'); - $subfield_value_a.=")" if $marcrecord->subfield('701','f') or $marcrecord->subfield('701','c'); - } elsif ($marcrecord->field('712')){ - $subfield_value_a=$marcrecord->subfield('712','d')." " if $marcrecord->subfield('712','d'); - $subfield_value_a.=$marcrecord->subfield('712','a') if $marcrecord->subfield('712','a'); - $subfield_value_a.=", ".$marcrecord->subfield('712','b') if $marcrecord->subfield('712','b'); - $subfield_value_a.=" (".$marcrecord->subfield('712','f')." - " if $marcrecord->subfield('712','f'); - $subfield_value_a.=" (" if $marcrecord->field('712',"e") and not $marcrecord->subfield('712','f'); - $subfield_value_a.=$marcrecord->subfield('712','e') if $marcrecord->subfield('712','e'); - $subfield_value_a.=")" if $marcrecord->subfield('712','e') or $marcrecord->subfield('712','f'); - } elsif ($marcrecord->field('200')){ - $subfield_value_a=$marcrecord->subfield('200','f'); + if ( $marcrecord->field('700') ) { + $subfield_value_a = $marcrecord->field('700')->subfield("a"); + $subfield_value_a .= ", " . $marcrecord->subfield( '700', "b" ) + if $marcrecord->subfield( '700', 'b' ); + $subfield_value_a .= " " . $marcrecord->subfield( '700', "d" ) + if $marcrecord->subfield( '700', 'd' ); + $subfield_value_a .= + " (" . $marcrecord->subfield( '700', 'c' ) . " - " + if $marcrecord->subfield( '700', 'c' ); + $subfield_value_a .= " (" + if ( $marcrecord->subfield( '700', 'f' ) + and not( $marcrecord->subfield( '700', 'c' ) ) ); + $subfield_value_a .= $marcrecord->subfield( '700', 'f' ) + if ( $marcrecord->subfield( '700', 'f' ) ); + $subfield_value_a .= ")" + if ( $marcrecord->subfield( '701', 'f' ) + or $marcrecord->subfield( '701', 'c' ) ); + } + elsif ( $marcrecord->field('702') ) { + $subfield_value_a = $marcrecord->subfield( '702', 'a' ); + $subfield_value_a .= ", " . $marcrecord->subfield( '702', 'b' ) + if $marcrecord->subfield( '702', 'b' ); + $subfield_value_a .= " " . $marcrecord->subfield( '702', 'd' ) + if $marcrecord->subfield( '702', 'd' ); + $subfield_value_a .= + " (" . $marcrecord->subfield( '702', 'c' ) . "; " + if $marcrecord->subfield( '702', 'c' ); + $subfield_value_a .= " (" + if $marcrecord->subfield( '702', 'f' ) + and not $marcrecord->subfield( '702', 'c' ); + $subfield_value_a .= $marcrecord->subfield( '702', 'f' ) + if $marcrecord->subfield( '702', 'f' ); + $subfield_value_a .= ")" + if $marcrecord->subfield( '702', 'f' ) + or $marcrecord->subfield( '702', 'c' ); } - my $subfield_value_c = $marcrecord->field('210')->subfield("a") if ($marcrecord->field('210')); - my $subfield_value_d = $marcrecord->field('210')->subfield("d") if ($marcrecord->field('210')); - - my $subfield_value_e= $marcrecord->field('205')->subfield("a") if ($marcrecord->field('205')); - + elsif ( $marcrecord->field('710') ) { + $subfield_value_a = $marcrecord->subfield( '710', 'd' ) . " " + if $marcrecord->subfield( '710', 'd' ); + $subfield_value_a .= $marcrecord->subfield( '710', 'a' ) + if $marcrecord->subfield( '710', 'a' ); + $subfield_value_a .= ", " . $marcrecord->subfield( '710', 'b' ) + if $marcrecord->subfield('710'); + $subfield_value_a .= + " (" . $marcrecord->subfield( '710', 'f' ) . " - " + if $marcrecord->subfield( '710', 'f' ); + $subfield_value_a .= " (" + if $marcrecord->subfield( '710', 'e' ) + and not $marcrecord->subfield( '710', 'f' ); + $subfield_value_a .= $marcrecord->subfield( '710', 'e' ) + if $marcrecord->subfield( '710', 'e' ); + $subfield_value_a .= ")" + if $marcrecord->subfield( '710', 'e' ) + or $marcrecord->subfield( '710', 'f' ); + } + elsif ( $marcrecord->field('701') ) { + $subfield_value_a = $marcrecord->subfield( '701', 'a' ); + $subfield_value_a .= ", " . $marcrecord->subfield( '701', 'b' ) + if $marcrecord->subfield( '701', 'b' ); + $subfield_value_a .= " " . $marcrecord->subfield( '701', 'd', ) + if $marcrecord->subfield( '701', 'd' ); + $subfield_value_a .= + " (" . $marcrecord->subfield( '701', 'c' ) . " - " + if $marcrecord->subfield( '701', 'c' ); + $subfield_value_a .= " (" + if $marcrecord->subfield( '701', 'f' ) + and not( $marcrecord->subfield( '701', 'c' ) ); + $subfield_value_a .= $marcrecord->subfield( '701', 'f' ) + if $marcrecord->subfield( '701', 'f' ); + $subfield_value_a .= ")" + if $marcrecord->subfield( '701', 'f' ) + or $marcrecord->subfield( '701', 'c' ); + } + elsif ( $marcrecord->field('712') ) { + $subfield_value_a = $marcrecord->subfield( '712', 'd' ) . " " + if $marcrecord->subfield( '712', 'd' ); + $subfield_value_a .= $marcrecord->subfield( '712', 'a' ) + if $marcrecord->subfield( '712', 'a' ); + $subfield_value_a .= ", " . $marcrecord->subfield( '712', 'b' ) + if $marcrecord->subfield( '712', 'b' ); + $subfield_value_a .= + " (" . $marcrecord->subfield( '712', 'f' ) . " - " + if $marcrecord->subfield( '712', 'f' ); + $subfield_value_a .= " (" + if $marcrecord->field( '712', "e" ) + and not $marcrecord->subfield( '712', 'f' ); + $subfield_value_a .= $marcrecord->subfield( '712', 'e' ) + if $marcrecord->subfield( '712', 'e' ); + $subfield_value_a .= ")" + if $marcrecord->subfield( '712', 'e' ) + or $marcrecord->subfield( '712', 'f' ); + } + elsif ( $marcrecord->field('200') ) { + $subfield_value_a = $marcrecord->subfield( '200', 'f' ); + } + my $subfield_value_c = $marcrecord->field('210')->subfield("a") + if ( $marcrecord->field('210') ); + my $subfield_value_d = $marcrecord->field('210')->subfield("d") + if ( $marcrecord->field('210') ); + + my $subfield_value_e = $marcrecord->field('205')->subfield("a") + if ( $marcrecord->field('205') ); + my $subfield_value_h; - if (($marcrecord->field('200')) && ($marcrecord->field('200')->subfield("h"))){ - $subfield_value_h = $marcrecord->field('200')->subfield("h") ; - } elsif (($marcrecord->field('225')) && ($marcrecord->field('225')->subfield("h"))) { - $subfield_value_h = $marcrecord->field('225')->subfield("h") ; - } elsif (($marcrecord->field('500')) && ($marcrecord->field('500')->subfield("h"))) { - $subfield_value_h = $marcrecord->field('500')->subfield("h") ; + if ( ( $marcrecord->field('200') ) + && ( $marcrecord->field('200')->subfield("h") ) ) + { + $subfield_value_h = $marcrecord->field('200')->subfield("h"); + } + elsif (( $marcrecord->field('225') ) + && ( $marcrecord->field('225')->subfield("h") ) ) + { + $subfield_value_h = $marcrecord->field('225')->subfield("h"); + } + elsif (( $marcrecord->field('500') ) + && ( $marcrecord->field('500')->subfield("h") ) ) + { + $subfield_value_h = $marcrecord->field('500')->subfield("h"); } - + my $subfield_value_i; - if (($marcrecord->field('200')) && ($marcrecord->field('200')->subfield("i"))){ - $subfield_value_i = $marcrecord->field('200')->subfield("i") ; - } elsif (($marcrecord->field('225')) && ($marcrecord->field('225')->subfield("i"))) { - $subfield_value_i = $marcrecord->field('225')->subfield("i") ; - } elsif (($marcrecord->field('500')) && ($marcrecord->field('500')->subfield("i"))) { - $subfield_value_i = $marcrecord->field('500')->subfield("i") ; + if ( ( $marcrecord->field('200') ) + && ( $marcrecord->field('200')->subfield("i") ) ) + { + $subfield_value_i = $marcrecord->field('200')->subfield("i"); + } + elsif (( $marcrecord->field('225') ) + && ( $marcrecord->field('225')->subfield("i") ) ) + { + $subfield_value_i = $marcrecord->field('225')->subfield("i"); } + elsif (( $marcrecord->field('500') ) + && ( $marcrecord->field('500')->subfield("i") ) ) + { + $subfield_value_i = $marcrecord->field('500')->subfield("i"); + } + + my $subfield_value_p = $marcrecord->field('215')->subfield("a") + if ( $marcrecord->field('215') ); - my $subfield_value_p = $marcrecord->field('215')->subfield("a") if ($marcrecord->field('215')); - my $subfield_value_t; - if (($marcrecord->field('200')) && ($marcrecord->field('200')->subfield("a"))){ - $subfield_value_t = $marcrecord->field('200')->subfield("a") ; - } elsif (($marcrecord->field('225')) && ($marcrecord->field('225')->subfield("a"))) { - $subfield_value_t = $marcrecord->field('225')->subfield("a") ; - } elsif (($marcrecord->field('500')) && ($marcrecord->field('500')->subfield("a"))) { - $subfield_value_t = $marcrecord->field('500')->subfield("a") ; + if ( ( $marcrecord->field('200') ) + && ( $marcrecord->field('200')->subfield("a") ) ) + { + $subfield_value_t = $marcrecord->field('200')->subfield("a"); } - - my $subfield_value_u = $marcrecord->field('856')->subfield("u") if ($marcrecord->field('856')); - + elsif (( $marcrecord->field('225') ) + && ( $marcrecord->field('225')->subfield("a") ) ) + { + $subfield_value_t = $marcrecord->field('225')->subfield("a"); + } + elsif (( $marcrecord->field('500') ) + && ( $marcrecord->field('500')->subfield("a") ) ) + { + $subfield_value_t = $marcrecord->field('500')->subfield("a"); + } + + my $subfield_value_u = $marcrecord->field('856')->subfield("u") + if ( $marcrecord->field('856') ); + my $subfield_value_v; - if (($marcrecord->field('225')) && ($marcrecord->field('225')->subfield("v"))){ - $subfield_value_v = $marcrecord->field('225')->subfield("v") ; - } elsif (($marcrecord->field('200')) && ($marcrecord->field('200')->subfield("h"))) { - $subfield_value_v = $marcrecord->field('200')->subfield("h") ; + if ( ( $marcrecord->field('225') ) + && ( $marcrecord->field('225')->subfield("v") ) ) + { + $subfield_value_v = $marcrecord->field('225')->subfield("v"); } - my $subfield_value_x = $marcrecord->field('011')->subfield("a") if ($marcrecord->field('011') and not (($marcrecord->field('011')->subfield("y")) or ($marcrecord->field('011')->subfield("z")))); - my $subfield_value_y = $marcrecord->field('013')->subfield("a") if ($marcrecord->field('013')); - if ($marcrecord->field('010')){ + elsif (( $marcrecord->field('200') ) + && ( $marcrecord->field('200')->subfield("h") ) ) + { + $subfield_value_v = $marcrecord->field('200')->subfield("h"); + } + my $subfield_value_x = $marcrecord->field('011')->subfield("a") + if ( + $marcrecord->field('011') + and not( ( $marcrecord->field('011')->subfield("y") ) + or ( $marcrecord->field('011')->subfield("z") ) ) + ); + my $subfield_value_y = $marcrecord->field('013')->subfield("a") + if ( $marcrecord->field('013') ); + if ( $marcrecord->field('010') ) { $subfield_value_y = $marcrecord->field('010')->subfield("a"); } - $template->param(fillinput => 1, - index => $query->param('index')."", - biblionumber=>$bibnum?$bibnum:"", - subfield_value_9=>$subfield_value_9, - subfield_value_0=>$subfield_value_0, - subfield_value_a=>$subfield_value_a, - subfield_value_c=>$subfield_value_c, - subfield_value_d=>$subfield_value_d, - subfield_value_e=>$subfield_value_e, - subfield_value_h=>$subfield_value_h, - subfield_value_i=>$subfield_value_i, - subfield_value_p=>$subfield_value_p, - subfield_value_t=>$subfield_value_t, - subfield_value_u=>$subfield_value_u, - subfield_value_v=>$subfield_value_v, - subfield_value_x=>$subfield_value_x, - subfield_value_y=>$subfield_value_y, - ); -############################################################### - }elsif ($op eq "do_search") { - my $search = $query->param('search'); - my $startfrom = $query->param('startfrom'); + $template->param( + fillinput => 1, + index => $query->param('index') . "", + biblionumber => $bibnum ? $bibnum : "", + subfield_value_9 => $subfield_value_9, + subfield_value_0 => $subfield_value_0, + subfield_value_a => $subfield_value_a, + subfield_value_c => $subfield_value_c, + subfield_value_d => $subfield_value_d, + subfield_value_e => $subfield_value_e, + subfield_value_h => $subfield_value_h, + subfield_value_i => $subfield_value_i, + subfield_value_p => $subfield_value_p, + subfield_value_t => $subfield_value_t, + subfield_value_u => $subfield_value_u, + subfield_value_v => $subfield_value_v, + subfield_value_x => $subfield_value_x, + subfield_value_y => $subfield_value_y, + ); +############################################################### + } + elsif ( $op eq "do_search" ) { + my $search = $query->param('search'); + my $startfrom = $query->param('startfrom'); my $resultsperpage = $query->param('resultsperpage'); my $orderby; - my ($errors,$results) = SimpleSearch($search); - my $total=scalar(@$results); - $resultsperpage=20 unless $resultsperpage; -# warn " biblio count : ".$total; - - ($template, $loggedinuser, $cookie) - = get_template_and_user({template_name => "cataloguing/value_builder/unimarc_field_4XX.tmpl", - query => $query, - type => 'intranet', - authnotrequired => 1, - debug => 1, - }); - + my ( $errors, $results ) = SimpleSearch($search); + my $total = scalar(@$results); + $resultsperpage = 20 unless $resultsperpage; + + # warn " biblio count : ".$total; + + ( $template, $loggedinuser, $cookie ) = get_template_and_user( + { + template_name => + "cataloguing/value_builder/unimarc_field_4XX.tmpl", + query => $query, + type => 'intranet', + authnotrequired => 1, + debug => 1, + } + ); + # multi page display gestion - my $displaynext=0; - my $displayprev=$startfrom; - if(($total - (($startfrom+1)*($resultsperpage))) > 0 ){ + my $displaynext = 0; + my $displayprev = $startfrom; + if ( ( $total - ( ( $startfrom + 1 ) * ($resultsperpage) ) ) > 0 ) { $displaynext = 1; } my @arrayresults; my @field_data = ($search); - for (my $i=$startfrom; $i<=(($startfrom+$resultsperpage)[$i] ); - my $rechash=TransformMarcToKoha($dbh,$record); + for ( + my $i = $startfrom ; + $i <= ( + ( $startfrom + $resultsperpage ) < scalar(@$results) + ? ( $startfrom + $resultsperpage ) + : scalar(@$results) + ) ; + $i++ + ) + { + my $record = MARC::Record::new_from_usmarc( $results->[$i] ); + my $rechash = TransformMarcToKoha( $dbh, $record ); my $pos; - my $countitems=1 if ($rechash->{itemnumber}); - while (index($rechash->{itemnumber},'|',$pos)>0){ - $countitems+=1; - $pos=index($rechash->{itemnumber},'|',$pos)+1; + my $countitems = 1 if ( $rechash->{itemnumber} ); + while ( index( $rechash->{itemnumber}, '|', $pos ) > 0 ) { + $countitems += 1; + $pos = index( $rechash->{itemnumber}, '|', $pos ) + 1; } - $rechash->{totitem}=$countitems; - my @holdingbranches=split /\|/,$rechash->{holdingbranch}; - my @itemcallnumbers=split /\|/,$rechash->{itemcallnumber}; + $rechash->{totitem} = $countitems; + my @holdingbranches = split /\|/, $rechash->{holdingbranch}; + my @itemcallnumbers = split /\|/, $rechash->{itemcallnumber}; my $CN; - for (my $i=0;$i<@holdingbranches;$i++){ - $CN.= $holdingbranches[$i]." ( ".$itemcallnumbers[$i]." ) |" + for ( my $i = 0 ; $i < @holdingbranches ; $i++ ) { + $CN .= + $holdingbranches[$i] . " ( " . $itemcallnumbers[$i] . " ) |"; } - $CN=~s/ \|$//; - $rechash->{CN}=$CN; - push @arrayresults,$rechash; + $CN =~ s/ \|$//; + $rechash->{CN} = $CN; + push @arrayresults, $rechash; } - -# for(my $i = 0 ; $i <= $#marclist ; $i++) -# { -# push @field_data, { term => "marclist", val=>$marclist[$i] }; -# push @field_data, { term => "and_or", val=>$and_or[$i] }; -# push @field_data, { term => "excluding", val=>$excluding[$i] }; -# push @field_data, { term => "operator", val=>$operator[$i] }; -# push @field_data, { term => "value", val=>$value[$i] }; -# } - + + # for(my $i = 0 ; $i <= $#marclist ; $i++) + # { + # push @field_data, { term => "marclist", val=>$marclist[$i] }; + # push @field_data, { term => "and_or", val=>$and_or[$i] }; + # push @field_data, { term => "excluding", val=>$excluding[$i] }; + # push @field_data, { term => "operator", val=>$operator[$i] }; + # push @field_data, { term => "value", val=>$value[$i] }; + # } + my @numbers = (); - - if ($total>$resultsperpage) - { - for (my $i=1; $i<$total/$resultsperpage+1; $i++) - { - if ($i<16) - { - my $highlight=0; - ($startfrom==($i-1)) && ($highlight=1); - push @numbers, { number => $i, - highlight => $highlight , - searchdata=> \@field_data, - startfrom => ($i-1)}; + + if ( $total > $resultsperpage ) { + for ( my $i = 1 ; $i < $total / $resultsperpage + 1 ; $i++ ) { + if ( $i < 16 ) { + my $highlight = 0; + ( $startfrom == ( $i - 1 ) ) && ( $highlight = 1 ); + push @numbers, + { + number => $i, + highlight => $highlight, + searchdata => \@field_data, + startfrom => ( $i - 1 ) + }; } } } - - my $from = $startfrom*$resultsperpage+1; + + my $from = $startfrom * $resultsperpage + 1; my $to; - - if($total < (($startfrom+1)*$resultsperpage)) - { + + if ( $total < ( ( $startfrom + 1 ) * $resultsperpage ) ) { $to = $total; - } else { - $to = (($startfrom+1)*$resultsperpage); } - my $defaultview = 'BiblioDefaultView'.C4::Context->preference('BiblioDefaultView'); - $template->param(result => \@arrayresults, - index => $query->param('index')."", - startfrom=> $startfrom, - displaynext=> $displaynext, - displayprev=> $displayprev, - resultsperpage => $resultsperpage, - orderby => $orderby, - startfromnext => $startfrom+1, - startfromprev => $startfrom-1, - searchdata=>\@field_data, - total=>$total, - from=>$from, - to=>$to, - numbers=>\@numbers, - search=> $search, - $defaultview => 1, - Search =>0 - ); - - } else { - ($template, $loggedinuser, $cookie) - = get_template_and_user({template_name => "cataloguing/value_builder/unimarc_field_4XX.tmpl", - query => $query, - type => "intranet", - authnotrequired => 1, - }); - - - my $sth=$dbh->prepare("Select itemtype,description from itemtypes order by description"); + else { + $to = ( ( $startfrom + 1 ) * $resultsperpage ); + } + my $defaultview = + 'BiblioDefaultView' . C4::Context->preference('BiblioDefaultView'); + $template->param( + result => \@arrayresults, + index => $query->param('index') . "", + startfrom => $startfrom, + displaynext => $displaynext, + displayprev => $displayprev, + resultsperpage => $resultsperpage, + orderby => $orderby, + startfromnext => $startfrom + 1, + startfromprev => $startfrom - 1, + searchdata => \@field_data, + total => $total, + from => $from, + to => $to, + numbers => \@numbers, + search => $search, + $defaultview => 1, + Search => 0 + ); + + } + else { + ( $template, $loggedinuser, $cookie ) = get_template_and_user( + { + template_name => + "cataloguing/value_builder/unimarc_field_4XX.tmpl", + query => $query, + type => "intranet", + authnotrequired => 1, + } + ); + + my $sth = + $dbh->prepare( + "Select itemtype,description from itemtypes order by description"); $sth->execute; - my @itemtype; + my @itemtype; my %itemtypes; push @itemtype, ""; $itemtypes{''} = ""; - while (my ($value,$lib) = $sth->fetchrow_array) { + while ( my ( $value, $lib ) = $sth->fetchrow_array ) { push @itemtype, $value; - $itemtypes{$value}=$lib; + $itemtypes{$value} = $lib; } - - my $CGIitemtype=CGI::scrolling_list( -name => 'value', - -values => \@itemtype, - -labels => \%itemtypes, - -size => 1, - -multiple => 0 ); + + my $CGIitemtype = CGI::scrolling_list( + -name => 'value', + -values => \@itemtype, + -labels => \%itemtypes, + -size => 1, + -multiple => 0 + ); $sth->finish; - + my @branchloop; my @select_branch; my %select_branches; - my $branches=GetBranches; + my $branches = GetBranches; push @select_branch, ""; $select_branches{''} = ""; - foreach my $thisbranch (keys %$branches){ + foreach my $thisbranch ( keys %$branches ) { push @select_branch, $branches->{$thisbranch}->{'branchcode'}; - $select_branches{$branches->{$thisbranch}->{'branchcode'}} = $branches->{$thisbranch}->{'branchname'}; + $select_branches{ $branches->{$thisbranch}->{'branchcode'} } = + $branches->{$thisbranch}->{'branchname'}; } - my $CGIbranch=CGI::scrolling_list( -name => 'value', - -values => \@select_branch, - -labels => \%select_branches, - -size => 1, - -multiple => 0 ); + my $CGIbranch = CGI::scrolling_list( + -name => 'value', + -values => \@select_branch, + -labels => \%select_branches, + -size => 1, + -multiple => 0 + ); $sth->finish; - - my $req = $dbh->prepare("select distinctrow left(publishercode,45) from biblioitems order by publishercode"); + + my $req = + $dbh->prepare( +"select distinctrow left(publishercode,45) from biblioitems order by publishercode" + ); $req->execute; my @select; - push @select,""; - while (my ($value) =$req->fetchrow) { + push @select, ""; + while ( my ($value) = $req->fetchrow ) { push @select, $value; } - my $CGIpublisher=CGI::scrolling_list( -name => 'value', - -id => 'publisher', - -values => \@select, - -size => 1, - -multiple => 0 ); - + my $CGIpublisher = CGI::scrolling_list( + -name => 'value', + -id => 'publisher', + -values => \@select, + -size => 1, + -multiple => 0 + ); + # my $sth=$dbh->prepare("select description,itemtype from itemtypes order by description"); # $sth->execute; # while (my ($description,$itemtype) = $sth->fetchrow) { # $classlist.="\n"; # } # $sth->finish; - - $template->param(#classlist => $classlist, - CGIitemtype => $CGIitemtype, - CGIbranch => $CGIbranch, - CGIPublisher => $CGIpublisher, - index=>$query->param('index'), - Search =>1, + + $template->param( #classlist => $classlist, + CGIitemtype => $CGIitemtype, + CGIbranch => $CGIbranch, + CGIPublisher => $CGIpublisher, + index => $query->param('index'), + Search => 1, ); } - output_html_with_http_headers $query, $cookie, $template->output ; + output_html_with_http_headers $query, $cookie, $template->output; } 1; diff --git a/cataloguing/value_builder/unimarc_field_60X.pl b/cataloguing/value_builder/unimarc_field_60X.pl index 3889e2faba..189923cdba 100755 --- a/cataloguing/value_builder/unimarc_field_60X.pl +++ b/cataloguing/value_builder/unimarc_field_60X.pl @@ -29,89 +29,105 @@ use C4::Output; use C4::Authorities; sub plugin_javascript { -my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; -my $function_name= "100".(int(rand(100000))+1); -my $res=" - -"; + } + + "; -return ($function_name,$res); + return ( $function_name, $res ); } + sub plugin { - my ($input) = @_; - my $dbh = C4::Context->dbh; - my $index= $input->param('index'); - my $result= $input->param('result'); - my $search_string= $input->param('search_string'); - my $op = $input->param('op'); - my $id = $input->param('id'); - my $insert = $input->param('insert'); - my %stdlib; - my $select_list; - if ($op eq "add") { - newauthority($dbh,'NC',$insert,$insert,'',1,''); - $search_string=$insert; - } - if ($op eq "select") { - my $sti = $dbh->prepare("select stdlib from bibliothesaurus where id=?"); - $sti->execute($id); - my ($freelib_text) = $sti->fetchrow_array; - $result = $freelib_text; - } - my $Rsearch_string="$search_string%"; - my $authoritysep = C4::Context->preference('authoritysep'); - my @splitted = /$authoritysep/,$search_string; - my $level = $#splitted+1; - my $sti; - if ($search_string) { # if no search pattern, returns only the 50 1st top level values - $sti=$dbh->prepare("select distinct freelib,father,level from bibliothesaurus where category='NC' and freelib like ? order by father,freelib"); - } else { - $sti=$dbh->prepare("select distinct freelib,father,level from bibliothesaurus where category='NC' and level=0 and freelib like ? order by father,freelib limit 0,50"); - } - $sti->execute($Rsearch_string); - my @results; - while (my ($freelib,$father,$level)=$sti->fetchrow) { - my %line; - if ($father) { - $line{value} = "$father $freelib"; - } else { - $line{value} = "$freelib"; - } - $line{level} = $level+1; - $line{father} = $father; - push @results, \%line; - } - my @DeeperResults = SearchDeeper('NC',$search_string); - my ($template, $loggedinuser, $cookie) - = get_template_and_user({template_name => "cataloguing/value_builder/unimarc_field_60X.tmpl", - query => $input, - type => "intranet", - authnotrequired => 0, - flagsrequired => {editcatalogue => 1}, - debug => 1, - }); + my ($input) = @_; + my $dbh = C4::Context->dbh; + my $index = $input->param('index'); + my $result = $input->param('result'); + my $search_string = $input->param('search_string'); + my $op = $input->param('op'); + my $id = $input->param('id'); + my $insert = $input->param('insert'); + my %stdlib; + my $select_list; + + if ( $op eq "add" ) { + newauthority( $dbh, 'NC', $insert, $insert, '', 1, '' ); + $search_string = $insert; + } + if ( $op eq "select" ) { + my $sti = + $dbh->prepare("select stdlib from bibliothesaurus where id=?"); + $sti->execute($id); + my ($freelib_text) = $sti->fetchrow_array; + $result = $freelib_text; + } + my $Rsearch_string = "$search_string%"; + my $authoritysep = C4::Context->preference('authoritysep'); + my @splitted = /$authoritysep/, $search_string; + my $level = $#splitted + 1; + my $sti; + if ($search_string) + { # if no search pattern, returns only the 50 1st top level values + $sti = + $dbh->prepare( +"select distinct freelib,father,level from bibliothesaurus where category='NC' and freelib like ? order by father,freelib" + ); + } + else { + $sti = + $dbh->prepare( +"select distinct freelib,father,level from bibliothesaurus where category='NC' and level=0 and freelib like ? order by father,freelib limit 0,50" + ); + } + $sti->execute($Rsearch_string); + my @results; + while ( my ( $freelib, $father, $level ) = $sti->fetchrow ) { + my %line; + if ($father) { + $line{value} = "$father $freelib"; + } + else { + $line{value} = "$freelib"; + } + $line{level} = $level + 1; + $line{father} = $father; + push @results, \%line; + } + my @DeeperResults = SearchDeeper( 'NC', $search_string ); + my ( $template, $loggedinuser, $cookie ) = get_template_and_user( + { + template_name => "cataloguing/value_builder/unimarc_field_60X.tmpl", + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => { editcatalogue => 1 }, + debug => 1, + } + ); + # builds collection list : search isbn and editor, in parent, then load collections from bibliothesaurus table - $template->param(index => $index, - result =>$result, - search_string => $search_string?$search_string:$result, - results => \@results, - deeper => \@DeeperResults, - ); - output_html_with_http_headers $input, $cookie, $template->output; + $template->param( + index => $index, + result => $result, + search_string => $search_string ? $search_string : $result, + results => \@results, + deeper => \@DeeperResults, + ); + output_html_with_http_headers $input, $cookie, $template->output; } 1; diff --git a/cataloguing/value_builder/unimarc_field_700-4.pl b/cataloguing/value_builder/unimarc_field_700-4.pl index a970f710b5..224f3273fb 100755 --- a/cataloguing/value_builder/unimarc_field_700-4.pl +++ b/cataloguing/value_builder/unimarc_field_700-4.pl @@ -45,7 +45,7 @@ This plug-in deals with unimarc field 700-4 ( sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; -my $function_name= "7004".(int(rand(100000))+1); +my $function_name= $field_number; my $res = " diff --git a/cataloguing/value_builder/unimarc_leader.pl b/cataloguing/value_builder/unimarc_leader.pl index 74500aa199..05a0a5e5c8 100755 --- a/cataloguing/value_builder/unimarc_leader.pl +++ b/cataloguing/value_builder/unimarc_leader.pl @@ -32,72 +32,78 @@ use C4::Output; plugin_parameters : other parameters added when the plugin is called by the dopop function =cut + sub plugin_parameters { -my ($dbh,$record,$tagslib,$i,$tabloop) = @_; -return ""; + my ( $dbh, $record, $tagslib, $i, $tabloop ) = @_; + return ""; } sub plugin_javascript { -my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; -my $function_name= "100".(int(rand(100000))+1); -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/unimarc_leader.tmpl", - query => $input, - type => "intranet", - authnotrequired => 0, - flagsrequired => {editcatalogue => 1}, - debug => 1, - }); - $result = " nam 3 " 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; + 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/unimarc_leader.tmpl", + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => { editcatalogue => 1 }, + debug => 1, + } + ); + $result = " nam 3 " 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; } 1; diff --git a/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_100.tmpl b/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_100.tmpl index 1e5028fb23..72fc2690f1 100644 --- a/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_100.tmpl +++ b/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_100.tmpl @@ -17,13 +17,12 @@ Code de date de publication "> - + "> Niveau intellectuel ou public destinataire 1 @@ -182,59 +178,58 @@ Niveau intellectuel ou public destinataire 2 @@ -243,59 +238,59 @@ Niveau intellectuel ou public destinataire 3 @@ -304,81 +299,82 @@ Publication officielle @@ -388,21 +384,16 @@ Code de modification de la notice @@ -413,279 +404,306 @@ Langue de catalogage (obligatoire) "> - - - Code de transliteration - Jeux de caracteres (obligatoire) 1 - Jeux de caracteres (obligatoire) 2 - - - Jeu de caracteres additionnels - "> - + Jeu de caracteres additionnels + + "> + Alphabet du titre - - - @@ -693,13 +711,6 @@ diff --git a/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_106.tmpl b/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_106.tmpl index 0895dbacc5..fd6ab0547a 100755 --- a/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_106.tmpl +++ b/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_106.tmpl @@ -13,12 +13,7 @@ Texte presentation physique - - + + - + - + @@ -33,32 +33,27 @@ - - - - - Periodicite - - Regularite - Type d'ouvrage de reference @@ -389,20 +328,19 @@ Nature du contenu - "> + "> Colloque ou congres - - + + - + -x + @@ -460,8 +397,6 @@ x - - @@ -507,12 +442,12 @@ x Existence d'un index - - + + - + - + @@ -657,25 +592,19 @@ x - - - diff --git a/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_115a.tmpl b/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_115a.tmpl index d419f2b5d7..de7fe31f68 100755 --- a/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_115a.tmpl +++ b/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_115a.tmpl @@ -13,11 +13,11 @@ Type de document "> + "> @@ -52,11 +51,11 @@ Couleur - Son - - - - - - + + + + + @@ -184,9 +174,7 @@ - - - + @@ -194,7 +182,6 @@ - @@ -202,8 +189,6 @@ - - @@ -211,7 +196,6 @@ - @@ -219,7 +203,6 @@ - @@ -240,29 +223,22 @@ - - - - - - Largeur ou dimension - - Presentation materielle - - Technique: video, film - + + + + + - @@ -598,17 +515,16 @@ Format du film - - - - - - Materiel d'accompagnement 1 @@ -747,17 +646,16 @@ Materiel d'accompagnement 2 - - Materiel d'accompagnement 3 @@ -898,17 +783,16 @@ Materiel d'accompagnement 4 - - - - - + + + + + - @@ -1003,7 +886,6 @@ - @@ -1017,15 +899,12 @@ - - - @@ -1033,17 +912,16 @@ Format : video @@ -1128,18 +1004,17 @@ Support de l'emulsion - - - - - - + + + + + + @@ -1264,12 +1139,11 @@ Normes de diffusion des enregistrements video - diff --git a/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_120.tmpl b/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_120.tmpl index 61edaec4b8..476456a728 100755 --- a/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_120.tmpl +++ b/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_120.tmpl @@ -13,11 +13,6 @@ Indicateur de couleur: - - - - - + - + @@ -192,9 +178,9 @@ - - - - - + + + + + + + @@ -361,11 +349,12 @@ Code de representation du relief 4: - - - - - + @@ -534,21 +519,12 @@ Lambert - - - - - - - - - @@ -556,11 +532,6 @@ - - - - - @@ -768,21 +739,15 @@ - - - - - - - Meridien de reference 1: + Meridien de reference 1: - - Meridien de reference 2: - - - - - diff --git a/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_121a.tmpl b/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_121a.tmpl index 311c35ce01..01bb0b1d29 100755 --- a/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_121a.tmpl +++ b/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_121a.tmpl @@ -13,11 +13,7 @@ Dimensions physiques: + - + - + - Image cartographique originale 2: + Image cartographique originale 2: Support physique: - - - - - @@ -246,9 +230,9 @@ - + - + @@ -278,11 +262,6 @@ Forme de reproduction: - - - - - - + - + - + - + - + - + - + - + @@ -352,11 +322,6 @@ Forme materielle d'edition: - - - - - @@ -36,15 +31,16 @@ - + - diff --git a/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_123d.tmpl b/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_123d.tmpl index b6564ddda6..683f6a589a 100755 --- a/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_123d.tmpl +++ b/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_123d.tmpl @@ -13,11 +13,7 @@ Hemisphere: - diff --git a/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_123e.tmpl b/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_123e.tmpl index ff1a982516..177af4eaba 100755 --- a/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_123e.tmpl +++ b/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_123e.tmpl @@ -13,11 +13,7 @@ Hemisphere: - diff --git a/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_123f.tmpl b/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_123f.tmpl index b38a5e97d8..58673d8b9e 100755 --- a/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_123f.tmpl +++ b/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_123f.tmpl @@ -12,12 +12,7 @@ Hemisphere: - @@ -59,23 +54,21 @@ - diff --git a/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_123g.tmpl b/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_123g.tmpl index 7afdfdc6f1..c1657583f6 100755 --- a/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_123g.tmpl +++ b/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_123g.tmpl @@ -13,11 +13,7 @@ Hemisphere: - diff --git a/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_124a.tmpl b/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_124a.tmpl index cceba5c7f4..c4e24700f1 100755 --- a/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_124a.tmpl +++ b/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_124a.tmpl @@ -13,11 +13,6 @@ Origine de l'image: - diff --git a/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_124b.tmpl b/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_124b.tmpl index 1827d6bd6e..1c51b72679 100755 --- a/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_124b.tmpl +++ b/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_124b.tmpl @@ -13,11 +13,7 @@ Forme du document cartographique: - diff --git a/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_124c.tmpl b/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_124c.tmpl index 5f121fd8b0..f7a56570fe 100755 --- a/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_124c.tmpl +++ b/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_124c.tmpl @@ -13,11 +13,7 @@ Presentation technique dans le cas d'images photographiques ou non photographiques: - diff --git a/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_124d.tmpl b/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_124d.tmpl index 9ef12184e9..75cc447f77 100755 --- a/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_124d.tmpl +++ b/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_124d.tmpl @@ -13,11 +13,6 @@ Position de la base pour les images photographiques ou de teledetection: - diff --git a/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_124e.tmpl b/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_124e.tmpl index ca473bc56a..cc569019a6 100755 --- a/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_124e.tmpl +++ b/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_124e.tmpl @@ -13,11 +13,7 @@ Categorie du satellite pour la teledetection: - + - diff --git a/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_124f.tmpl b/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_124f.tmpl index 6e9d46d451..c3d7598e1b 100755 --- a/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_124f.tmpl +++ b/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_124f.tmpl @@ -13,11 +13,6 @@ Nom du satellite pour la teledetection: - diff --git a/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_124g.tmpl b/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_124g.tmpl index 2bc247f54b..21f9e03bfe 100755 --- a/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_124g.tmpl +++ b/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_124g.tmpl @@ -13,11 +13,7 @@ Technique d'enregistrement pour les images de teledetection: - diff --git a/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_125a.tmpl b/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_125a.tmpl index 4eb652a7bf..61be994da9 100755 --- a/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_125a.tmpl +++ b/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_125a.tmpl @@ -13,11 +13,6 @@ Type de partition: - - - - - + @@ -104,14 +95,16 @@ - + diff --git a/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_125b.tmpl b/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_125b.tmpl index a557737e01..dd96b3c4b1 100755 --- a/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_125b.tmpl +++ b/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_125b.tmpl @@ -10,13 +10,13 @@
- +
Forme du document cartographique:Type de texte écrit:
- diff --git a/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_126a.tmpl b/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_126a.tmpl index 3d6dd8cf78..c3de60b7ef 100755 --- a/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_126a.tmpl +++ b/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_126a.tmpl @@ -13,11 +13,7 @@ Presentation materielle: - - - - - @@ -175,11 +166,6 @@ Type de son: - - - - - @@ -247,11 +228,6 @@ Dimension materielle: - - - - - + @@ -384,11 +356,7 @@ Specifications de la bande magnetique: - + - + @@ -536,10 +504,11 @@ Texte d'accompagnement 2: + - + - + @@ -708,10 +678,11 @@ Texte d'accompagnement 4: - - - - - + + + + + @@ -880,11 +851,12 @@ Texte d'accompagnement 6: - - - - - @@ -1002,11 +969,6 @@ Technique de reproduction: - diff --git a/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_126b.tmpl b/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_126b.tmpl index b654a23095..47d952b124 100755 --- a/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_126b.tmpl +++ b/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_126b.tmpl @@ -13,11 +13,7 @@ Type de disque, cylindre ou bande magnetique: - - - - - + @@ -155,11 +147,6 @@ Type de gravure: - - - - - @@ -373,14 +368,14 @@ - diff --git a/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_128b.tmpl b/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_128b.tmpl index e357b0c658..59dd3febb5 100755 --- a/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_128b.tmpl +++ b/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_128b.tmpl @@ -13,11 +13,12 @@ Instruments ou voix dans un ensemble: - - - - - + @@ -463,13 +459,13 @@ - diff --git a/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_130.tmpl b/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_130.tmpl index e2ae282598..d19a806baa 100755 --- a/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_130.tmpl +++ b/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_130.tmpl @@ -13,11 +13,6 @@ Presentation materielle: - - - - - + @@ -100,10 +91,11 @@ Dimensions: - - - - - + - - - - - @@ -250,11 +232,6 @@ value=""> Emulsion: - - - - - @@ -332,11 +304,6 @@ value=""> Support de film: - diff --git a/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_135a.tmpl b/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_135a.tmpl index f173ec5d46..1140c884a0 100755 --- a/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_135a.tmpl +++ b/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_135a.tmpl @@ -13,10 +13,11 @@ Type de fichier informatique: - diff --git a/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_140.tmpl b/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_140.tmpl index 07b98ac2be..c895786051 100755 --- a/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_140.tmpl +++ b/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_140.tmpl @@ -14,9 +14,9 @@ - + - + @@ -153,9 +153,9 @@ - + - + @@ -202,9 +202,9 @@ + - + - + @@ -341,9 +342,9 @@ - + - + @@ -390,10 +391,11 @@ Illustration hors texte 1: + - + - + @@ -497,7 +500,7 @@ - @@ -529,10 +532,11 @@ Illustration hors texte 3: + - + - + @@ -636,7 +641,7 @@ - @@ -667,15 +672,16 @@ Illustration technique: + - + - + @@ -870,10 +877,11 @@ Type d'ouvrage de reference 2: + - + - + @@ -1178,10 +1187,11 @@ Type d'ouvrage de reference 4: + - + - + @@ -1382,11 +1393,19 @@ + + + + + + + + @@ -1463,9 +1482,9 @@ - + - + @@ -1492,10 +1511,11 @@ Biographie: + - + - + @@ -1576,11 +1597,13 @@ Support materiel - Planche: - - - - - + @@ -1640,11 +1659,7 @@ Marque d'imprimeur: - - - - - + @@ -1684,11 +1695,7 @@ Marque decorative: - diff --git a/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_141.tmpl b/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_141.tmpl index b4fc4d325f..35d96df527 100755 --- a/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_141.tmpl +++ b/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_141.tmpl @@ -13,10 +13,11 @@ Materiau de reliure 1: + - + - + @@ -119,15 +121,16 @@ - + + Materiau de reliure 3: - - - - - + @@ -227,11 +226,7 @@ Relie avec: - - - - - + @@ -290,11 +281,7 @@ Etat de conservation - livre 1 : - - - - - + @@ -375,16 +358,18 @@ - + - diff --git a/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_210c.tmpl b/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_210c.tmpl index 6497a268be..25eec12df8 100644 --- a/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_210c.tmpl +++ b/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_210c.tmpl @@ -1,7 +1,6 @@ -

Authority search results

@@ -110,7 +109,10 @@ function report(index,summary) { var regexp= /(\d* -+ *)(.*)/; var result=summary.match(regexp); - opener.document.f.field_value[index].value=result[2]; + var doc = opener.document; + var field = doc.getElementById(""); + + field.value = result[2]; self.close(); } diff --git a/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_225a.tmpl b/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_225a.tmpl index aed2c5072b..19ffb5a114 100644 --- a/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_225a.tmpl +++ b/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_225a.tmpl @@ -1,23 +1,26 @@ - -UNIMARC_Field 225a builder - + UNIMARC_Field 225a builder + -
-
-

Collection

-

-

-
-
- - +
+
+

Collection

+

+

+
+
+ + + + \ No newline at end of file diff --git a/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_4XX.tmpl b/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_4XX.tmpl index 9ef1058c10..addd0bb2c8 100644 --- a/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_4XX.tmpl +++ b/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_4XX.tmpl @@ -1,190 +1,103 @@ - - - - - - - - + +Koha › Cataloging › 4XX plugin + + - - + - KOHA:INTRANET_:_Biblio_Search - - - - /includes/intranet.css"> - - - - - - -

Logged in as: [Log Out]

- -

Log In to Koha

- -

KOHA : INTRANET : Catalogue

-
- - + + + diff --git a/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_60X.tmpl b/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_60X.tmpl index ecf0b7d4f5..bf51d7a119 100644 --- a/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_60X.tmpl +++ b/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_60X.tmpl @@ -7,22 +7,24 @@ Thesaurus_search - -
diff --git a/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_700-4.tmpl b/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_700-4.tmpl index 5c88b2454f..188248aad5 100644 --- a/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_700-4.tmpl +++ b/koha-tmpl/intranet-tmpl/prog/en/cataloguing/value_builder/unimarc_field_700-4.tmpl @@ -7,7 +7,7 @@ UNIMARC_constructeur champ 700-4 -

Sélectionnez la valeur pour le champ 700 $4. Elle sera automatiquement reportée dans la zone 700 $8 qui suit.

+

Sélectionnez la valeur pour le champ 700 $4. Elle sera automatiquement reportée dans la zone 700 $8 qui suit.

@@ -15,7 +15,7 @@ - + @@ -26,7 +26,10 @@ -- 2.20.1