1 <!-- $Id: part_svc.cgi,v 1.5 2001-09-11 00:08:18 ivan Exp $ -->
2 <%= header('Service Definition Listing', menubar( 'Main Menu' => $p) ) %>
4 Services are items you offer to your customers.<BR><BR>
7 <TH COLSPAN=2>Service</TH>
10 <TH COLSPAN=2>Modifier</TH>
13 <% foreach my $part_svc ( sort {
14 $a->getfield('svcpart') <=> $b->getfield('svcpart')
15 } qsearch('part_svc',{}) ) {
16 my($hashref)=$part_svc->hashref;
17 my($svcdb)=$hashref->{svcdb};
19 grep { $_ ne 'svcnum' && $part_svc->part_svc_column($_)->columnflag }
22 my($rowspan)=scalar(@fields) || 1;
23 my $url = "${p}edit/part_svc.cgi?$hashref->{svcpart}";
27 <TD ROWSPAN=<%= $rowspan %>><A HREF="<%= $url %>">
28 <%= $hashref->{svcpart} %></A></TD>
29 <TD ROWSPAN=<%= $rowspan %>><A HREF="<%= $url %>">
30 <%= $hashref->{svc} %></A></TD>
31 <TD ROWSPAN=<%= $rowspan %>>
32 <%= $hashref->{svcdb} %></TD>
35 foreach my $field ( @fields ) {
36 my $flag = $part_svc->part_svc_column($field)->columnflag;
38 <%= $n1 %><TD><%= $field %></TD><TD>
40 <% if ( $flag eq "D" ) { print "Default"; }
41 elsif ( $flag eq "F" ) { print "Fixed"; }
42 else { print "(Unknown!)"; }
44 </TD><TD><%= $part_svc->part_svc_column($field)->columnvalue%></TD>
52 <TD COLSPAN=6><A HREF="<%= $p %>edit/part_svc.cgi"><I>Add a new service definition</I></A></TD>