diff options
Diffstat (limited to 'httemplate/browse/cust_class.html')
-rw-r--r-- | httemplate/browse/cust_class.html | 45 |
1 files changed, 45 insertions, 0 deletions
diff --git a/httemplate/browse/cust_class.html b/httemplate/browse/cust_class.html new file mode 100644 index 0000000..da303cf --- /dev/null +++ b/httemplate/browse/cust_class.html @@ -0,0 +1,45 @@ +<% include( 'elements/browse.html', + 'title' => 'Customer classes', + 'html_init' => $html_init, + 'name' => 'customer classes', + 'disableable' => 1, + 'disabled_statuspos' => 2, + 'query' => { 'table' => 'cust_class', + 'hashref' => {}, + 'extra_sql' => 'ORDER BY classnum', + }, + 'count_query' => $count_query, + 'header' => $header, + 'fields' => $fields, + 'links' => $links, + ) +%> +<%init> + +die "access denied" + unless $FS::CurrentUser::CurrentUser->access_right('Configuration'); + +my $html_init = + 'Customer classes define groups of customer for reporting.<BR><BR>'. + qq!<A HREF="${p}edit/cust_class.html"><I>Add a customer class</I></A><BR><BR>!; + +my $count_query = 'SELECT COUNT(*) FROM cust_class'; + +my $link = [ $p.'edit/cust_class.html?', 'classnum' ]; + +my $header = [ '#', 'Class' ]; +my $fields = [ 'classnum', 'classname' ]; +my $links = [ $link, $link ]; + +my $cat_query = 'SELECT COUNT(*) FROM cust_class where categorynum IS NOT NULL'; +my $sth = dbh->prepare($cat_query) + or die "Error preparing $cat_query: ". dbh->errstr; +$sth->execute + or die "Error executing $cat_query: ". $sth->errstr; +if ($sth->fetchrow_arrayref->[0]) { + push @$header, 'Category'; + push @$fields, 'categoryname'; + push @$links, $link; +} + +</%init> |