gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

just cleaning up tabs in the script, no code changes

This commit is contained in:
kados 2006-07-10 17:21:34 +00:00
parent d7060add1b
commit b0070f2fad
1 changed files with 23 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
value_builder/marc21_field_008.pl
View File

@ -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="
<script>
function Focus$function_name(subfield_managed) {
for (i=0 ; i<document.f.field_value.length ; i++) {
@ -70,10 +71,11 @@ function Clic$function_name(i) {
</script>
";
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,