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'}; |