|
Lines 37-43
use DateTime;
Link Here
|
| 37 |
use C4::Auth qw( get_template_and_user get_session haspermission ); |
37 |
use C4::Auth qw( get_template_and_user get_session haspermission ); |
| 38 |
use C4::Circulation qw( barcodedecode GetBranchItemRule AddReturn updateWrongTransfer LostItem ); |
38 |
use C4::Circulation qw( barcodedecode GetBranchItemRule AddReturn updateWrongTransfer LostItem ); |
| 39 |
use C4::Context; |
39 |
use C4::Context; |
| 40 |
use C4::Items qw( ModItemTransfer ); |
|
|
| 41 |
use C4::Members::Messaging; |
40 |
use C4::Members::Messaging; |
| 42 |
use C4::Members; |
41 |
use C4::Members; |
| 43 |
use C4::Output qw( output_html_with_http_headers ); |
42 |
use C4::Output qw( output_html_with_http_headers ); |
|
Lines 242-250
if ($return_date_override) {
Link Here
|
| 242 |
if ($dotransfer){ |
241 |
if ($dotransfer){ |
| 243 |
# An item has been returned to a branch other than the homebranch, and the librarian has chosen to initiate a transfer |
242 |
# An item has been returned to a branch other than the homebranch, and the librarian has chosen to initiate a transfer |
| 244 |
my $transferitem = $query->param('transferitem'); |
243 |
my $transferitem = $query->param('transferitem'); |
| 245 |
my $tobranch = $query->param('tobranch'); |
244 |
my $item = Koha::Items->find( $transferitem ); |
|
|
245 |
my $tobranchcode = $query->param('tobranch'); |
| 246 |
my $tobranch = Koha::Libraries->find($tobranchcode); |
| 246 |
my $trigger = $query->param('trigger'); |
247 |
my $trigger = $query->param('trigger'); |
| 247 |
ModItemTransfer($transferitem, $userenv_branch, $tobranch, $trigger); |
248 |
my $transfer = $item->request_transfer({ to => $tobranch, reason => $trigger }); |
|
|
249 |
$transfer->transit; |
| 248 |
} |
250 |
} |
| 249 |
|
251 |
|
| 250 |
if ($transit) { |
252 |
if ($transit) { |
| 251 |
- |
|
|