gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

small fixes

This commit is contained in:
tipaul 2002-10-07 14:08:26 +00:00
parent 0fdc28f25c
commit 77f773fbd3
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
marc/fill_usmarc.pl
View File

@ -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,