|
Lines 709-715
sub FineSlip {
Link Here
|
| 709 |
$item = $item ? $item->unblessed : undef; |
709 |
$item = $item ? $item->unblessed : undef; |
| 710 |
my $issue = Koha::Checkouts->find({issue_id => $line->issue_id}) |
710 |
my $issue = Koha::Checkouts->find({issue_id => $line->issue_id}) |
| 711 |
|| Koha::Old::Checkouts->find({issue_id => $line->issue_id}); |
711 |
|| Koha::Old::Checkouts->find({issue_id => $line->issue_id}); |
| 712 |
my $dt = dt_from_string( $issue->date_due ); |
712 |
my $dt = $issue ? dt_from_string( $issue->date_due ) : dt_from_string( $line->date ); |
| 713 |
|
713 |
|
| 714 |
$item->{'date_due'} = output_pref({ dt => $dt, dateonly => 1 }); |
714 |
$item->{'date_due'} = output_pref({ dt => $dt, dateonly => 1 }); |
| 715 |
$item->{'amount'} = sprintf('%.2f', $line->amount); |
715 |
$item->{'amount'} = sprintf('%.2f', $line->amount); |
|
Lines 719-725
sub FineSlip {
Link Here
|
| 719 |
|
719 |
|
| 720 |
push @issueslist, $item; |
720 |
push @issueslist, $item; |
| 721 |
} |
721 |
} |
| 722 |
my @issues = sort { $b->{'timestamp'} <=> $a->{'timestamp'} } @issueslist; |
722 |
my @issues = sort { $b->{'timestamp'} cmp $a->{'timestamp'} } @issueslist; |
| 723 |
|
723 |
|
| 724 |
my %repeat = ( |
724 |
my %repeat = ( |
| 725 |
'fines' => [ map { |
725 |
'fines' => [ map { |
| 726 |
- |
|
|