<%= header('Service Definition Listing', menubar( 'Main Menu' => $p) ) %> Services are items you offer to your customers.

<% foreach my $part_svc ( sort { $a->getfield('svcpart') <=> $b->getfield('svcpart') } qsearch('part_svc',{}) ) { my($hashref)=$part_svc->hashref; my($svcdb)=$hashref->{svcdb}; my @fields = grep { $_ ne 'svcnum' && $part_svc->part_svc_column($_)->columnflag } fields($svcdb); my($rowspan)=scalar(@fields) || 1; my $url = "${p}edit/part_svc.cgi?$hashref->{svcpart}"; %> <% my($n1)=''; foreach my $field ( @fields ) { my $flag = $part_svc->part_svc_column($field)->columnflag; %> <%= $n1 %> <% $n1=""; } %> <% } %>

Service		Table	Field	Modifier
> <%= $hashref->{svcpart} %>	> <%= $hashref->{svc} %>	> <%= $hashref->{svcdb} %>	<%= $field %>	<% if ( $flag eq "D" ) { print "Default"; } elsif ( $flag eq "F" ) { print "Fixed"; } else { print "(Unknown!)"; } %>	<%= $part_svc->part_svc_column($field)->columnvalue%>
Add a new service definition