Lines 3663-3678
sub DeleteBranchTransferLimits {
Link Here
|
3663 |
} |
3663 |
} |
3664 |
|
3664 |
|
3665 |
sub ReturnLostItem{ |
3665 |
sub ReturnLostItem{ |
3666 |
my ( $borrowernumber, $itemnum ) = @_; |
3666 |
my ( $borrowernumber, $itemnum, $offset_type ) = @_; |
3667 |
|
3667 |
|
3668 |
MarkIssueReturned( $borrowernumber, $itemnum ); |
3668 |
MarkIssueReturned( $borrowernumber, $itemnum ); |
3669 |
my $patron = Koha::Patrons->find( $borrowernumber ); |
3669 |
if ( $offset_type ne 'Writeoff' ) { |
3670 |
my $item = Koha::Items->find($itemnum); |
3670 |
my $patron = Koha::Patrons->find( $borrowernumber ); |
3671 |
my $old_note = ($item->paidfor && ($item->paidfor ne q{})) ? $item->paidfor.' / ' : q{}; |
3671 |
my $item = Koha::Items->find($itemnum); |
3672 |
my @datearr = localtime(time); |
3672 |
my $old_note = ($item->paidfor && ($item->paidfor ne q{})) ? $item->paidfor.' / ' : q{}; |
3673 |
my $date = ( 1900 + $datearr[5] ) . "-" . ( $datearr[4] + 1 ) . "-" . $datearr[3]; |
3673 |
my @datearr = localtime(time); |
3674 |
my $bor = $patron->firstname . ' ' . $patron->surname . ' ' . $patron->cardnumber; |
3674 |
my $date = ( 1900 + $datearr[5] ) . "-" . ( $datearr[4] + 1 ) . "-" . $datearr[3]; |
3675 |
ModItem({ paidfor => $old_note."Paid for by $bor $date" }, undef, $itemnum); |
3675 |
my $bor = $patron->firstname . ' ' . $patron->surname . ' ' . $patron->cardnumber; |
|
|
3676 |
ModItem({ paidfor => $old_note."Paid for by $bor $date" }, undef, $itemnum); |
3677 |
} |
3676 |
} |
3678 |
} |
3677 |
|
3679 |
|
3678 |
|
3680 |
|