Bug 30055: Use /patrons for routing list

[srvgit] / course_reserves / batch_rm_items.pl

diff --git a/course_reserves/batch_rm_items.pl b/course_reserves/batch_rm_items.pl
index be86540..de0a49d 100755 (executable)
--- a/course_reserves/batch_rm_items.pl
+++ b/course_reserves/batch_rm_items.pl
@@ -22,13 +22,13 @@ use Modern::Perl;
 use CGI qw( -utf8 );
 use List::MoreUtils qw( uniq );
 
-use C4::Auth;
-use C4::Output;
-use C4::CourseReserves qw(GetItemCourseReservesInfo DelCourseReserve GetCourseItem);
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use C4::CourseReserves qw( GetCourse GetCourseItem GetItemCourseReservesInfo DelCourse DelCourseReserve );
 
 use Koha::Items;
 
-my $cgi = new CGI;
+my $cgi = CGI->new;
 
 my $action    = $cgi->param('action')    || q{};
 my $barcodes  = $cgi->param('barcodes')  || q{};