[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: |
Sun, 02 Apr 2006 14:52:23 +0000 |
CVSROOT: /sources/koha
Module name: koha
Branch: rel_2_2
Changes by: Joshua Ferraro <address@hidden> 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,
- [Koha-cvs] koha/value_builder marc21_field_008.pl [rel_2_2],
Joshua Ferraro <=