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