X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=rotating_collections%2FtransferCollection.pl;h=1d5dcf8d581a8db88d4e714bfc26d7ed59727538;hb=0fd2a8d19024ff4b8903db16a7befd4a62a2f57c;hp=5cfc62699ae0174693417d4ab19481c2e71845b7;hpb=96cc447045f3f1d3702a3c69b36f596d88f38eda;p=koha-ffzg.git

diff --git a/rotating_collections/transferCollection.pl b/rotating_collections/transferCollection.pl
index 5cfc62699a..1d5dcf8d58 100755
--- a/rotating_collections/transferCollection.pl
+++ b/rotating_collections/transferCollection.pl
@@ -18,8 +18,8 @@
 
 use Modern::Perl;
 
-use C4::Output;
-use C4::Auth;
+use C4::Output qw( output_html_with_http_headers );
+use C4::Auth qw( get_template_and_user );
 use C4::Context;
 use C4::RotatingCollections;
 
@@ -36,24 +36,25 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
         query           => $query,
         type            => "intranet",
         flagsrequired   => { tools => 'rotating_collections' },
-        debug           => 1,
     }
 );
 
 ## Transfer collection
-my ( $success, $errorCode, $errorMessage );
+my ( $success, $messages );
 if ($toBranch) {
-    ( $success, $errorCode, $errorMessage ) =
+    ( $success, $messages ) =
       TransferCollection( $colId, $toBranch );
 
     if ($success) {
-        $template->param( transferSuccess => 1 );
+        $template->param(
+            transferSuccess => 1,
+            messages        => $messages
+        );
     }
     else {
         $template->param(
             transferFailure => 1,
-            errorCode       => $errorCode,
-            errorMessage    => $errorMessage
+            messages        => $messages
         );
     }
 }