Bug 29672: Fix test t/db_dependent/Koha/Plugins/Plugins.t

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

diff --git a/rotating_collections/transferCollection.pl b/rotating_collections/transferCollection.pl
index 49b09b3..1d5dcf8 100755 (executable)
--- a/rotating_collections/transferCollection.pl
+++ b/rotating_collections/transferCollection.pl
@@ -18,14 +18,14 @@
 
 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;
 
 use CGI qw ( -utf8 );
 
-my $query = new CGI;
+my $query = CGI->new;
 
 my $colId    = $query->param('colId');
 my $toBranch = $query->param('toBranch');
@@ -35,26 +35,26 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
         template_name   => "rotating_collections/transferCollection.tt",
         query           => $query,
         type            => "intranet",
-        authnotrequired => 0,
         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
         );
     }
 }