[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/C4 Biblio.pm,1.51,1.52
From: |
Paul POULAIN |
Subject: |
[Koha-cvs] CVS: koha/C4 Biblio.pm,1.51,1.52 |
Date: |
Thu, 10 Jul 2003 03:37:21 -0700 |
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;
}
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/C4 Biblio.pm,1.51,1.52,
Paul POULAIN <=