htdocs/view/cust_pkg.cgi

   1 #!/usr/bin/perl -Tw
   2 #
   3 # $Id: cust_pkg.cgi,v 1.8 1999-02-28 00:04:01 ivan Exp $
   4 #
   5 # Usage: cust_pkg.cgi pkgnum
   6 #        http://server.name/path/cust_pkg.cgi?pkgnum
   7 #
   8 # ivan@voicenet.com 96-dec-15
   9 #
  10 # services section needs to be cleaned up, needs to display extraneous
  11 # entries in cust_pkg!
  12 # ivan@voicenet.com 96-dec-31
  13 #
  14 # added navigation bar
  15 # ivan@voicenet.com 97-jan-30
  16 #
  17 # changed and fixed up suspension and cancel stuff, now you can't add
  18 # services to a cancelled package
  19 # ivan@voicenet.com 97-feb-27
  20 #
  21 # rewrote for new API, still needs to be cleaned up!
  22 # ivan@voicenet.com 97-jul-29
  23 #
  24 # no FS::Search ivan@sisd.com 98-mar-7
  25 #
  26 # $Log: cust_pkg.cgi,v $
  27 # Revision 1.8  1999-02-28 00:04:01  ivan
  28 # removed misleading comments
  29 #
  30 # Revision 1.7  1999/01/19 05:14:20  ivan
  31 # for mod_perl: no more top-level my() variables; use vars instead
  32 # also the last s/create/new/;
  33 #
  34 # Revision 1.6  1999/01/18 09:41:44  ivan
  35 # all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl
  36 # (good idea anyway)
  37 #
  38 # Revision 1.5  1998/12/23 03:11:40  ivan
  39 # *** empty log message ***
  40 #
  41 # Revision 1.3  1998/12/17 09:57:22  ivan
  42 # s/CGI::(Base|Request)/CGI.pm/;
  43 #
  44 # Revision 1.2  1998/11/13 09:56:49  ivan
  45 # change configuration file layout to support multiple distinct databases (with
  46 # own set of config files, export, etc.)
  47 #
  48
  49 use strict;
  50 use vars qw ( $cgi %uiview %uiadd $part_svc $query $pkgnum $cust_pkg $part_pkg
  51               $custnum $susp $cancel $expire $pkg $comment $setup $bill
  52               $otaker );
  53 use Date::Format;
  54 use CGI;
  55 use CGI::Carp qw(fatalsToBrowser);
  56 use FS::UID qw(cgisuidsetup);
  57 use FS::CGI qw(popurl header);
  58 use FS::Record qw(qsearch qsearchs);
  59 use FS::part_svc;
  60 use FS::cust_pkg;
  61 use FS::part_pkg;
  62 use FS::pkg_svc;
  63 use FS::cust_svc;
  64
  65 $cgi = new CGI;
  66 cgisuidsetup($cgi);
  67
  68 foreach $part_svc ( qsearch('part_svc',{}) ) {
  69   $uiview{$part_svc->svcpart} = popurl(2). "view/". $part_svc->svcdb . ".cgi";
  70   $uiadd{$part_svc->svcpart}= popurl(2). "edit/". $part_svc->svcdb . ".cgi";
  71 }
  72
  73 print $cgi->header( '-expires' => 'now' ), header('Package View', '');
  74
  75 ($query) = $cgi->keywords;
  76 $query =~ /^(\d+)$/;
  77 $pkgnum = $1;
  78
  79 #get package record
  80 $cust_pkg = qsearchs('cust_pkg',{'pkgnum'=>$pkgnum});
  81 die "No package!" unless $cust_pkg;
  82 $part_pkg = qsearchs('part_pkg',{'pkgpart'=>$cust_pkg->getfield('pkgpart')});
  83
  84 #nav bar
  85 $custnum = $cust_pkg->getfield('custnum');
  86 print qq!<CENTER><A HREF="../view/cust_main.cgi?$custnum">View this customer!,
  87       qq! (#$custnum)</A> | <A HREF="../">Main menu</A></CENTER><BR>!;
  88
  89 #print info
  90 ($susp,$cancel,$expire)=(
  91   $cust_pkg->getfield('susp'),
  92   $cust_pkg->getfield('cancel'),
  93   $cust_pkg->getfield('expire'),
  94 );
  95 print "<FONT SIZE=+1><CENTER>Package #<B>$pkgnum</B></FONT>";
  96 print qq!<BR><A HREF="#package">Package Information</A>!;
  97 print qq! | <A HREF="#services">Service Information</A>! unless $cancel;
  98 print qq!</CENTER><HR>\n!;
  99
 100 ($pkg,$comment)=($part_pkg->getfield('pkg'),$part_pkg->getfield('comment'));
 101 print qq!<A NAME="package"><CENTER><FONT SIZE=+1>Package Information!,
 102       qq!</FONT></A>!;
 103 print qq!<BR><A HREF="../unimp.html">Edit this information</A></CENTER>!;
 104 print "<P>Package: <B>$pkg - $comment</B>";
 105
 106 ($setup,$bill)=($cust_pkg->getfield('setup'),$cust_pkg->getfield('bill'));
 107 print "<BR>Setup: <B>", $setup ? time2str("%D",$setup) : "(Not setup)" ,"</B>";
 108 print "<BR>Next bill: <B>", $bill ? time2str("%D",$bill) : "" ,"</B>";
 109
 110 if ($susp) {
 111   print "<BR>Suspended: <B>", time2str("%D",$susp), "</B>";
 112   print qq! <A HREF="../misc/unsusp_pkg.cgi?$pkgnum">Unsuspend</A>! unless $cancel;
 113 } else {
 114   print qq!<BR><A HREF="../misc/susp_pkg.cgi?$pkgnum">Suspend</A>! unless $cancel;
 115 }
 116
 117 if ($expire) {
 118   print "<BR>Expire: <B>", time2str("%D",$expire), "</B>";
 119 }
 120   print <<END;
 121 <FORM ACTION="../misc/expire_pkg.cgi" METHOD="post">
 122 <INPUT TYPE="hidden" NAME="pkgnum" VALUE="$pkgnum">
 123 Expire (date): <INPUT TYPE="text" NAME="date" VALUE="" >
 124 <INPUT TYPE="submit" VALUE="Cancel later">
 125 END
 126
 127 if ($cancel) {
 128   print "<BR>Cancelled: <B>", time2str("%D",$cancel), "</B>";
 129 } else {
 130   print qq!<BR><A HREF="../misc/cancel_pkg.cgi?$pkgnum">Cancel now</A>!;
 131 }
 132
 133 #otaker
 134 $otaker = $cust_pkg->getfield('otaker');
 135 print "<P>Order taken by <B>$otaker</B>";
 136
 137 unless ($cancel) {
 138
 139   #services
 140   print <<END;
 141 <HR><A NAME="services"><CENTER><FONT SIZE=+1>Service Information</FONT></A>
 142 <BR>Click on service to view/edit/add service.</CENTER><BR>
 143 <CENTER><B>Do NOT pick the "Link to existing" option unless you are auditing!!!</B></CENTER>
 144 <CENTER><TABLE BORDER=4>
 145 <TR><TH>Service</TH>
 146 END
 147
 148   #list of services this pkgpart includes
 149   my($pkg_svc,%pkg_svc);
 150   foreach $pkg_svc ( qsearch('pkg_svc',{'pkgpart'=> $cust_pkg->pkgpart }) ) {
 151     $pkg_svc{$pkg_svc->svcpart} = $pkg_svc->quantity if $pkg_svc->quantity;
 152   }
 153
 154   #list of records from cust_svc
 155   my($svcpart);
 156   foreach $svcpart (sort {$a <=> $b} keys %pkg_svc) {
 157
 158     my($svc)=qsearchs('part_svc',{'svcpart'=>$svcpart})->getfield('svc');
 159
 160     my(@cust_svc)=qsearch('cust_svc',{'pkgnum'=>$pkgnum,
 161                                       'svcpart'=>$svcpart,
 162                                      });
 163
 164     my($enum);
 165     for $enum ( 1 .. $pkg_svc{$svcpart} ) {
 166
 167       my($cust_svc);
 168       if ( $cust_svc=shift @cust_svc ) {
 169         my($svcnum)=$cust_svc->svcnum;
 170         print <<END;
 171 <TR><TD><A HREF="$uiview{$svcpart}?$svcnum">(View) $svc<A></TD></TR>
 172 END
 173       } else {
 174         print <<END;
 175 <TR>
 176   <TD><A HREF="$uiadd{$svcpart}?pkgnum$pkgnum-svcpart$svcpart">
 177       (Add) $svc</A>
 178    or <A HREF="../misc/link.cgi?pkgnum$pkgnum-svcpart$svcpart">
 179       (Link to existing) $svc</A>
 180   </TD>
 181 </TR>
 182 END
 183       }
 184
 185     }
 186     warn "WARNING: Leftover services pkgnum $pkgnum!" if @cust_svc;;
 187   }
 188
 189   print "</TABLE></CENTER>";
 190
 191 }
 192
 193 #formatting
 194 print <<END;
 195   </BODY>
 196 </HTML>
 197 END
 198