X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=misc%2Fmigration_tools%2Fmerge_authority.pl;h=3e6722fe8c0a84d755223678e1106028507307d7;hb=4c762ba69c0a85f3c5a3add40f8f4c16081965fe;hp=061a3bd3e8a4256fd4978de8ca940a399a3da20d;hpb=2bb870b3f0cadef851497ab1d4ad8783f47ac8f2;p=koha.git

diff --git a/misc/migration_tools/merge_authority.pl b/misc/migration_tools/merge_authority.pl
index 061a3bd3e8..3e6722fe8c 100755
--- a/misc/migration_tools/merge_authority.pl
+++ b/misc/migration_tools/merge_authority.pl
@@ -86,18 +86,18 @@ if ($batch) {
       print "managing $authid\n" if $verbose;
       my $MARCauth = GetAuthority( $authid );
       if( $MARCauth ) {
-          merge( $authid, $MARCauth, $authid, $MARCauth );
+          merge({ mergefrom => $authid, MARCfrom => $MARCauth, mergeto => $authid, MARCto => $MARCauth });
       } else {
-          merge( $authid, undef ); # handle a delete
+          merge({ mergefrom => $authid }); # handle a delete
       }
   }
   $dbh->do("update need_merge_authorities set done=1 where done=2"); #DONE
 } else {
   my $MARCfrom = GetAuthority($mergefrom);
   my $MARCto = GetAuthority($mergeto);
-  &merge($mergefrom,$MARCfrom,$mergeto,$MARCto);
+  &merge({ mergefrom => $mergefrom, MARCfrom => $MARCfrom, mergeto => $mergeto, MARCto => $MARCto });
   #Could add mergefrom authority to mergeto rejected forms before deletion 
-  DelAuthority($mergefrom) if ($mergefrom != $mergeto);
+  DelAuthority({ authid => $mergefrom }) if ($mergefrom != $mergeto);
 }
 my $timeneeded = gettimeofday - $starttime;
 print "Done in $timeneeded seconds" unless $noconfirm;