[Koha-cvs] CVS: koha/C4 Biblio.pm,1.43,1.44

[Paul POULAIN]

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

Modified Files:
	Biblio.pm 
Log Message:
Those fixes solves the "internal server error" with MARC::Record 1.12.
It was due to an illegal contruction in Koha : we tried to retrive subfields from <10 tags.
That's not possible. MARC::Record accepted this in 0.93 version, but it was fixed after.
Now, the construct/retrieving is OK !

Index: Biblio.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Biblio.pm,v
retrieving revision 1.43
retrieving revision 1.44
diff -C2 -r1.43 -r1.44
*** Biblio.pm	10 Apr 2003 13:56:02 -0000	1.43
--- Biblio.pm	28 Apr 2003 13:07:14 -0000	1.44
***************
*** 2,5 ****
--- 2,11 ----
  # $Id$
  # $Log$
+ # Revision 1.44  2003/04/28 13:07:14  tipaul
+ # Those fixes solves the "internal server error" with MARC::Record 1.12.
+ # It was due to an illegal contruction in Koha : we tried to retrive subfields from <10 tags.
+ # That's not possible. MARC::Record accepted this in 0.93 version, but it was fixed after.
+ # Now, the construct/retrieving is OK !
+ #
  # Revision 1.43  2003/04/10 13:56:02  tipaul
  # Fix some bugs :
***************
*** 632,638 ****
  			$previndicator.="  ";
  			if ($prevtag <10) {
!    				$record->add_fields((sprintf "%03s",$prevtag),$prevvalue);
  			} else {
! 				$record->add_fields($field);
  			}
  			undef $field;
--- 638,644 ----
  			$previndicator.="  ";
  			if ($prevtag <10) {
!  			$record->add_fields((sprintf "%03s",$prevtag),$prevvalue) unless $prevtag eq "XXX"; # ignore the 1st loop
  			} else {
! 				$record->add_fields($field) unless $prevtag eq "XXX";
  			}
  			undef $field;
***************
*** 750,755 ****
  		return;
  	}
- #	warn "MARCmoditem : ".$record->as_formatted;
- #	warn "OLD : ".$oldrecord->as_formatted;
  
  	# otherwise, skip through each subfield...
--- 756,759 ----