Lines 702-708
sub FineSlip {
Link Here
|
702 |
my @issueslist; |
702 |
my @issueslist; |
703 |
|
703 |
|
704 |
while (my $line = $lines->next) { |
704 |
while (my $line = $lines->next) { |
705 |
next if ($line->amountoutstanding =~ /^0.0+$/); |
705 |
next if ( !$line->amountoutstanding || $line->amountoutstanding =~ /^0.0+$/ ); |
706 |
|
706 |
|
707 |
my $item = Koha::Items->find({itemnumber => $line->itemnumber}); |
707 |
my $item = Koha::Items->find({itemnumber => $line->itemnumber}); |
708 |
$item = $item ? $item->unblessed : undef; |
708 |
$item = $item ? $item->unblessed : undef; |
709 |
- |
|
|