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