GetMarcStructure signature change.

This commit is contained in:
hdl 2007-05-22 15:13:44 +00:00
parent bcef017e9b
commit 753a941de6
1 changed files with 1 additions and 1 deletions

View File

@ -42,7 +42,7 @@ my $cleansubfield = $dbh->prepare("delete from marc_subfield_table where tag=? a
my $cleanword = $dbh->prepare("delete from marc_word where tag=? and subfieldid=?");
# get tags structure
my $tags = GetMarcStructure($dbh,1);
my $tags = GetMarcStructure(1);
foreach my $tag (sort keys(%{$tags})) {
foreach my $subfield (sort keys(%{$tags->{$tag}})) {
next if $subfield eq "lib";