|
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 64-71
if ( $op eq 'check_in' ) {
Link Here
|
| 64 |
# Return items |
65 |
# Return items |
| 65 |
foreach my $barcode (@barcodes) { |
66 |
foreach my $barcode (@barcodes) { |
| 66 |
try { |
67 |
try { |
| 67 |
my ( $success, $messages, $checkout, $patron ) = |
68 |
my ( $success, $messages, $checkout, $patron ); |
| 68 |
AddReturn( $barcode, $library ); |
69 |
my $item = Koha::Items->find( { barcode => $barcode } ); |
|
|
70 |
my $human_required = 0; |
| 71 |
if ( C4::Context->preference("CircConfirmItemParts") |
| 72 |
&& defined($item) |
| 73 |
&& $item->materials ) |
| 74 |
{ |
| 75 |
$human_required = 1; |
| 76 |
$success = 0; |
| 77 |
$messages->{additional_materials} = 1; |
| 78 |
} |
| 79 |
|
| 80 |
( $success, $messages, $checkout, $patron ) = |
| 81 |
AddReturn( $barcode, $library ) unless $human_required; |
| 69 |
if ($success) { |
82 |
if ($success) { |
| 70 |
push @success, |
83 |
push @success, |
| 71 |
{ |
84 |
{ |
| 72 |
- |
|
|