Bug 32336: (QA follow-up) Use $metadata->schema

[srvgit] / course_reserves / batch_rm_items.pl

diff --git a/course_reserves/batch_rm_items.pl b/course_reserves/batch_rm_items.pl
index bd78bc4..14d33b9 100755 (executable)
--- a/course_reserves/batch_rm_items.pl
+++ b/course_reserves/batch_rm_items.pl
@@ -22,9 +22,10 @@ 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::Circulation qw( barcodedecode );
+use C4::Output qw( output_html_with_http_headers );
+use C4::CourseReserves qw( GetCourse GetCourseItem GetItemCourseReservesInfo DelCourse DelCourseReserve );
 
 use Koha::Items;
 
@@ -52,6 +53,7 @@ elsif ( $action eq 'batch_rm' ) {
     my @item_and_count;
 
     foreach my $bar (@barcodes) {
+        $bar = barcodedecode($bar) if $bar;
         my $item = Koha::Items->find( { barcode => $bar } );
         if($item) {
             my $courseitem = GetCourseItem(itemnumber => $item->id);