<%= header('Service Part 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(@rows)= grep $hashref->{${svcdb}.'__'.$_.'_flag'}, map { /^${svcdb}__(.*)$/; $1 } grep ! /_flag$/, grep /^${svcdb}__/, fields('part_svc') ; my($rowspan)=scalar(@rows) || 1; my $url = "${p}edit/part_svc.cgi?$hashref->{svcpart}"; %> <% my($n1)=''; my($row); foreach $row ( @rows ) { my($flag)=$part_svc->getfield($svcdb.'__'.$row.'_flag'); %> <%= $n1 %> <% $n1=""; } %> <% } %>

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