From afb916d6d4566cb1c46b389437b8b2113fe61df6 Mon Sep 17 00:00:00 2001 From: tipaul Date: Fri, 11 Oct 2002 14:52:29 +0000 Subject: [PATCH] small fixes : opac lib is the same as librarian lib by default. --- marc/fill_usmarc.pl | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/marc/fill_usmarc.pl b/marc/fill_usmarc.pl index e2bbc251a0..bb6f704b62 100755 --- a/marc/fill_usmarc.pl +++ b/marc/fill_usmarc.pl @@ -30,14 +30,14 @@ my $tag; my $subfield; $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 $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) { $fields->{$tag}->{"name"} =~ s/\(R\)//g; $fields->{$tag}->{"name"} =~ s/\(NR\)//g; $fields->{$tag}->{"name"} =~ s/\//g; - $reqtag->execute($tag,$fields->{$tag}->{"name"},$fields->{$tag}->{"repeating"}); + $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"}) { $description=$fields->{$tag}->{"subfields"}->{$subfield}->{"description"}; @@ -51,6 +51,7 @@ foreach $tag (sort keys %$fields) { $tag, $subfield, $description?$description:"Unknown", + $description?$description:"Unknown", $fields->{$tag}->{"subfields"}->{$subfield}->{"repeating"} ); } -- 2.39.5