'count_query' => $count_query,
'count_addl' => [ $money_char. '%.2f total', ],
'header' => [
- '#',
+ #'#',
'Description',
'Setup charge',
( $use_usage eq 'usage'
FS::UI::Web::cust_header(),
],
'fields' => [
- 'billpkgnum',
+ #'billpkgnum',
sub { $_[0]->pkgnum > 0
? $_[0]->get('pkg') # possibly use override.pkg
: $_[0]->get('itemdesc') # but i think this correct
\&FS::UI::Web::cust_fields,
],
'links' => [
- '',
+ #'',
'',
'',
'',
FS::UI::Web::cust_header()
),
],
- 'align' => 'rlrrrc'.FS::UI::Web::cust_aligns(),
+ #'align' => 'rlrrrc'.FS::UI::Web::cust_aligns(),
+ 'align' => 'lrrrc'.FS::UI::Web::cust_aligns(),
'color' => [
- '',
+ #'',
'',
'',
'',
FS::UI::Web::cust_colors(),
],
'style' => [
- '',
+ #'',
'',
'',
'',
%>
<%init>
+#LOTS of false laziness below w/cust_credit_bill_pkg.cgi
+
die "access denied"
unless $FS::CurrentUser::CurrentUser->access_right('Financial reports');
} else {
$count_query .= " FROM cust_bill_pkg $join_cust $join_pkg $where";
}
-warn "count_query is $count_query\n";
my @select = (
'cust_bill_pkg.*',