[Koha-cvs] koha/misc cleanmarcdb.pl

[Henri-Damien LAURENT]

CVSROOT:	/cvsroot/koha
Module name:	koha
Changes by:	Henri-Damien LAURENT <hdl>	07/05/22 15:13:44

Modified files:
	misc           : cleanmarcdb.pl 

Log message:
	GetMarcStructure signature change.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/misc/cleanmarcdb.pl?cvsroot=koha&r1=1.2&r2=1.3

Patches:
Index: cleanmarcdb.pl
===================================================================
RCS file: /cvsroot/koha/koha/misc/cleanmarcdb.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- cleanmarcdb.pl	29 Mar 2007 13:30:32 -0000	1.2
+++ cleanmarcdb.pl	22 May 2007 15:13:44 -0000	1.3
@@ -42,7 +42,7 @@
 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";