[Koha-cvs] CVS: koha/marc fill_usmarc.pl,1.9,1.10

[Paul POULAIN]

Update of /cvsroot/koha/koha/marc
In directory usw-pr-cvs1:/tmp/cvs-serv17732

Modified Files:
        fill_usmarc.pl 
Log Message:
small fixes : opac lib is the same as librarian lib by default.

Index: fill_usmarc.pl
===================================================================
RCS file: /cvsroot/koha/koha/marc/fill_usmarc.pl,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -r1.9 -r1.10
*** fill_usmarc.pl      11 Oct 2002 13:35:10 -0000      1.9
--- fill_usmarc.pl      11 Oct 2002 14:52:29 -0000      1.10
***************
*** 31,36 ****
  $dbh->do("delete from marc_tag_structure");
  $dbh->do("delete from marc_subfield_structure");
! my $reqtag=$dbh->prepare("insert into marc_tag_structure 
(tagfield,liblibrarian,repeatable) values (?,?,?)");
! my $reqsubfield=$dbh->prepare("insert into marc_subfield_structure 
(tagfield,tagsubfield,liblibrarian,repeatable) values (?,?,?,?)");
  my $description;
  foreach $tag (sort keys %$fields) {
--- 31,36 ----
  $dbh->do("delete from marc_tag_structure");
  $dbh->do("delete from marc_subfield_structure");
! my $reqtag=$dbh->prepare("insert into marc_tag_structure 
(tagfield,liblibrarian,libopac,repeatable) values (?,?,?,?)");
! my $reqsubfield=$dbh->prepare("insert into marc_subfield_structure 
(tagfield,tagsubfield,liblibrarian,libopac,repeatable) values (?,?,?,?,?)");
  my $description;
  foreach $tag (sort keys %$fields) {
***************
*** 38,42 ****
        $fields->{$tag}->{"name"}  =~ s/\(NR\)//g;
        $fields->{$tag}->{"name"}  =~ s/\<a h.*\<\/a>//g;
!       
$reqtag->execute($tag,$fields->{$tag}->{"name"},$fields->{$tag}->{"repeating"});
        foreach $subfield (sort keys %{$fields->{$tag}->{"subfields"}}) {
            if ($fields->{$tag}->{"subfields"}->{$subfield}->{"description"}) {
--- 38,42 ----
        $fields->{$tag}->{"name"}  =~ s/\(NR\)//g;
        $fields->{$tag}->{"name"}  =~ s/\<a h.*\<\/a>//g;
!       
$reqtag->execute($tag,$fields->{$tag}->{"name"},$fields->{$tag}->{"name"},$fields->{$tag}->{"repeating"});
        foreach $subfield (sort keys %{$fields->{$tag}->{"subfields"}}) {
            if ($fields->{$tag}->{"subfields"}->{$subfield}->{"description"}) {
***************
*** 51,54 ****
--- 51,55 ----
                                  $tag,
                                  $subfield,
+                                 $description?$description:"Unknown",
                                  $description?$description:"Unknown",
                                  
$fields->{$tag}->{"subfields"}->{$subfield}->{"repeating"}