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