Lines 27-33
script to execute returns of books
Link Here
|
27 |
=cut |
27 |
=cut |
28 |
|
28 |
|
29 |
use strict; |
29 |
use strict; |
30 |
#use warnings; FIXME - Bug 2505 |
30 |
use warnings; |
31 |
|
31 |
|
32 |
use CGI; |
32 |
use CGI; |
33 |
use C4::Context; |
33 |
use C4::Context; |
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 |
- |
|
|