From bb6dfc07af5c7fee85f2c76ee22a833b41e13c36 Mon Sep 17 00:00:00 2001 From: ivan Date: Wed, 28 Jan 2004 01:39:07 +0000 Subject: add service definition browse by number of active services --- httemplate/browse/part_svc.cgi | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) (limited to 'httemplate/browse/part_svc.cgi') diff --git a/httemplate/browse/part_svc.cgi b/httemplate/browse/part_svc.cgi index 3fece29..ef0de13 100755 --- a/httemplate/browse/part_svc.cgi +++ b/httemplate/browse/part_svc.cgi @@ -13,6 +13,20 @@ my @part_svc = qsearch('part_svc', \%search ); my $total = scalar(@part_svc); +my %num_active_cust_svc = (); +if ( $cgi->param('active') ) { + my $active_sth = dbh->prepare( + 'SELECT COUNT(*) FROM cust_svc WHERE svcpart = ?' + ) or die dbh->errstr; + foreach my $part_svc ( @part_svc ) { + $active_sth->execute($part_svc->svcpart) or die $active_sth->errstr; + $num_active_cust_svc{$part_svc->svcpart} = + $active_sth->fetchrow_arrayref->[0]; + } + @part_svc = sort { $num_active_cust_svc{$b->svcpart} <=> + $num_active_cust_svc{$a->svcpart} } @part_svc; +} + %> <%= header('Service Definition Listing', menubar( 'Main Menu' => $p) ) %> @@ -45,6 +59,9 @@ function part_export_areyousure(href) { param('showdisabled') ? 2 : 3 %>>Service Table +<% if ( $cgi->param('active') ) { %> + Customer
Services
+<% } %> Export Field Modifier @@ -75,6 +92,11 @@ function part_export_areyousure(href) { <%= $hashref->{svc} %> > <%= $hashref->{svcdb} %> +<% if ( $cgi->param('active') ) { %> + > + <%= $num_active_cust_svc{$hashref->{svcpart}} %> active + +<% } %> ><%= itable() %> <% # my @part_export = -- cgit v1.1