[Koha-cvs] koha/value_builder marc21_field_008.pl [rel_2_2]

[Joshua Ferraro]

CVSROOT:	/sources/koha
Module name:	koha
Branch: 	rel_2_2
Changes by:	Joshua Ferraro <kados at savannah.gnu.org>	06/04/02 14:52:23

Modified files:
	value_builder  : marc21_field_008.pl 

Log message:
	adding dateentered ... thanks Tumer

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/koha/value_builder/marc21_field_008.pl.diff?only_with_tag=rel_2_2&tr1=1.1.2.2&tr2=1.1.2.3&r1=text&r2=text

Patches:
Index: koha/value_builder/marc21_field_008.pl
diff -u koha/value_builder/marc21_field_008.pl:1.1.2.2 koha/value_builder/marc21_field_008.pl:1.1.2.3
--- koha/value_builder/marc21_field_008.pl:1.1.2.2	Mon Mar 13 18:37:21 2006
+++ koha/value_builder/marc21_field_008.pl	Sun Apr  2 14:52:23 2006
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: marc21_field_008.pl,v 1.1.2.2 2006/03/13 18:37:21 kados Exp $
+# $Id: marc21_field_008.pl,v 1.1.2.3 2006/04/02 14:52:23 kados Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -33,19 +33,11 @@
 
 =cut
 # find today's date
-my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
-                                                               localtime(time);
-$year = substr($year,1,2);
-$mon +=1;
-my $date = "$year-$mon-$mday";
-my $res  = "";
-if (length($mon)==1) {
-	$mon='0'.$mon;
-}
-if (length($mday)==1) {
-        $mday='0'.$mday;
-}
-my $dateentered = "$year$mon$mday";
+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);
+warn "DATE".$dateentered;
 sub plugin_parameters {
 my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
 return "";
@@ -57,6 +49,13 @@
 my $res="
 <script>
 function Focus$function_name(subfield_managed) {
+    for (i=0 ; i<document.f.field_value.length ; i++) {
+        if (document.f.tag[i].value == '008') {
+            if (!document.f.field_value[i].value) {
+                document.f.field_value[i].value = '$dateentered' + 't        xxu||||| |||| 00| 0 eng d';
+            }
+        }
+    }
 return 1;
 }
 
@@ -94,7 +93,8 @@
 			     debug => 1,
 			     });
 #	$result = "      t        xxu           00  0 eng d" unless $result;
-	$result = "      t        xxu||||| |||| 00| 0 eng d" unless $result;
+	$result = "$dateentered"."t        xxu||||| |||| 00| 0 eng d" unless $result;
+	my $f1 = substr($result,0,6);
 	my $f6 = substr($result,6,1);
 	my $f710 = substr($result,7,4);
 	my $f1114 = substr($result,11,4);
@@ -113,8 +113,12 @@
 	my $f38 = substr($result,38,1);
 	my $f39 = substr($result,39,1);
 
+if (!$f1){
+	$f1=$dateentered
+}
+
 	$template->param(				index => $index,
-							dateentered => $dateentered,
+							f1 => $f1,
 							f6 => $f6,
 							"f6$f6" => $f6,
 							f710 => $f710,