[Koha-cvs] CVS: koha/C4 Biblio.pm,1.71,1.72

[Paul POULAIN]

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

Modified Files:
	Biblio.pm 
Log Message:
fix for #385

Index: Biblio.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Biblio.pm,v
retrieving revision 1.71
retrieving revision 1.72
diff -C2 -r1.71 -r1.72
*** Biblio.pm	24 Nov 2003 16:28:49 -0000	1.71
--- Biblio.pm	24 Nov 2003 17:40:14 -0000	1.72
***************
*** 443,452 ****
  	}
  	# the last has not been included inside the loop... do it now !
! 	if ($prevtag <10) {
!  		$record->add_fields($prevtag,$prevvalue);
!  	} else {
! #  		my $field = MARC::Field->new( $prevtag, "", "", %subfieldlist);
!  		$record->add_fields($field);
!  	}
  	return $record;
  }
--- 443,456 ----
  	}
  	# the last has not been included inside the loop... do it now !
! 	if ($prevtag ne "XXX") { # check that we have found something. Otherwise, prevtag is still XXX and we
! 						# must return an empty record, not make MARC::Record fail because we try to
! 						# create a record with XXX as field :-(
! 		if ($prevtag <10) {
! 			$record->add_fields($prevtag,$prevvalue);
! 		} else {
! 	#  		my $field = MARC::Field->new( $prevtag, "", "", %subfieldlist);
! 			$record->add_fields($field);
! 		}
! 	}
  	return $record;
  }
***************
*** 2210,2213 ****
--- 2214,2220 ----
  # $Id$
  # $Log$
+ # Revision 1.72  2003/11/24 17:40:14  tipaul
+ # fix for #385
+ #
  # Revision 1.71  2003/11/24 16:28:49  tipaul
  # biblio & item deletion now works fine in MARC editor.