4 # Copyright 2018 Bywater Solutions
6 # This file is part of Koha.
8 # Koha is free software; you can redistribute it and/or modify it
9 # under the terms of the GNU General Public License as published by
10 # the Free Software Foundation; either version 3 of the License, or
11 # (at your option) any later version.
13 # Koha is distributed in the hope that it will be useful, but
14 # WITHOUT ANY WARRANTY; without even the implied warranty of
15 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 # GNU General Public License for more details.
18 # You should have received a copy of the GNU General Public License
19 # along with Koha; if not, see <http://www.gnu.org/licenses>.
24 use List::MoreUtils qw( uniq );
28 use C4::CourseReserves qw(ModCourseItem ModCourseReserve GetCourse);
34 my $action = $cgi->param('action') || q{};
35 my $course_id = $cgi->param('course_id') || q{};
36 my $barcodes = $cgi->param('barcodes') || q{};
38 my $itype = $cgi->param('itype');
39 my $ccode = $cgi->param('ccode');
40 my $holdingbranch = $cgi->param('holdingbranch');
41 my $location = $cgi->param('location');
42 my $staff_note = $cgi->param('staff_note');
43 my $public_note = $cgi->param('public_note');
45 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
47 template_name => "course_reserves/batch_add_items.tt",
50 flagsrequired => { coursereserves => 'add_reserves' },
54 my $course = GetCourse($course_id);
56 if ( $course_id && $course ) {
57 $template->param( course => $course );
60 $template->param( action => 'display_form' );
62 elsif ( $action eq 'add' ) {
63 my @barcodes = uniq( split( /\s\n/, $barcodes ) );
67 for my $b (@barcodes) {
68 my $item = Koha::Items->find( { barcode => $b } );
71 push( @items, $item );
74 push( @invalid_barcodes, $b );
78 foreach my $item (@items) {
79 my $ci_id = ModCourseItem(
80 itemnumber => $item->id,
83 holdingbranch => $holdingbranch,
84 location => $location,
87 my $cr_id = ModCourseReserve(
88 course_id => $course_id,
90 staff_note => $staff_note,
91 public_note => $public_note,
96 action => 'display_results',
97 items_added => \@items,
98 invalid_barcodes => \@invalid_barcodes,
99 course_id => $course_id,
103 $template->param( action => 'invalid_course' );
106 output_html_with_http_headers $cgi, $cookie, $template->output;