[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>   07/01/31 15:22:41

Modified files:
        cataloguing/value_builder: unimarc_field_100.pl 

Log message:
        publicationdate set to null if empty, instead of 4 spaces (easier to 
type). If let empty, it will be filled by spaces later

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.7&r2=1.1.2.8

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.7
retrieving revision 1.1.2.8
diff -u -b -r1.1.2.7 -r1.1.2.8
--- unimarc_field_100.pl        18 Dec 2006 16:35:18 -0000      1.1.2.7
+++ unimarc_field_100.pl        31 Jan 2007 15:22:41 -0000      1.1.2.8
@@ -1,7 +1,7 @@
 
 #!/usr/bin/perl
 
-# $Id: unimarc_field_100.pl,v 1.1.2.7 2006/12/18 16:35:18 toins Exp $
+# $Id: unimarc_field_100.pl,v 1.1.2.8 2007/01/31 15:22:41 tipaul Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -87,11 +87,13 @@
     my $f1 = substr( $result, 0, 8 );
     if ( $f1 eq '        ' ) {
         my @today = Date::Calc::Today();
-        $f1 = $today[0] . $today[1] . $today[2];
+        $f1 = $today[0] . sprintf('%02s',$today[1]) . 
sprintf('%02s',$today[2]);
     }
     my $f2  = substr( $result, 8,  1 );
     my $f3  = substr( $result, 9,  4 );
+    $f3='' if $f3 eq '    '; # empty publication year if only spaces, 
otherwise it's hard to fill the field
     my $f4  = substr( $result, 13, 4 );
+    $f4='' if $f4 eq '    ';
     my $f5  = substr( $result, 17, 1 );
     my $f6  = substr( $result, 18, 1 );
     my $f7  = substr( $result, 19, 1 );