[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha/value_builder marc21_field_008.pl [rel_2_2]
From: |
Joshua Ferraro |
Subject: |
[Koha-cvs] koha/value_builder marc21_field_008.pl [rel_2_2] |
Date: |
Mon, 10 Jul 2006 17:21:35 +0000 |
CVSROOT: /sources/koha
Module name: koha
Branch: rel_2_2
Changes by: Joshua Ferraro <kados> 06/07/10 17:21:35
Modified files:
value_builder : marc21_field_008.pl
Log message:
just cleaning up tabs in the script, no code changes
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/value_builder/marc21_field_008.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.1.2.4&r2=1.1.2.5
Patches:
Index: marc21_field_008.pl
===================================================================
RCS file: /sources/koha/koha/value_builder/Attic/marc21_field_008.pl,v
retrieving revision 1.1.2.4
retrieving revision 1.1.2.5
diff -u -b -r1.1.2.4 -r1.1.2.5
--- marc21_field_008.pl 2 Apr 2006 18:33:40 -0000 1.1.2.4
+++ marc21_field_008.pl 10 Jul 2006 17:21:34 -0000 1.1.2.5
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: marc21_field_008.pl,v 1.1.2.4 2006/04/02 18:33:40 kados Exp $
+# $Id: marc21_field_008.pl,v 1.1.2.5 2006/07/10 17:21:34 kados Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -37,15 +37,16 @@
$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 @@
</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 $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 $f38 = substr($result,38,1);
my $f39 = substr($result,39,1);
-if (!$f1){
+ if (!$f1){
$f1=$dateentered
-}
+ }
+
+ $template->param(
- $template->param( index => $index,
+ index => $index,
f1 => $f1,
f6 => $f6,
"f6$f6" => $f6,
- [Koha-cvs] koha/value_builder marc21_field_008.pl [rel_2_2],
Joshua Ferraro <=