Lines 3021-3027
sub ReturnLostItem{
Link Here
|
3021 |
|
3021 |
|
3022 |
|
3022 |
|
3023 |
sub LostItem{ |
3023 |
sub LostItem{ |
3024 |
my ($itemnumber, $mark_returned) = @_; |
3024 |
my ($itemnumber, $mark_returned, $charge_fee) = @_; |
3025 |
|
3025 |
|
3026 |
my $dbh = C4::Context->dbh(); |
3026 |
my $dbh = C4::Context->dbh(); |
3027 |
my $sth=$dbh->prepare("SELECT issues.*,items.*,biblio.title |
3027 |
my $sth=$dbh->prepare("SELECT issues.*,items.*,biblio.title |
Lines 3036-3042
sub LostItem{
Link Here
|
3036 |
# if a borrower lost the item, add a replacement cost to the their record |
3036 |
# if a borrower lost the item, add a replacement cost to the their record |
3037 |
if ( my $borrowernumber = $issues->{borrowernumber} ){ |
3037 |
if ( my $borrowernumber = $issues->{borrowernumber} ){ |
3038 |
|
3038 |
|
3039 |
C4::Accounts::chargelostitem($borrowernumber, $itemnumber, $issues->{'replacementprice'}, "Lost Item $issues->{'title'} $issues->{'barcode'}"); |
3039 |
C4::Accounts::chargelostitem($borrowernumber, $itemnumber, $issues->{'replacementprice'}, "Lost Item $issues->{'title'} $issues->{'barcode'}") |
|
|
3040 |
if $charge_fee; |
3040 |
#FIXME : Should probably have a way to distinguish this from an item that really was returned. |
3041 |
#FIXME : Should probably have a way to distinguish this from an item that really was returned. |
3041 |
#warn " $issues->{'borrowernumber'} / $itemnumber "; |
3042 |
#warn " $issues->{'borrowernumber'} / $itemnumber "; |
3042 |
MarkIssueReturned($borrowernumber,$itemnumber) if $mark_returned; |
3043 |
MarkIssueReturned($borrowernumber,$itemnumber) if $mark_returned; |