From afb916d6d4566cb1c46b389437b8b2113fe61df6 Mon Sep 17 00:00:00 2001
From: tipaul <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/\<a h.*\<\/a>//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