|
" value="" />
" value="" />
" value="" />
" value="" />
" value="" />
" value="" />
" value="" />
" value="" />
" value="" />
|
|
|
');">-->--> |
|
|
|
| Total Due |
|
##################################le pl##########################
my $numberofnotify=scalar(@notify);
for (my $j=0;$j[$i]{'amountoutstanding'} > 0){
$accts->[$i]{'amount'}+=0.00;
$accts->[$i]{'amountoutstanding'}+=0.00;
$line{i}=$i;
$line{itemnumber} = $accts->[$i]{'itemnumber'};
$line{accounttype} = $accts->[$i]{'accounttype'};
$line{amount} = sprintf("%.2f",$accts->[$i]{'amount'});
$line{amountoutstanding} = sprintf("%.2f",$accts->[$i]{'amountoutstanding'});
$line{bornum} = $bornum;
$line{accountno} = $accts->[$i]{'accountno'};
$line{description} = $accts->[$i]{'description'};
$line{title} = $accts->[$i]{'title'};
$line{notify_id} = $accts->[$i]{'notify_id'};
$line{notify_level} = $accts->[$i]{'notify_level'};
}
push(@loop_pay ,\%line);
}
push @allfile, {'loop_pay'=>\@loop_pay, 'notify'=>$notify[$j]};
}
$template->param(
allfile => \@allfile,
firstname => $data->{'firstname'},
surname => $data->{'surname'},
bornum => $bornum,
loop_pay => \@loop_pay,
total => sprintf("%.2f",$total));
print "Content-Type: text/html\n\n", $template->output;