Lines 22-27
use CGI qw ( -utf8 );
Link Here
|
22 |
use C4::Auth qw(get_template_and_user checkpw); |
22 |
use C4::Auth qw(get_template_and_user checkpw); |
23 |
use C4::Circulation; |
23 |
use C4::Circulation; |
24 |
use C4::Output; |
24 |
use C4::Output; |
|
|
25 |
use Koha::Items; |
25 |
|
26 |
|
26 |
use List::MoreUtils qw( uniq ); |
27 |
use List::MoreUtils qw( uniq ); |
27 |
use Try::Tiny; |
28 |
use Try::Tiny; |
Lines 65-72
if ( $op eq 'check_in' ) {
Link Here
|
65 |
# Return items |
66 |
# Return items |
66 |
foreach my $barcode (@barcodes) { |
67 |
foreach my $barcode (@barcodes) { |
67 |
try { |
68 |
try { |
68 |
my ( $success, $messages, $checkout, $patron ) = |
69 |
my ( $success, $messages, $checkout, $patron ); |
69 |
AddReturn( $barcode, $library ); |
70 |
my $item = Koha::Items->find( { barcode => $barcode } ); |
|
|
71 |
my $human_required = 0; |
72 |
if ( C4::Context->preference("CircConfirmItemParts") |
73 |
&& defined($item) |
74 |
&& $item->materials ) |
75 |
{ |
76 |
$human_required = 1; |
77 |
$success = 0; |
78 |
$messages->{additional_materials} = 1; |
79 |
} |
80 |
|
81 |
( $success, $messages, $checkout, $patron ) = |
82 |
AddReturn( $barcode, $library ) unless $human_required; |
70 |
if ($success) { |
83 |
if ($success) { |
71 |
push @success, |
84 |
push @success, |
72 |
{ |
85 |
{ |
73 |
- |
|
|