[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);