[Koha-cvs] CVS: koha/C4 Biblio.pm,1.57,1.58

[Paul POULAIN]

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

Modified Files:
	Biblio.pm 
Log Message:
fix for publicationyear : extracting numeric value from MARC string, like for copyrightdate.
(note that copyrightdate still extracted to get numeric format)

Index: Biblio.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Biblio.pm,v
retrieving revision 1.57
retrieving revision 1.58
diff -C2 -r1.57 -r1.58
*** Biblio.pm	15 Jul 2003 23:09:18 -0000	1.57
--- Biblio.pm	6 Aug 2003 12:54:52 -0000	1.58
***************
*** 2,5 ****
--- 2,9 ----
  # $Id$
  # $Log$
+ # Revision 1.58  2003/08/06 12:54:52  tipaul
+ # fix for publicationyear : extracting numeric value from MARC string, like for copyrightdate.
+ # (note that copyrightdate still extracted to get numeric format)
+ #
  # Revision 1.57  2003/07/15 23:09:18  slef
  # change show columns to use biblioitems bnotes too
***************
*** 1120,1123 ****
--- 1124,1136 ----
  		$temp =~ m/(\d\d\d\d)/;
  		$result->{'copyrightdate'} = $1;
+ 	}
+ # modify publicationyear to keep only the 1st year found
+ 	my $temp = $result->{'publicationyear'};
+ 	$temp =~ m/c(\d\d\d\d)/; # search cYYYY first
+ 	if ($1>0) {
+ 		$result->{'publicationyear'} = $1;
+ 	} else { # if no cYYYY, get the 1st date.
+ 		$temp =~ m/(\d\d\d\d)/;
+ 		$result->{'publicationyear'} = $1;
  	}
  	return $result;