[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.