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