Lines 28-34
script to execute returns of books
Link Here
|
28 |
=cut |
28 |
=cut |
29 |
|
29 |
|
30 |
use strict; |
30 |
use strict; |
31 |
#use warnings; FIXME - Bug 2505 |
31 |
use warnings; |
32 |
|
32 |
|
33 |
use CGI; |
33 |
use CGI; |
34 |
use DateTime; |
34 |
use DateTime; |
Lines 223-229
if ($barcode) {
Link Here
|
223 |
# |
223 |
# |
224 |
( $returned, $messages, $issueinformation, $borrower ) = |
224 |
( $returned, $messages, $issueinformation, $borrower ) = |
225 |
AddReturn( $barcode, $userenv_branch, $exemptfine, $dropboxmode); # do the return |
225 |
AddReturn( $barcode, $userenv_branch, $exemptfine, $dropboxmode); # do the return |
226 |
my $homeorholdingbranchreturn = C4::Context->preference('HomeOrHoldingBranchReturn') or 'homebranch'; |
226 |
my $homeorholdingbranchreturn = C4::Context->preference('HomeOrHoldingBranchReturn'); |
|
|
227 |
$homeorholdingbranchreturn ||= 'homebranch'; |
227 |
|
228 |
|
228 |
# get biblio description |
229 |
# get biblio description |
229 |
my $biblio = GetBiblioFromItemNumber($itemnumber); |
230 |
my $biblio = GetBiblioFromItemNumber($itemnumber); |
230 |
- |
|
|