Bug 30952: Move 'Clear filter' next to filter in table headers

[koha-ffzg.git] / rotating_collections / transferCollection.pl

diff --git a/rotating_collections/transferCollection.pl b/rotating_collections/transferCollection.pl
index 5cfc626..1d5dcf8 100755 (executable)
--- 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
         );
     }
 }