From b0070f2fad5a19ce198fa4aaefbf3e00fc15b007 Mon Sep 17 00:00:00 2001 From: kados Date: Mon, 10 Jul 2006 17:21:34 +0000 Subject: [PATCH] just cleaning up tabs in the script, no code changes --- value_builder/marc21_field_008.pl | 42 +++++++++++++++++-------------- 1 file changed, 23 insertions(+), 19 deletions(-) diff --git a/value_builder/marc21_field_008.pl b/value_builder/marc21_field_008.pl index 73019ac537..e68f5234be 100644 --- a/value_builder/marc21_field_008.pl +++ b/value_builder/marc21_field_008.pl @@ -37,15 +37,16 @@ my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); $year +=1900; $mon +=1; my $dateentered = substr($year,2,2).sprintf ("%0.2d", $mon).sprintf ("%0.2d",$mday); + 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= "100".(int(rand(100000))+1); + my $res=" "; -return ($function_name,$res); + return ($function_name,$res); } + sub plugin { -my ($input) = @_; + my ($input) = @_; my %env; # my $input = new CGI; @@ -83,7 +85,7 @@ my ($input) = @_; my $dbh = C4::Context->dbh; -my ($template, $loggedinuser, $cookie) + my ($template, $loggedinuser, $cookie) = get_template_and_user({template_name => "value_builder/marc21_field_008.tmpl", query => $input, type => "intranet", @@ -112,11 +114,13 @@ my ($template, $loggedinuser, $cookie) my $f38 = substr($result,38,1); my $f39 = substr($result,39,1); -if (!$f1){ - $f1=$dateentered -} + if (!$f1){ + $f1=$dateentered + } - $template->param( index => $index, + $template->param( + + index => $index, f1 => $f1, f6 => $f6, "f6$f6" => $f6, @@ -127,21 +131,21 @@ if (!$f1){ f22 => $f22, "f22$f22" => $f22, f23 => $f23, - "f23$f23" => $f23, + "f23$f23" => $f23, f2427 => $f2427, "f24$f2427" => $f2427, f28 => $f28, - "f28$f28" => $f28, + "f28$f28" => $f28, f29 => $f29, - "f29$f29" => $f29, + "f29$f29" => $f29, f30 => $f30, - "f230$f30" => $f30, + "f230$f30" => $f30, f31 => $f31, - "f31$f31" => $f31, + "f31$f31" => $f31, f33 => $f33, - "f33$f33" => $f33, + "f33$f33" => $f33, f34 => $f34, - "f34$f34" => $f34, + "f34$f34" => $f34, f3537 => $f3537, f38 => $f38, "f38$f38" => $f38,