|
Lines 42-48
use C4::Members;
Link Here
|
| 42 |
use C4::Output qw( output_html_with_http_headers ); |
42 |
use C4::Output qw( output_html_with_http_headers ); |
| 43 |
use C4::Reserves qw( ModReserve ModReserveAffect CheckReserves ); |
43 |
use C4::Reserves qw( ModReserve ModReserveAffect CheckReserves ); |
| 44 |
use C4::RotatingCollections; |
44 |
use C4::RotatingCollections; |
| 45 |
use C4::Log qw( logaction ); |
|
|
| 46 |
use Koha::AuthorisedValues; |
45 |
use Koha::AuthorisedValues; |
| 47 |
use Koha::BackgroundJob::BatchUpdateBiblioHoldsQueue; |
46 |
use Koha::BackgroundJob::BatchUpdateBiblioHoldsQueue; |
| 48 |
use Koha::BiblioFrameworks; |
47 |
use Koha::BiblioFrameworks; |
|
Lines 160-191
if ( $query->param('reserve_id') && $op eq 'cud-affect_reserve' ) {
Link Here
|
| 160 |
$transfer->transit; |
159 |
$transfer->transit; |
| 161 |
} |
160 |
} |
| 162 |
} |
161 |
} |
| 163 |
} else { |
|
|
| 164 |
my $message = "return an element that is reserved"; |
| 165 |
my @message = ("return an element that is reserved"); |
| 166 |
my $user = C4::Context->userenv->{number}; |
| 167 |
my $branchcode = C4::Context->userenv->{branch}; |
| 168 |
my $barcode = $query->param('barcode'); |
| 169 |
|
| 170 |
my $infos = ( |
| 171 |
{ |
| 172 |
message => \@message, |
| 173 |
|
| 174 |
#'card number' => $cardnumber, |
| 175 |
barcode => $barcode, |
| 176 |
manager_id => $user, |
| 177 |
branchcode => $branchcode, |
| 178 |
} |
| 179 |
); |
| 180 |
|
| 181 |
my $json_infos = JSON->new->utf8->pretty->encode($infos); |
| 182 |
$json_infos =~ s/"/'/g; |
| 183 |
|
| 184 |
logaction( |
| 185 |
"CIRCULATION", "RETURN", |
| 186 |
$session, |
| 187 |
$json_infos, |
| 188 |
) if C4::Context->preference("ReturnLog"); |
| 189 |
} |
162 |
} |
| 190 |
|
163 |
|
| 191 |
if ( $query->param('recall_id') && $op eq 'cud-affect_recall' ) { |
164 |
if ( $query->param('recall_id') && $op eq 'cud-affect_recall' ) { |
| 192 |
- |
|
|