3 # $Id: cust_pkg.cgi,v 1.7 1999-01-19 05:14:20 ivan Exp $
5 # Usage: cust_pkg.cgi pkgnum
6 # http://server.name/path/cust_pkg.cgi?pkgnum
8 # Note: Should be run setuid freeside as user nobody.
10 # ivan@voicenet.com 96-dec-15
12 # services section needs to be cleaned up, needs to display extraneous
13 # entries in cust_pkg!
14 # ivan@voicenet.com 96-dec-31
16 # added navigation bar
17 # ivan@voicenet.com 97-jan-30
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
23 # rewrote for new API, still needs to be cleaned up!
24 # ivan@voicenet.com 97-jul-29
26 # no FS::Search ivan@sisd.com 98-mar-7
28 # $Log: cust_pkg.cgi,v $
29 # Revision 1.7 1999-01-19 05:14:20 ivan
30 # for mod_perl: no more top-level my() variables; use vars instead
31 # also the last s/create/new/;
33 # Revision 1.6 1999/01/18 09:41:44 ivan
34 # all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl
37 # Revision 1.5 1998/12/23 03:11:40 ivan
38 # *** empty log message ***
40 # Revision 1.3 1998/12/17 09:57:22 ivan
41 # s/CGI::(Base|Request)/CGI.pm/;
43 # Revision 1.2 1998/11/13 09:56:49 ivan
44 # change configuration file layout to support multiple distinct databases (with
45 # own set of config files, export, etc.)
49 use vars qw ( $cgi %uiview %uiadd $part_svc $query $pkgnum $cust_pkg $part_pkg
50 $custnum $susp $cancel $expire $pkg $comment $setup $bill
54 use CGI::Carp qw(fatalsToBrowser);
55 use FS::UID qw(cgisuidsetup);
56 use FS::CGI qw(popurl header);
57 use FS::Record qw(qsearch qsearchs);
67 foreach $part_svc ( qsearch('part_svc',{}) ) {
68 $uiview{$part_svc->svcpart} = popurl(2). "view/". $part_svc->svcdb . ".cgi";
69 $uiadd{$part_svc->svcpart}= popurl(2). "edit/". $part_svc->svcdb . ".cgi";
72 print $cgi->header( '-expires' => 'now' ), header('Package View', '');
74 ($query) = $cgi->keywords;
79 $cust_pkg = qsearchs('cust_pkg',{'pkgnum'=>$pkgnum});
80 die "No package!" unless $cust_pkg;
81 $part_pkg = qsearchs('part_pkg',{'pkgpart'=>$cust_pkg->getfield('pkgpart')});
84 $custnum = $cust_pkg->getfield('custnum');
85 print qq!<CENTER><A HREF="../view/cust_main.cgi?$custnum">View this customer!,
86 qq! (#$custnum)</A> | <A HREF="../">Main menu</A></CENTER><BR>!;
89 ($susp,$cancel,$expire)=(
90 $cust_pkg->getfield('susp'),
91 $cust_pkg->getfield('cancel'),
92 $cust_pkg->getfield('expire'),
94 print "<FONT SIZE=+1><CENTER>Package #<B>$pkgnum</B></FONT>";
95 print qq!<BR><A HREF="#package">Package Information</A>!;
96 print qq! | <A HREF="#services">Service Information</A>! unless $cancel;
97 print qq!</CENTER><HR>\n!;
99 ($pkg,$comment)=($part_pkg->getfield('pkg'),$part_pkg->getfield('comment'));
100 print qq!<A NAME="package"><CENTER><FONT SIZE=+1>Package Information!,
102 print qq!<BR><A HREF="../unimp.html">Edit this information</A></CENTER>!;
103 print "<P>Package: <B>$pkg - $comment</B>";
105 ($setup,$bill)=($cust_pkg->getfield('setup'),$cust_pkg->getfield('bill'));
106 print "<BR>Setup: <B>", $setup ? time2str("%D",$setup) : "(Not setup)" ,"</B>";
107 print "<BR>Next bill: <B>", $bill ? time2str("%D",$bill) : "" ,"</B>";
110 print "<BR>Suspended: <B>", time2str("%D",$susp), "</B>";
111 print qq! <A HREF="../misc/unsusp_pkg.cgi?$pkgnum">Unsuspend</A>! unless $cancel;
113 print qq!<BR><A HREF="../misc/susp_pkg.cgi?$pkgnum">Suspend</A>! unless $cancel;
117 print "<BR>Expire: <B>", time2str("%D",$expire), "</B>";
120 <FORM ACTION="../misc/expire_pkg.cgi" METHOD="post">
121 <INPUT TYPE="hidden" NAME="pkgnum" VALUE="$pkgnum">
122 Expire (date): <INPUT TYPE="text" NAME="date" VALUE="" >
123 <INPUT TYPE="submit" VALUE="Cancel later">
127 print "<BR>Cancelled: <B>", time2str("%D",$cancel), "</B>";
129 print qq!<BR><A HREF="../misc/cancel_pkg.cgi?$pkgnum">Cancel now</A>!;
133 $otaker = $cust_pkg->getfield('otaker');
134 print "<P>Order taken by <B>$otaker</B>";
140 <HR><A NAME="services"><CENTER><FONT SIZE=+1>Service Information</FONT></A>
141 <BR>Click on service to view/edit/add service.</CENTER><BR>
142 <CENTER><B>Do NOT pick the "Link to existing" option unless you are auditing!!!</B></CENTER>
143 <CENTER><TABLE BORDER=4>
147 #list of services this pkgpart includes
148 my($pkg_svc,%pkg_svc);
149 foreach $pkg_svc ( qsearch('pkg_svc',{'pkgpart'=> $cust_pkg->pkgpart }) ) {
150 $pkg_svc{$pkg_svc->svcpart} = $pkg_svc->quantity if $pkg_svc->quantity;
153 #list of records from cust_svc
155 foreach $svcpart (sort {$a <=> $b} keys %pkg_svc) {
157 my($svc)=qsearchs('part_svc',{'svcpart'=>$svcpart})->getfield('svc');
159 my(@cust_svc)=qsearch('cust_svc',{'pkgnum'=>$pkgnum,
164 for $enum ( 1 .. $pkg_svc{$svcpart} ) {
167 if ( $cust_svc=shift @cust_svc ) {
168 my($svcnum)=$cust_svc->svcnum;
170 <TR><TD><A HREF="$uiview{$svcpart}?$svcnum">(View) $svc<A></TD></TR>
175 <TD><A HREF="$uiadd{$svcpart}?pkgnum$pkgnum-svcpart$svcpart">
177 or <A HREF="../misc/link.cgi?pkgnum$pkgnum-svcpart$svcpart">
178 (Link to existing) $svc</A>
185 warn "WARNING: Leftover services pkgnum $pkgnum!" if @cust_svc;;
188 print "</TABLE></CENTER>";