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