Code cleaning :

[koha.git] / misc / cleanmarcdb.pl

diff --git a/misc/cleanmarcdb.pl b/misc/cleanmarcdb.pl
index 6f5c059..b703af7 100755 (executable)
--- 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 = MARCgettagslib($dbh,1);
+my $tags = GetMarcStructure($dbh,1);
 foreach my $tag (sort keys(%{$tags})) {
        foreach my $subfield (sort keys(%{$tags->{$tag}})) {
                next if $subfield eq "lib";