[Koha-cvs] CVS: koha/admin marc_subfields_structure.pl,1.10,1.11

[Paul POULAIN]

Update of /cvsroot/koha/koha/admin
In directory sc8-pr-cvs1:/tmp/cvs-serv28776/admin

Modified Files:
	marc_subfields_structure.pl 
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: marc_subfields_structure.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/marc_subfields_structure.pl,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -r1.10 -r1.11
*** marc_subfields_structure.pl	2 Feb 2003 07:18:38 -0000	1.10
--- marc_subfields_structure.pl	12 Feb 2003 11:01:04 -0000	1.11
***************
*** 255,258 ****
--- 255,259 ----
  		my $tagfield			=$input->param('tagfield');
  		my $tagsubfield		=$tagsubfield[$i];
+ 		$tagsubfield="@" unless $tagsubfield;
  		my $liblibrarian		=$liblibrarian[$i];
  		my $libopac			=$libopac[$i];
***************
*** 264,268 ****
  		my $thesaurus_category		=$thesaurus_category[$i];
  		my $value_builder=$value_builder[$i];
! 		if ($tagsubfield) {
  			$sth->execute ($tagfield,
  								$tagsubfield,
--- 265,269 ----
  		my $thesaurus_category		=$thesaurus_category[$i];
  		my $value_builder=$value_builder[$i];
! 		if ($liblibrarian) {
  			$sth->execute ($tagfield,
  								$tagsubfield,