- |.$locale->text('Address').qq| |
+ | . $locale->text('Address') . qq| |
@@ -265,35 +283,30 @@ sub form_header {
|
@@ -301,24 +314,27 @@ sub form_header {
-
+
$jsscript
|;
$lxdebug->leave_sub();
}
-
sub list_invoices {
$lxdebug->enter_sub();
+ $auth->assert('cash');
+
+ my (@column_index, %column_data, $colspan, $invoice);
+ my ($totalamount, $totaldue, $totalpaid);
@column_index = qw(invnumber transdate amount due checked paid);
-
+
$colspan = $#column_index + 1;
$invoice = $locale->text('Invoices');
-
+
print qq|