|
Lines 3-8
Link Here
|
| 3 |
# Copyright 2000-2002 Katipo Communications |
3 |
# Copyright 2000-2002 Katipo Communications |
| 4 |
# 2006 SAN-OP |
4 |
# 2006 SAN-OP |
| 5 |
# 2007-2010 BibLibre, Paul POULAIN |
5 |
# 2007-2010 BibLibre, Paul POULAIN |
|
|
6 |
# 2010 Catalyst IT |
| 6 |
# |
7 |
# |
| 7 |
# This file is part of Koha. |
8 |
# This file is part of Koha. |
| 8 |
# |
9 |
# |
|
Lines 171-176
my $barcode = $query->param('barcode');
Link Here
|
| 171 |
my $exemptfine = $query->param('exemptfine'); |
172 |
my $exemptfine = $query->param('exemptfine'); |
| 172 |
my $dropboxmode = $query->param('dropboxmode'); |
173 |
my $dropboxmode = $query->param('dropboxmode'); |
| 173 |
my $dotransfer = $query->param('dotransfer'); |
174 |
my $dotransfer = $query->param('dotransfer'); |
|
|
175 |
my $canceltransfer = $query->param('canceltransfer'); |
| 176 |
my $dest = $query->param('dest'); |
| 174 |
my $calendar = C4::Calendar->new( branchcode => $userenv_branch ); |
177 |
my $calendar = C4::Calendar->new( branchcode => $userenv_branch ); |
| 175 |
#dropbox: get last open day (today - 1) |
178 |
#dropbox: get last open day (today - 1) |
| 176 |
my $today = C4::Dates->new(); |
179 |
my $today = C4::Dates->new(); |
|
Lines 183-188
if ($dotransfer){
Link Here
|
| 183 |
ModItemTransfer($transferitem, $userenv_branch, $tobranch); |
186 |
ModItemTransfer($transferitem, $userenv_branch, $tobranch); |
| 184 |
} |
187 |
} |
| 185 |
|
188 |
|
|
|
189 |
if ($canceltransfer){ |
| 190 |
$itemnumber=$query->param('itemnumber'); |
| 191 |
DeleteTransfer($itemnumber); |
| 192 |
if($dest eq "ttr"){ |
| 193 |
print $query->redirect("/cgi-bin/koha/circ/transferstoreceive.pl"); |
| 194 |
exit; |
| 195 |
} else { |
| 196 |
$template->param( transfercancelled => 1); |
| 197 |
} |
| 198 |
} |
| 199 |
|
| 186 |
# actually return book and prepare item table..... |
200 |
# actually return book and prepare item table..... |
| 187 |
if ($barcode) { |
201 |
if ($barcode) { |
| 188 |
$barcode =~ s/^\s*|\s*$//g; # remove leading/trailing whitespace |
202 |
$barcode =~ s/^\s*|\s*$//g; # remove leading/trailing whitespace |
|
Lines 321-326
if ( $messages->{'WrongTransfer'} and not $messages->{'WasTransfered'}) {
Link Here
|
| 321 |
WrongTransfer => 1, |
335 |
WrongTransfer => 1, |
| 322 |
TransferWaitingAt => $messages->{'WrongTransfer'}, |
336 |
TransferWaitingAt => $messages->{'WrongTransfer'}, |
| 323 |
WrongTransferItem => $messages->{'WrongTransferItem'}, |
337 |
WrongTransferItem => $messages->{'WrongTransferItem'}, |
|
|
338 |
itemnumber => $itemnumber, |
| 324 |
); |
339 |
); |
| 325 |
|
340 |
|
| 326 |
my $reserve = $messages->{'ResFound'}; |
341 |
my $reserve = $messages->{'ResFound'}; |