htdocs/view/cust_pkg.cgi

   1 #!/usr/bin/perl -Tw
   2 #
   3 # cust_pkg.cgi: View a package
   4 #
   5 # Usage: cust_pkg.cgi pkgnum
   6 #        http://server.name/path/cust_pkg.cgi?pkgnum
   7 #
   8 # Note: Should be run setuid freeside as user nobody.
   9 #
  10 # ivan@voicenet.com 96-dec-15
  11 #
  12 # services section needs to be cleaned up, needs to display extraneous
  13 # entries in cust_pkg!
  14 # ivan@voicenet.com 96-dec-31
  15 #
  16 # added navigation bar
  17 # ivan@voicenet.com 97-jan-30
  18 #
  19 # changed and fixed up suspension and cancel stuff, now you can't add
  20 # services to a cancelled package
  21 # ivan@voicenet.com 97-feb-27
  22 #
  23 # rewrote for new API, still needs to be cleaned up!
  24 # ivan@voicenet.com 97-jul-29
  25 #
  26 # no FS::Search ivan@sisd.com 98-mar-7
  27
  28 use strict;
  29 use Date::Format;
  30 use CGI::Base qw(:DEFAULT :CGI); # CGI module
  31 use FS::UID qw(cgisuidsetup);
  32 use FS::Record qw(qsearch qsearchs);
  33
  34 my($cgi) = new CGI::Base;
  35 $cgi->get;
  36 &cgisuidsetup($cgi);
  37
  38 my(%uiview,%uiadd);
  39 my($part_svc);
  40 foreach $part_svc ( qsearch('part_svc',{}) ) {
  41   $uiview{$part_svc->svcpart}="../view/". $part_svc->svcdb . ".cgi";
  42   $uiadd{$part_svc->svcpart}="../edit/". $part_svc->svcdb . ".cgi";
  43 }
  44
  45 SendHeaders(); # one guess.
  46 print <<END;
  47 <HTML>
  48   <HEAD>
  49     <TITLE>Package View</TITLE>
  50   </HEAD>
  51   <BODY>
  52     <CENTER>
  53     <H1>Package View</H1>
  54     </CENTER>
  55     <BASEFONT SIZE=3>
  56 END
  57
  58 #untaint pkgnum
  59 $QUERY_STRING =~ /^(\d+)$/;
  60 my($pkgnum)=$1;
  61
  62 #get package record
  63 my($cust_pkg)=qsearchs('cust_pkg',{'pkgnum'=>$pkgnum});
  64 die "No package!" unless $cust_pkg;
  65 my($part_pkg)=qsearchs('part_pkg',{'pkgpart'=>$cust_pkg->getfield('pkgpart')});
  66
  67 #nav bar
  68 my($custnum)=$cust_pkg->getfield('custnum');
  69 print qq!<CENTER><A HREF="../view/cust_main.cgi?$custnum">View this customer!,
  70       qq! (#$custnum)</A> | <A HREF="../">Main menu</A></CENTER><BR>!;
  71
  72 #print info
  73 my($susp,$cancel,$expire)=(
  74   $cust_pkg->getfield('susp'),
  75   $cust_pkg->getfield('cancel'),
  76   $cust_pkg->getfield('expire'),
  77 );
  78 print "<FONT SIZE=+1><CENTER>Package #<B>$pkgnum</B></FONT>";
  79 print qq!<BR><A HREF="#package">Package Information</A>!;
  80 print qq! | <A HREF="#services">Service Information</A>! unless $cancel;
  81 print qq!</CENTER><HR>\n!;
  82
  83 my($pkg,$comment)=($part_pkg->getfield('pkg'),$part_pkg->getfield('comment'));
  84 print qq!<A NAME="package"><CENTER><FONT SIZE=+1>Package Information!,
  85       qq!</FONT></A>!;
  86 print qq!<BR><A HREF="../unimp.html">Edit this information</A></CENTER>!;
  87 print "<P>Package: <B>$pkg - $comment</B>";
  88
  89 my($setup,$bill)=($cust_pkg->getfield('setup'),$cust_pkg->getfield('bill'));
  90 print "<BR>Setup: <B>", $setup ? time2str("%D",$setup) : "(Not setup)" ,"</B>";
  91 print "<BR>Next bill: <B>", $bill ? time2str("%D",$bill) : "" ,"</B>";
  92
  93 if ($susp) {
  94   print "<BR>Suspended: <B>", time2str("%D",$susp), "</B>";
  95   print qq! <A HREF="../misc/unsusp_pkg.cgi?$pkgnum">Unsuspend</A>! unless $cancel;
  96 } else {
  97   print qq!<BR><A HREF="../misc/susp_pkg.cgi?$pkgnum">Suspend</A>! unless $cancel;
  98 }
  99
 100 if ($expire) {
 101   print "<BR>Expire: <B>", time2str("%D",$expire), "</B>";
 102 }
 103   print <<END;
 104 <FORM ACTION="../misc/expire_pkg.cgi" METHOD="post">
 105 <INPUT TYPE="hidden" NAME="pkgnum" VALUE="$pkgnum">
 106 Expire (date): <INPUT TYPE="text" NAME="date" VALUE="" >
 107 <INPUT TYPE="submit" VALUE="Cancel later">
 108 END
 109
 110 if ($cancel) {
 111   print "<BR>Cancelled: <B>", time2str("%D",$cancel), "</B>";
 112 } else {
 113   print qq!<BR><A HREF="../misc/cancel_pkg.cgi?$pkgnum">Cancel now</A>!;
 114 }
 115
 116 #otaker
 117 my($otaker)=$cust_pkg->getfield('otaker');
 118 print "<P>Order taken by <B>$otaker</B>";
 119
 120 unless ($cancel) {
 121
 122   #services
 123   print <<END;
 124 <HR><A NAME="services"><CENTER><FONT SIZE=+1>Service Information</FONT></A>
 125 <BR>Click on service to view/edit/add service.</CENTER><BR>
 126 <CENTER><B>Do NOT pick the "Link to existing" option unless you are auditing!!!</B></CENTER>
 127 <CENTER><TABLE BORDER=4>
 128 <TR><TH>Service</TH>
 129 END
 130
 131   #list of services this pkgpart includes
 132   my($pkg_svc,%pkg_svc);
 133   foreach $pkg_svc ( qsearch('pkg_svc',{'pkgpart'=> $cust_pkg->pkgpart }) ) {
 134     $pkg_svc{$pkg_svc->svcpart} = $pkg_svc->quantity if $pkg_svc->quantity;
 135   }
 136
 137   #list of records from cust_svc
 138   my($svcpart);
 139   foreach $svcpart (sort {$a <=> $b} keys %pkg_svc) {
 140
 141     my($svc)=qsearchs('part_svc',{'svcpart'=>$svcpart})->getfield('svc');
 142
 143     my(@cust_svc)=qsearch('cust_svc',{'pkgnum'=>$pkgnum,
 144                                       'svcpart'=>$svcpart,
 145                                      });
 146
 147     my($enum);
 148     for $enum ( 1 .. $pkg_svc{$svcpart} ) {
 149
 150       my($cust_svc);
 151       if ( $cust_svc=shift @cust_svc ) {
 152         my($svcnum)=$cust_svc->svcnum;
 153         print <<END;
 154 <TR><TD><A HREF="$uiview{$svcpart}?$svcnum">(View) $svc<A></TD></TR>
 155 END
 156       } else {
 157         print <<END;
 158 <TR>
 159   <TD><A HREF="$uiadd{$svcpart}?pkgnum$pkgnum-svcpart$svcpart">
 160       (Add) $svc</A>
 161    or <A HREF="../misc/link.cgi?pkgnum$pkgnum-svcpart$svcpart">
 162       (Link to existing) $svc</A>
 163   </TD>
 164 </TR>
 165 END
 166       }
 167
 168     }
 169     warn "WARNING: Leftover services pkgnum $pkgnum!" if @cust_svc;;
 170   }
 171
 172   print "</TABLE></CENTER>";
 173
 174 }
 175
 176 #formatting
 177 print <<END;
 178   </BODY>
 179 </HTML>
 180 END
 181