2 # <!-- $Id: cust_pkg.cgi,v 1.4 2001-10-26 10:24:56 ivan Exp $ -->
5 use vars qw ( $cgi %uiview %uiadd $part_svc $query $pkgnum $cust_pkg $part_pkg
6 $custnum $susp $cancel $expire $pkg $comment $setup $bill
10 use CGI::Carp qw(fatalsToBrowser);
11 use FS::UID qw(cgisuidsetup);
12 use FS::CGI qw(popurl header menubar ntable table);
13 use FS::Record qw(qsearch qsearchs);
23 foreach $part_svc ( qsearch('part_svc',{}) ) {
24 $uiview{$part_svc->svcpart} = popurl(2). "view/". $part_svc->svcdb . ".cgi";
25 $uiadd{$part_svc->svcpart}= popurl(2). "edit/". $part_svc->svcdb . ".cgi";
28 ($query) = $cgi->keywords;
33 $cust_pkg = qsearchs('cust_pkg',{'pkgnum'=>$pkgnum});
34 die "No package!" unless $cust_pkg;
35 $part_pkg = qsearchs('part_pkg',{'pkgpart'=>$cust_pkg->getfield('pkgpart')});
37 $custnum = $cust_pkg->getfield('custnum');
38 print $cgi->header( @FS::CGI::header ), header('Package View', menubar(
39 "View this customer (#$custnum)" => popurl(2). "view/cust_main.cgi?$custnum",
40 'Main Menu' => popurl(2)
44 ($susp,$cancel,$expire)=(
45 $cust_pkg->getfield('susp'),
46 $cust_pkg->getfield('cancel'),
47 $cust_pkg->getfield('expire'),
49 ($pkg,$comment)=($part_pkg->getfield('pkg'),$part_pkg->getfield('comment'));
50 ($setup,$bill)=($cust_pkg->getfield('setup'),$cust_pkg->getfield('bill'));
51 $otaker = $cust_pkg->getfield('otaker');
55 function areyousure(href) {
56 if (confirm("Permanantly delete included services and cancel this package?") == true)
57 window.location.href = href;
62 print "Package information";
63 print ' (<A HREF="'. popurl(2). 'misc/unsusp_pkg.cgi?'. $pkgnum.
65 if ( $susp && ! $cancel );
67 print ' (<A HREF="'. popurl(2). 'misc/susp_pkg.cgi?'. $pkgnum.
69 unless ( $susp || $cancel );
71 print ' (<A HREF="javascript:areyousure(\''. popurl(2). 'misc/cancel_pkg.cgi?'.
72 $pkgnum. '\')">cancel</A>)'
75 print ' (<A HREF="'. popurl(2). 'edit/REAL_cust_pkg.cgi?'. $pkgnum.
78 print &ntable("#cccccc"), '<TR><TD>', &ntable("#cccccc",2),
79 '<TR><TD ALIGN="right">Package number</TD><TD BGCOLOR="#ffffff">',
80 $pkgnum, '</TD></TR>',
81 '<TR><TD ALIGN="right">Package</TD><TD BGCOLOR="#ffffff">',
83 '<TR><TD ALIGN="right">Comment</TD><TD BGCOLOR="#ffffff">',
84 $comment, '</TD></TR>',
85 '<TR><TD ALIGN="right">Setup date</TD><TD BGCOLOR="#ffffff">',
86 ( $setup ? time2str("%D",$setup) : "(Not setup)" ), '</TD></TR>',
87 '<TR><TD ALIGN="right">Next bill date</TD><TD BGCOLOR="#ffffff">',
88 ( $bill ? time2str("%D",$bill) : " " ), '</TD></TR>',
90 print '<TR><TD ALIGN="right">Suspension date</TD><TD BGCOLOR="#ffffff">',
91 time2str("%D",$susp), '</TD></TR>' if $susp;
92 print '<TR><TD ALIGN="right">Expiration date</TD><TD BGCOLOR="#ffffff">',
93 time2str("%D",$expire), '</TD></TR>' if $expire;
94 print '<TR><TD ALIGN="right">Cancellation date</TD><TD BGCOLOR="#ffffff">',
95 time2str("%D",$cancel), '</TD></TR>' if $cancel;
96 print '<TR><TD ALIGN="right">Order taker</TD><TD BGCOLOR="#ffffff">',
97 $otaker, '</TD></TR>',
98 '</TABLE></TD></TR></TABLE>'
102 #<FORM ACTION="../misc/expire_pkg.cgi" METHOD="post">
103 #<INPUT TYPE="hidden" NAME="pkgnum" VALUE="$pkgnum">
104 #Expire (date): <INPUT TYPE="text" NAME="date" VALUE="" >
105 #<INPUT TYPE="submit" VALUE="Cancel later">
111 print '<BR>Service Information', &table();
113 #list of services this pkgpart includes
116 foreach $pkg_svc ( qsearch('pkg_svc',{'pkgpart'=> $cust_pkg->pkgpart }) ) {
117 $pkg_svc{$pkg_svc->svcpart} = $pkg_svc->quantity if $pkg_svc->quantity;
120 #list of records from cust_svc
122 foreach $svcpart (sort {$a <=> $b} keys %pkg_svc) {
124 my($svc)=qsearchs('part_svc',{'svcpart'=>$svcpart})->getfield('svc');
126 my(@cust_svc)=qsearch('cust_svc',{'pkgnum'=>$pkgnum,
131 for $enum ( 1 .. $pkg_svc{$svcpart} ) {
134 if ( $cust_svc=shift @cust_svc ) {
135 my($svcnum)=$cust_svc->svcnum;
136 my($label, $value, $svcdb) = $cust_svc->label;
138 <TR><TD><A HREF="$uiview{$svcpart}?$svcnum">(View) $svc: $value<A></TD></TR>
143 <TD><A HREF="$uiadd{$svcpart}?pkgnum$pkgnum-svcpart$svcpart">
145 or <A HREF="../misc/link.cgi?pkgnum$pkgnum-svcpart$svcpart">
146 (Link to existing) $svc</A>
153 warn "WARNING: Leftover services pkgnum $pkgnum!" if @cust_svc;;
156 print "</TABLE><FONT SIZE=-1>",
157 "Choose (View) to view or edit an existing service<BR>",
158 "Choose (Add) to setup a new service<BR>",
159 "Choose (Link to existing) to link to a legacy (pre-Freeside) service",