[Koha-cvs] CVS: koha/C4 Biblio.pm,1.36,1.37

[Paul POULAIN]

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

Modified Files:
        Biblio.pm 
Log Message:
Support for 000 -> 010 fields.
Those fields doesn't have subfields.
In koha, we will use a specific "trick" : fields <10 will have a "virtual" 
subfield : "@".
Note it's only virtual : when rebuilding the MARC::Record, the koha API handle 
correctly "@" subfields => the resulting MARC record has a 00x field without 
subfield.

Index: Biblio.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Biblio.pm,v
retrieving revision 1.36
retrieving revision 1.37
diff -C2 -r1.36 -r1.37
*** Biblio.pm   12 Feb 2003 11:01:01 -0000      1.36
--- Biblio.pm   12 Feb 2003 11:03:03 -0000      1.37
***************
*** 2,5 ****
--- 2,11 ----
  # $Id$
  # $Log$
+ # Revision 1.37  2003/02/12 11:03:03  tipaul
+ # Support for 000 -> 010 fields.
+ # Those fields doesn't have subfields.
+ # In koha, we will use a specific "trick" : fields <10 will have a "virtual" 
subfield : "@".
+ # Note it's only virtual : when rebuilding the MARC::Record, the koha API 
handle correctly "@" subfields => the resulting MARC record has a 00x field 
without subfield.
+ #
  # Revision 1.36  2003/02/12 11:01:01  tipaul
  # Support for 000 -> 010 fields.
***************
*** 592,596 ****
                        my $field;
                        if ($prevtag <10) {
-                               warn "add < $prevtag";
                                $record->add_fields((sprintf 
"%03s",$prevtag),%subfieldlist->{'@'});
                        } else {
--- 598,601 ----
***************
*** 743,749 ****
  #                                     warn "changing : $subfieldid, 
$bibid,".$field->tag(),",$tagorder,@$subfield[0],@$subfield[1],$subfieldorder";
                                        
&MARCmodsubfield($dbh,$subfieldid,@$subfield[1]);
-                               } else {
- #FIXME ???
-                                       warn "nothing to change : 
".$oldfield->subfield(@$subfield[0]);
                                }
                        }
--- 748,751 ----
***************
*** 954,958 ****
        my ($dbh,$rtags,$rsubfields,$rvalues,%indicators) = @_;
        my $prevtag = @$rtags[0];
-       warn "prev : $prevtag";
        my $record = MARC::Record->new();
        my %subfieldlist={};
--- 956,959 ----