|
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 |
- |
|
|