From 77f773fbd3e4dc6fce54cbe4f94feea35d6989cc Mon Sep 17 00:00:00 2001 From: tipaul Date: Mon, 7 Oct 2002 14:08:26 +0000 Subject: [PATCH] small fixes --- marc/fill_usmarc.pl | 2 ++ 1 file changed, 2 insertions(+) diff --git a/marc/fill_usmarc.pl b/marc/fill_usmarc.pl index ff022b6eea..2b20ec5e8e 100755 --- a/marc/fill_usmarc.pl +++ b/marc/fill_usmarc.pl @@ -36,6 +36,7 @@ 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"}); foreach $subfield (sort keys %{$fields->{$tag}->{"subfields"}}) { if ($fields->{$tag}->{"subfields"}->{$subfield}->{"description"}) { @@ -43,6 +44,7 @@ foreach $tag (sort keys %$fields) { } else { $description=$fields->{$tag}->{"subfields"}->{$subfield}->{"name"}; } + $description =~ s/\//g; $reqsubfield->execute( $tag, $subfield, -- 2.39.5