GetMarcStructure signature change.
This commit is contained in:
parent
bcef017e9b
commit
753a941de6
|
|
@ -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";
|
||||
|
|
|
|||
Loading…
Reference in New Issue