|
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 |
- |
|
|