[Koha-cvs] CVS: koha/C4 Biblio.pm,1.51,1.52

[Paul POULAIN]

Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1:/tmp/cvs-serv22206/C4

Modified Files:
        Biblio.pm 
Log Message:
fix for copyrightdate problem, #514

Index: Biblio.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Biblio.pm,v
retrieving revision 1.51
retrieving revision 1.52
diff -C2 -r1.51 -r1.52
*** Biblio.pm   2 Jul 2003 14:47:17 -0000       1.51
--- Biblio.pm   10 Jul 2003 10:37:19 -0000      1.52
***************
*** 2,5 ****
--- 2,8 ----
  # $Id$
  # $Log$
+ # Revision 1.52  2003/07/10 10:37:19  tipaul
+ # fix for copyrightdate problem, #514
+ #
  # Revision 1.51  2003/07/02 14:47:17  tipaul
  # fix for #519 : items.dateaccessioned imports incorrectly
***************
*** 1096,1099 ****
--- 1099,1111 ----
        # additional authors : specific
        $result = 
&MARCmarc2kohaOneField($sth,"additionalauthors","additionalauthors",$record,$result);
+ # modify copyrightdate to keep only the 1st year found
+       my $temp = $result->{'copyrightdate'};
+       $temp =~ m/c(\d\d\d\d)/; # search cYYYY first
+       if ($1>0) {
+               $result->{'copyrightdate'} = $1;
+       } else { # if no cYYYY, get the 1st date.
+               $x =~ m/(\d\d\d\d)/;
+               $result->{'copyrightdate'} = $1;
+       }
        return $result;
  }