htdocs/browse/part_svc.cgi

   1 #!/usr/bin/perl -Tw
   2 #
   3 # $Id: part_svc.cgi,v 1.3 1998-11-20 23:10:57 ivan Exp $
   4 #
   5 # ivan@sisd.com 97-nov-14, 97-dec-9
   6 #
   7 # Changes to allow page to work at a relative position in server
   8 #       bmccane@maxbaud.net     98-apr-3
   9 #
  10 # lose background, FS::CGI ivan@sisd.com 98-sep-2
  11 #
  12 # $Log: part_svc.cgi,v $
  13 # Revision 1.3  1998-11-20 23:10:57  ivan
  14 # visual
  15 #
  16 # Revision 1.2  1998/11/20 08:50:37  ivan
  17 # s/CGI::Base/CGI.pm, visual fixes
  18 #
  19
  20 use strict;
  21 use CGI;
  22 use CGI::Carp qw(fatalsToBrowser);
  23 use FS::UID qw(cgisuidsetup);
  24 use FS::Record qw(qsearch);
  25 use FS::part_svc qw(fields);
  26 use FS::CGI qw(header menubar popurl table);
  27
  28 my($cgi) = new CGI;
  29
  30 &cgisuidsetup($cgi);
  31
  32 print $cgi->header, header('Service Part Listing', menubar(
  33   'Main Menu' => popurl(2),
  34 )),<<END;
  35     Services are items you offer to your customers.<BR><BR>
  36 END
  37 print table, <<END;
  38       <TR>
  39         <TH COLSPAN=2>Service</TH>
  40         <TH>Table</TH>
  41         <TH>Field</TH>
  42         <TH COLSPAN=2>Modifier</TH>
  43       </TR>
  44 END
  45
  46 my($part_svc);
  47 my($p)=popurl(2);
  48 foreach $part_svc ( sort {
  49   $a->getfield('svcpart') <=> $b->getfield('svcpart')
  50 } qsearch('part_svc',{}) ) {
  51   my($hashref)=$part_svc->hashref;
  52   my($svcdb)=$hashref->{svcdb};
  53   my(@rows)=
  54     grep $hashref->{${svcdb}.'__'.$_.'_flag'},
  55       map { /^${svcdb}__(.*)$/; $1 }
  56         grep ! /_flag$/,
  57           grep /^${svcdb}__/,
  58             fields('part_svc')
  59   ;
  60   my($rowspan)=scalar(@rows);
  61   print <<END;
  62       <TR>
  63         <TD ROWSPAN=$rowspan><A HREF="$p/edit/part_svc.cgi?$hashref->{svcpart}">
  64           $hashref->{svcpart}</A></TD>
  65         <TD ROWSPAN=$rowspan><A HREF="$p/edit/part_svc.cgi?$hashref->{svcpart}">          $hashref->{svc}</A></TD>
  66         <TD ROWSPAN=$rowspan>$hashref->{svcdb}</TD>
  67 END
  68   my($row);
  69   foreach $row ( @rows ) {
  70     my($flag)=$part_svc->getfield($svcdb.'__'.$row.'_flag');
  71     print "<TD>$row</TD><TD>";
  72     if ( $flag eq "D" ) { print "Default"; }
  73       elsif ( $flag eq "F" ) { print "Fixed"; }
  74       else { print "(Unknown!)"; }
  75     print "</TD><TD>",$part_svc->getfield($svcdb."__".$row),"</TD></TR><TR>";
  76   }
  77 print "</TR>";
  78 }
  79
  80 print <<END;
  81       <TR>
  82         <TD COLSPAN=2><A HREF="$p/edit/part_svc.cgi"><I>Add new service</I></A></TD>
  83       </TR>
  84     </TABLE>
  85     </CENTER>
  86   </BODY>
  87 </HTML>
  88 END
  89