Bug 9988: Merge should have a parameter hash

[koha.git] / authorities / merge.pl

diff --git a/authorities/merge.pl b/authorities/merge.pl
index 9d00a1d..94bfc3d 100755 (executable)
--- a/authorities/merge.pl
+++ b/authorities/merge.pl
@@ -64,10 +64,10 @@ if ($merge) {
     # Now merge for biblios attached to $recordid2
     # We ignore dontmerge now, since recordid2 is deleted
     my $MARCfrom = GetAuthority( $recordid2 );
-    merge( $recordid2, $MARCfrom, $recordid1, $record );
+    merge({ mergefrom => $recordid2, MARCfrom => $MARCfrom, mergeto => $recordid1, MARCto => $record });
 
     # Deleting the other record
-    DelAuthority( $recordid2 );
+    DelAuthority({ authid => $recordid2 });
 
     # Parameters
     $template->param(