htdocs/browse/part_svc.cgi

   1 #!/usr/bin/perl -Tw
   2 #
   3 # $Id: part_svc.cgi,v 1.8 1999-01-18 09:41:19 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.8  1999-01-18 09:41:19  ivan
  14 # all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl
  15 # (good idea anyway)
  16 #
  17 # Revision 1.7  1998/12/30 23:06:22  ivan
  18 # typo
  19 #
  20 # Revision 1.6  1998/12/30 23:03:20  ivan
  21 # bugfixes; fields isn't exported by derived classes
  22 #
  23 # Revision 1.5  1998/12/17 05:25:21  ivan
  24 # fix visual and other bugs
  25 #
  26 # Revision 1.4  1998/11/21 02:26:22  ivan
  27 # visual
  28 #
  29 # Revision 1.3  1998/11/20 23:10:57  ivan
  30 # visual
  31 #
  32 # Revision 1.2  1998/11/20 08:50:37  ivan
  33 # s/CGI::Base/CGI.pm, visual fixes
  34 #
  35
  36 use strict;
  37 use CGI;
  38 use CGI::Carp qw(fatalsToBrowser);
  39 use FS::UID qw(cgisuidsetup);
  40 use FS::Record qw(qsearch fields);
  41 use FS::part_svc;
  42 use FS::CGI qw(header menubar popurl table);
  43
  44 my($cgi) = new CGI;
  45
  46 &cgisuidsetup($cgi);
  47
  48 my $p = popurl(2);
  49
  50 print $cgi->header( '-expires' => 'now' ), header('Service Part Listing', menubar(
  51   'Main Menu' => $p,
  52 )),<<END;
  53     Services are items you offer to your customers.<BR><BR>
  54 END
  55 print table, <<END;
  56       <TR>
  57         <TH COLSPAN=2>Service</TH>
  58         <TH>Table</TH>
  59         <TH>Field</TH>
  60         <TH COLSPAN=2>Modifier</TH>
  61       </TR>
  62 END
  63
  64 my($part_svc);
  65 foreach $part_svc ( sort {
  66   $a->getfield('svcpart') <=> $b->getfield('svcpart')
  67 } qsearch('part_svc',{}) ) {
  68   my($hashref)=$part_svc->hashref;
  69   my($svcdb)=$hashref->{svcdb};
  70   my(@rows)=
  71     grep $hashref->{${svcdb}.'__'.$_.'_flag'},
  72       map { /^${svcdb}__(.*)$/; $1 }
  73         grep ! /_flag$/,
  74           grep /^${svcdb}__/,
  75             fields('part_svc')
  76   ;
  77   my($rowspan)=scalar(@rows) || 1;
  78   print <<END;
  79       <TR>
  80         <TD ROWSPAN=$rowspan><A HREF="${p}edit/part_svc.cgi?$hashref->{svcpart}">
  81           $hashref->{svcpart}</A></TD>
  82         <TD ROWSPAN=$rowspan><A HREF="${p}edit/part_svc.cgi?$hashref->{svcpart}">          $hashref->{svc}</A></TD>
  83         <TD ROWSPAN=$rowspan>$hashref->{svcdb}</TD>
  84 END
  85
  86   my($n1)='';
  87   my($row);
  88   foreach $row ( @rows ) {
  89     my($flag)=$part_svc->getfield($svcdb.'__'.$row.'_flag');
  90     print $n1,"<TD>$row</TD><TD>";
  91     if ( $flag eq "D" ) { print "Default"; }
  92       elsif ( $flag eq "F" ) { print "Fixed"; }
  93       else { print "(Unknown!)"; }
  94     print "</TD><TD>",$part_svc->getfield($svcdb."__".$row),"</TD>";
  95     $n1="</TR><TR>";
  96   }
  97 print "</TR>";
  98 }
  99
 100 print <<END;
 101       <TR>
 102         <TD COLSPAN=2><A HREF="${p}edit/part_svc.cgi"><I>Add new service</I></A></TD>
 103       </TR>
 104     </TABLE>
 105   </BODY>
 106 </HTML>
 107 END
 108