[Koha-cvs] koha/cataloguing/value_builder unimarc_field_10... [rel_3_0]

[paul poulain]

CVSROOT:	/sources/koha
Module name:	koha
Branch:		rel_3_0
Changes by:	paul poulain <tipaul>	06/11/22 15:47:50

Modified files:
	cataloguing/value_builder: unimarc_field_100.pl 

Log message:
	defaulting date coded field to today if they are empty

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/value_builder/unimarc_field_100.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.1.2.4&r2=1.1.2.5

Patches:
Index: unimarc_field_100.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/value_builder/Attic/unimarc_field_100.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
--- unimarc_field_100.pl	21 Nov 2006 15:06:32 -0000	1.1.2.4
+++ unimarc_field_100.pl	22 Nov 2006 15:47:50 -0000	1.1.2.5
@@ -1,7 +1,7 @@
 
 #!/usr/bin/perl
 
-# $Id: unimarc_field_100.pl,v 1.1.2.4 2006/11/21 15:06:32 hdl Exp $
+# $Id: unimarc_field_100.pl,v 1.1.2.5 2006/11/22 15:47:50 tipaul Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -82,6 +82,10 @@
 			     });
 	$result='        d        u  y0frey50      ba' unless $result;
 	my $f1 = substr($result,0,8);
+	if ($f1 eq '        ') {
+	   my @today = Date::Calc::Today();
+	   $f1=$today[0].$today[1].$today[2];
+	}
 	my $f2 = substr($result,8,1);
 	my $f3 = substr($result,9,4);
         my $f4 = substr($result,13,4);