From 77f773fbd3e4dc6fce54cbe4f94feea35d6989cc Mon Sep 17 00:00:00 2001
From: tipaul <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/\<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"}) {
@@ -43,6 +44,7 @@ foreach $tag (sort keys %$fields) {
 	    } else {
 		$description=$fields->{$tag}->{"subfields"}->{$subfield}->{"name"};
 	    }
+		$description  =~ s/\<a href.*\<\/a\>//g;
 	    $reqsubfield->execute(
 				  $tag,
 				  $subfield,
-- 
2.39.5