4 %my $conf = new FS::Conf;
8 %foreach my $part_svc ( qsearch('part_svc',{}) ) {
9 % $uiview{$part_svc->svcpart} = popurl(2). "view/". $part_svc->svcdb . ".cgi";
10 % $uiadd{$part_svc->svcpart}= popurl(2). "edit/". $part_svc->svcdb . ".cgi";
13 %my ($query) = $cgi->keywords;
18 %my $cust_pkg = qsearchs('cust_pkg',{'pkgnum'=>$pkgnum});
19 %die "No package!" unless $cust_pkg;
20 %my $part_pkg = qsearchs('part_pkg',{'pkgpart'=>$cust_pkg->getfield('pkgpart')});
22 %my $custnum = $cust_pkg->getfield('custnum');
23 %print header('Package View', menubar(
24 % "View this customer (#$custnum)" => popurl(2). "view/cust_main.cgi?$custnum",
25 % 'Main Menu' => popurl(2)
29 %my ($susp,$cancel,$expire)=(
30 % $cust_pkg->getfield('susp'),
31 % $cust_pkg->getfield('cancel'),
32 % $cust_pkg->getfield('expire'),
34 %my($pkg,$comment)=($part_pkg->getfield('pkg'),$part_pkg->getfield('comment'));
35 %my($setup,$bill)=($cust_pkg->getfield('setup'),$cust_pkg->getfield('bill'));
36 %my $otaker = $cust_pkg->getfield('otaker');
40 %function areyousure(href) {
41 % if (confirm("Permanently delete included services and cancel this package?") == true)
42 % window.location.href = href;
47 %print "Package information";
48 %print ' (<A HREF="'. popurl(2). 'misc/unsusp_pkg.cgi?'. $pkgnum.
50 % if ( $susp && ! $cancel );
52 %print ' (<A HREF="'. popurl(2). 'misc/susp_pkg.cgi?'. $pkgnum.
54 % unless ( $susp || $cancel );
56 %print ' (<A HREF="javascript:areyousure(\''. popurl(2). 'misc/cancel_pkg.cgi?'.
57 % $pkgnum. '\')">cancel</A>)'
60 %print ' (<A HREF="'. popurl(2). 'edit/REAL_cust_pkg.cgi?'. $pkgnum.
61 % '">edit dates</A>)';
63 %print &ntable("#cccccc"), '<TR><TD>', &ntable("#cccccc",2),
64 % '<TR><TD ALIGN="right">Package number</TD><TD BGCOLOR="#ffffff">',
65 % $pkgnum, '</TD></TR>',
66 % '<TR><TD ALIGN="right">Package</TD><TD BGCOLOR="#ffffff">',
68 % '<TR><TD ALIGN="right">Comment</TD><TD BGCOLOR="#ffffff">',
69 % $comment, '</TD></TR>',
70 % '<TR><TD ALIGN="right">Setup date</TD><TD BGCOLOR="#ffffff">',
71 % ( $setup ? time2str("%D",$setup) : "(Not setup)" ), '</TD></TR>';
73 %print '<TR><TD ALIGN="right">Last bill date</TD><TD BGCOLOR="#ffffff">',
74 % ( $cust_pkg->get('last_bill') ? time2str("%D",$cust_pkg->get('last_bill')) : " " ),
76 % if $cust_pkg->dbdef_table->column('last_bill');
78 %print '<TR><TD ALIGN="right">Next bill date</TD><TD BGCOLOR="#ffffff">',
79 % ( $bill ? time2str("%D",$bill) : " " ), '</TD></TR>';
81 %print '<TR><TD ALIGN="right">Suspension date</TD><TD BGCOLOR="#ffffff">',
82 % time2str("%D",$susp), '</TD></TR>' if $susp;
83 %print '<TR><TD ALIGN="right">Expiration date</TD><TD BGCOLOR="#ffffff">',
84 % time2str("%D",$expire), '</TD></TR>' if $expire;
85 %print '<TR><TD ALIGN="right">Cancellation date</TD><TD BGCOLOR="#ffffff">',
86 % time2str("%D",$cancel), '</TD></TR>' if $cancel;
87 %print '<TR><TD ALIGN="right">Order taker</TD><TD BGCOLOR="#ffffff">',
88 % $otaker, '</TD></TR>',
89 % '</TABLE></TD></TR></TABLE>';
93 %<FORM ACTION="../misc/expire_pkg.cgi" METHOD="post">
94 %<INPUT TYPE="hidden" NAME="pkgnum" VALUE="$pkgnum">
95 %Expire (date): <INPUT TYPE="text" NAME="date" VALUE="" >
96 %<INPUT TYPE="submit" VALUE="Cancel later">
103 % print '<BR>Service Information', &table();
105 % #list of services this pkgpart includes
108 % #foreach $pkg_svc ( qsearch('pkg_svc',{'pkgpart'=> $cust_pkg->pkgpart }) ) {
109 % foreach $pkg_svc ( $cust_pkg->part_pkg->pkg_svc ) {
110 % $pkg_svc{$pkg_svc->svcpart} = $pkg_svc->quantity if $pkg_svc->quantity;
113 % #list of records from cust_svc
115 % foreach $svcpart (sort {$a <=> $b} keys %pkg_svc) {
117 % my($svc)=qsearchs('part_svc',{'svcpart'=>$svcpart})->getfield('svc');
119 % my(@cust_svc)=qsearch('cust_svc',{'pkgnum'=>$pkgnum,
120 % 'svcpart'=>$svcpart,
124 % for $enum ( 1 .. $pkg_svc{$svcpart} ) {
127 % if ( $cust_svc=shift @cust_svc ) {
128 % my($svcnum)=$cust_svc->svcnum;
129 % my($label, $value, $svcdb) = $cust_svc->label;
131 %<TR><TD><A HREF="$uiview{$svcpart}?$svcnum">(View/Edit) $svc: $value<A></TD></TR>
134 % print qq!<TR><TD>!.
135 % qq!<A HREF="$uiadd{$svcpart}?pkgnum$pkgnum-svcpart$svcpart">!.
136 % qq!(Provision) $svc</A>!;
138 % print qq! or <A HREF="../misc/link.cgi?pkgnum$pkgnum-svcpart$svcpart">!.
139 % qq!(Link to legacy) $svc</A>!
140 % if $conf->exists('legacy_link');
142 % print '</TD></TR>';
146 % warn "WARNING: Leftover services pkgnum $pkgnum!" if @cust_svc;;
149 % print "</TABLE><FONT SIZE=-1>",
150 % "Choose (View/Edit) to view or edit an existing service<BR>",
151 % "Choose (Provision) to setup a new service<BR>";
153 % print "Choose (Link to legacy) to link to a legacy (pre-Freeside) service"
154 % if $conf->exists('legacy_link');