1 <!-- $Id: cust_pkg.cgi,v 1.6 2002-01-30 14:18:09 ivan Exp $ -->
6 foreach my $part_svc ( qsearch('part_svc',{}) ) {
7 $uiview{$part_svc->svcpart} = popurl(2). "view/". $part_svc->svcdb . ".cgi";
8 $uiadd{$part_svc->svcpart}= popurl(2). "edit/". $part_svc->svcdb . ".cgi";
11 my ($query) = $cgi->keywords;
16 my $cust_pkg = qsearchs('cust_pkg',{'pkgnum'=>$pkgnum});
17 die "No package!" unless $cust_pkg;
18 my $part_pkg = qsearchs('part_pkg',{'pkgpart'=>$cust_pkg->getfield('pkgpart')});
20 my $custnum = $cust_pkg->getfield('custnum');
21 print header('Package View', menubar(
22 "View this customer (#$custnum)" => popurl(2). "view/cust_main.cgi?$custnum",
23 'Main Menu' => popurl(2)
27 my ($susp,$cancel,$expire)=(
28 $cust_pkg->getfield('susp'),
29 $cust_pkg->getfield('cancel'),
30 $cust_pkg->getfield('expire'),
32 my($pkg,$comment)=($part_pkg->getfield('pkg'),$part_pkg->getfield('comment'));
33 my($setup,$bill)=($cust_pkg->getfield('setup'),$cust_pkg->getfield('bill'));
34 my $otaker = $cust_pkg->getfield('otaker');
38 function areyousure(href) {
39 if (confirm("Permanantly delete included services and cancel this package?") == true)
40 window.location.href = href;
45 print "Package information";
46 print ' (<A HREF="'. popurl(2). 'misc/unsusp_pkg.cgi?'. $pkgnum.
48 if ( $susp && ! $cancel );
50 print ' (<A HREF="'. popurl(2). 'misc/susp_pkg.cgi?'. $pkgnum.
52 unless ( $susp || $cancel );
54 print ' (<A HREF="javascript:areyousure(\''. popurl(2). 'misc/cancel_pkg.cgi?'.
55 $pkgnum. '\')">cancel</A>)'
58 print ' (<A HREF="'. popurl(2). 'edit/REAL_cust_pkg.cgi?'. $pkgnum.
61 print &ntable("#cccccc"), '<TR><TD>', &ntable("#cccccc",2),
62 '<TR><TD ALIGN="right">Package number</TD><TD BGCOLOR="#ffffff">',
63 $pkgnum, '</TD></TR>',
64 '<TR><TD ALIGN="right">Package</TD><TD BGCOLOR="#ffffff">',
66 '<TR><TD ALIGN="right">Comment</TD><TD BGCOLOR="#ffffff">',
67 $comment, '</TD></TR>',
68 '<TR><TD ALIGN="right">Setup date</TD><TD BGCOLOR="#ffffff">',
69 ( $setup ? time2str("%D",$setup) : "(Not setup)" ), '</TD></TR>',
70 '<TR><TD ALIGN="right">Next bill date</TD><TD BGCOLOR="#ffffff">',
71 ( $bill ? time2str("%D",$bill) : " " ), '</TD></TR>',
73 print '<TR><TD ALIGN="right">Suspension date</TD><TD BGCOLOR="#ffffff">',
74 time2str("%D",$susp), '</TD></TR>' if $susp;
75 print '<TR><TD ALIGN="right">Expiration date</TD><TD BGCOLOR="#ffffff">',
76 time2str("%D",$expire), '</TD></TR>' if $expire;
77 print '<TR><TD ALIGN="right">Cancellation date</TD><TD BGCOLOR="#ffffff">',
78 time2str("%D",$cancel), '</TD></TR>' if $cancel;
79 print '<TR><TD ALIGN="right">Order taker</TD><TD BGCOLOR="#ffffff">',
80 $otaker, '</TD></TR>',
81 '</TABLE></TD></TR></TABLE>'
85 #<FORM ACTION="../misc/expire_pkg.cgi" METHOD="post">
86 #<INPUT TYPE="hidden" NAME="pkgnum" VALUE="$pkgnum">
87 #Expire (date): <INPUT TYPE="text" NAME="date" VALUE="" >
88 #<INPUT TYPE="submit" VALUE="Cancel later">
94 print '<BR>Service Information', &table();
96 #list of services this pkgpart includes
99 foreach $pkg_svc ( qsearch('pkg_svc',{'pkgpart'=> $cust_pkg->pkgpart }) ) {
100 $pkg_svc{$pkg_svc->svcpart} = $pkg_svc->quantity if $pkg_svc->quantity;
103 #list of records from cust_svc
105 foreach $svcpart (sort {$a <=> $b} keys %pkg_svc) {
107 my($svc)=qsearchs('part_svc',{'svcpart'=>$svcpart})->getfield('svc');
109 my(@cust_svc)=qsearch('cust_svc',{'pkgnum'=>$pkgnum,
114 for $enum ( 1 .. $pkg_svc{$svcpart} ) {
117 if ( $cust_svc=shift @cust_svc ) {
118 my($svcnum)=$cust_svc->svcnum;
119 my($label, $value, $svcdb) = $cust_svc->label;
121 <TR><TD><A HREF="$uiview{$svcpart}?$svcnum">(View) $svc: $value<A></TD></TR>
126 <TD><A HREF="$uiadd{$svcpart}?pkgnum$pkgnum-svcpart$svcpart">
128 or <A HREF="../misc/link.cgi?pkgnum$pkgnum-svcpart$svcpart">
129 (Link to existing) $svc</A>
136 warn "WARNING: Leftover services pkgnum $pkgnum!" if @cust_svc;;
139 print "</TABLE><FONT SIZE=-1>",
140 "Choose (View) to view or edit an existing service<BR>",
141 "Choose (Add) to setup a new service<BR>",
142 "Choose (Link to existing) to link to a legacy (pre-Freeside) service",