From 753a941de671dcc71b980defe5e89c79cf0fc04c Mon Sep 17 00:00:00 2001
From: hdl <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