my $biblio;
my $doreturn = 1;
my $validTransfert = 0;
-
+ my $stat_type = 'return';
+
# get information on item
my $itemnumber = GetItemnumberFromBarcode( $barcode );
unless ($itemnumber) {
# even though item is not on loan, it may still be transferred; therefore, get current branch info
$doreturn = 0;
# No issue, no borrowernumber. ONLY if $doreturn, *might* you have a $borrower later.
+ # Record this as a local use, instead of a return, if the RecordLocalUseOnReturn is on
+ if (C4::Context->preference("RecordLocalUseOnReturn")) {
+ $messages->{'LocalUse'} = 1;
+ $stat_type = 'localuse';
+ }
}
my $item = GetItem($itemnumber) or die "GetItem($itemnumber) failed";
# update stats?
# Record the fact that this book was returned.
UpdateStats(
- $branch, 'return', '0', '',
+ $branch, $stat_type, '0', '',
$item->{'itemnumber'},
$biblio->{'itemtype'},
$borrowernumber
$err{notissued} = 1;
$err{msg} = $branches->{ $messages->{'IsPermanent'} }->{'branchname'};
}
+ elsif ( $code eq 'LocalUse' ) {
+ $err{localuse} = 1;
+ }
elsif ( $code eq 'WasLost' ) {
$err{waslost} = 1;
}
yes: Show
no: "Don't show"
- a button to clear the current patron from the screen on the circulation screen.
+ -
+ - pref: RecordLocalUseOnReturn
+ choices:
+ yes: Record
+ no: "Don't record"
+ - local use when an unissued item is checked in.
Checkout Policy:
-
- pref: AllowNotForLoanOverride
[% IF ( errmsgloo.notissued ) %]
<p class="problem">Not checked out.</p>
[% END %]
+ [% IF ( errmsgloo.localuse) %]
+ <p class="problem">Local Use recorded</p>
+ [% END %]
[% IF ( errmsgloo.waslost ) %]
<p class="problem">Item was lost, now found.</p>
[% END %]