Leader builder

From d4241eeeda6ac2a271f20638c3c1d33b88972b3b Mon Sep 17 00:00:00 2001 From: Jane Wagner Date: Sat, 18 Apr 2009 15:53:04 -0400 Subject: [PATCH] Bug 3013 Fix for 007 value builder to include all material types Delivered version only had Text material type; this patch includes all 14 material types with appropriate values for each. Signed-off-by: Galen Charlton --- cataloguing/value_builder/marc21_field_007.pl | 135 +- .../value_builder/marc21_field_007.tmpl | 5499 ++++++++++++++++- 2 files changed, 5534 insertions(+), 100 deletions(-) diff --git a/cataloguing/value_builder/marc21_field_007.pl b/cataloguing/value_builder/marc21_field_007.pl index c2c5770474..9969f29496 100755 --- a/cataloguing/value_builder/marc21_field_007.pl +++ b/cataloguing/value_builder/marc21_field_007.pl @@ -1,5 +1,6 @@ #!/usr/bin/perl + # Copyright 2000-2002 Katipo Communications # # This file is part of Koha. @@ -32,14 +33,14 @@ plugin_parameters : other parameters added when the plugin is called by the dopo =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 = $field_number; - my $res = " +my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; +my $function_name= $field_number; +my $res=" "; - return ($function_name, $res); +return ($function_name,$res); } - sub plugin { - my ($input) = @_; - my $index = $input->param('index'); - my $result = $input->param('result'); - - my $dbh = C4::Context->dbh; - - my ($template, $loggedinuser, $cookie) = get_template_and_user( - { template_name => "cataloguing/value_builder/marc21_field_007.tmpl", - query => $input, - type => "intranet", - authnotrequired => 0, - flagsrequired => { editcatalogue => 1 }, - debug => 1, - } - ); - $result = "ta" unless $result; - my $f0 = substr($result, 0, 1); - my $f1 = substr($result, 1, 4); - - $template->param( - index => $index, - f0 => $f0, - "f0$f0" => $f0, - f1 => $f1, - "f1$f1" => $f1, - ); - output_html_with_http_headers $input, $cookie, $template->output; +my ($input) = @_; + my $index= $input->param('index'); + my $result= $input->param('result'); + + + my $dbh = C4::Context->dbh; + +my ($template, $loggedinuser, $cookie) + = get_template_and_user({template_name => "cataloguing/value_builder/marc21_field_007.tmpl", + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => {editcatalogue => 1}, + debug => 1, + }); + $result = "ta" unless $result; + my $f0 = substr($result,0,1); + my $f1 = substr($result,1,4); +#added new parameters to allow for all material types + my $f2 = substr($result,2,1); + my $f3 = substr($result,3,1); + my $f4 = substr($result,4,1); + my $f5 = substr($result,5,1); + my $f6 = substr($result,6,1); + my $f7 = substr($result,7,1); + my $f8 = substr($result,8,1); + my $f9 = substr($result,9,1); + my $f10 = substr($result,10,1); + my $f11 = substr($result,11,1); + my $f12 = substr($result,12,1); + my $f13 = substr($result,13,1); + my $f14 = substr($result,14,1); + my $f15 = substr($result,15,1); + my $f16 = substr($result,16,1); + my $f17 = substr($result,17,1); + my $f18 = substr($result,18,1); + my $f19 = substr($result,19,1); + my $f20 = substr($result,20,1); + my $f21 = substr($result,21,1); + my $f22 = substr($result,22,1); +#FIXME: There is probably a more-elegant way to do this! +#FIXME: Two of the material types treat position 06, 07, and 08 as a single +#three-char field. This script works fine for creating values and sending them +#back to the MARC, but if there is already a value in the 007, it won't send +#it properly to the value builder for those two instances. Not sure how to solve. + $template->param( index => $index, + f0 => $f0, + "f0$f0" => $f0, + f1 => $f1, + "f1$f1" => $f1, + f2 => $f2, + "f2$f2" => $f2, + f3 => $f3, + "f3$f3" => $f3, + f4 => $f4, + "f4$f4" => $f4, + f5 => $f5, + "f5$f5" => $f5, + f6 => $f6, + "f6$f6" => $f6, + f7 => $f7, + "f7$f7" => $f7, + f8 => $f8, + "f8$f8" => $f8, + f9 => $f9, + "f9$f9" => $f9, + f10 => $f10, + "f10$f10" => $f10, + f11 => $f11, + "f11$f11" => $f11, + f12 => $f12, + "f12$f12" => $f12, + f13 => $f13, + "f13$f13" => $f13, + f14 => $f14, + "f14$f14" => $f14, + f15 => $f15, + "f15$f15" => $f15, + f16 => $f16, + "f16$f16" => $f16, + f17 => $f17, + "f17$f17" => $f17, + f18 => $f18, + "f18$f18" => $f18, + f19 => $f19, + "f19$f19" => $f19, + f20 => $f20, + "f20$f20" => $f20, + f21 => $f21, + "f21$f21" => $f21, + f22 => $f22, + "f22$f22" => $f22, + ); + output_html_with_http_headers $input, $cookie, $template->output; } 1; diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/cataloguing/value_builder/marc21_field_007.tmpl b/koha-tmpl/intranet-tmpl/prog/en/modules/cataloguing/value_builder/marc21_field_007.tmpl index 61a6c8fbfd..43316021b2 100644 --- a/koha-tmpl/intranet-tmpl/prog/en/modules/cataloguing/value_builder/marc21_field_007.tmpl +++ b/koha-tmpl/intranet-tmpl/prog/en/modules/cataloguing/value_builder/marc21_field_007.tmpl @@ -1,83 +1,5450 @@ -Leader builder +007 Leader builder - -

+');"> + - - - - - - - - - - - - + + + + + + + +

00 Category of material	- -
01 Specific material designation	- -

Material Type	+

+ + +

-- 2.39.5