[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";