From 753a941de671dcc71b980defe5e89c79cf0fc04c Mon Sep 17 00:00:00 2001 From: hdl Date: Tue, 22 May 2007 15:13:44 +0000 Subject: [PATCH] GetMarcStructure signature change. --- misc/cleanmarcdb.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/misc/cleanmarcdb.pl b/misc/cleanmarcdb.pl index b703af7d92..682e473ec1 100755 --- a/misc/cleanmarcdb.pl +++ b/misc/cleanmarcdb.pl @@ -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"; -- 2.39.5