1 <!-- $Id: part_svc.cgi,v 1.1 2001-07-30 07:36:03 ivan Exp $ -->
2 <%= header('Service Part 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 $hashref->{${svcdb}.'__'.$_.'_flag'},
20 map { /^${svcdb}__(.*)$/; $1 }
25 my($rowspan)=scalar(@rows) || 1;
26 my $url = "${p}edit/part_svc.cgi?$hashref->{svcpart}";
30 <TD ROWSPAN=<%= $rowspan %>><A HREF="<%= $url %>">
31 <%= $hashref->{svcpart} %></A></TD>
32 <TD ROWSPAN=<%= $rowspan %>><A HREF="<%= $url %>">
33 <%= $hashref->{svc} %></A></TD>
34 <TD ROWSPAN=<%= $rowspan %>>
35 <%= $hashref->{svcdb} %></TD>
39 foreach $row ( @rows ) {
40 my($flag)=$part_svc->getfield($svcdb.'__'.$row.'_flag');
42 <%= $n1 %><TD>$row</TD><TD>
44 <% if ( $flag eq "D" ) { print "Default"; }
45 elsif ( $flag eq "F" ) { print "Fixed"; }
46 else { print "(Unknown!)"; }
48 </TD><TD><%= $part_svc->getfield($svcdb."__".$row) %></TD>
56 <TD COLSPAN=2><A HREF="<%= $p %>edit/part_svc.cgi"><I>Add new service</I></A></TD>