httemplate/view/cust_pkg.cgi

   1 <!-- mason kludge -->
   2 <%
   3
   4 my $conf = new FS::Conf;
   5
   6 my %uiview = ();
   7 my %uiadd = ();
   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";
  11 }
  12
  13 my ($query) = $cgi->keywords;
  14 $query =~ /^(\d+)$/;
  15 my $pkgnum = $1;
  16
  17 #get package record
  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')});
  21
  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)
  26 ));
  27
  28 #print info
  29 my ($susp,$cancel,$expire)=(
  30   $cust_pkg->getfield('susp'),
  31   $cust_pkg->getfield('cancel'),
  32   $cust_pkg->getfield('expire'),
  33 );
  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');
  37
  38 print <<END;
  39 <SCRIPT>
  40 function areyousure(href) {
  41     if (confirm("Permanently delete included services and cancel this package?") == true)
  42         window.location.href = href;
  43 }
  44 </SCRIPT>
  45 END
  46
  47 print "Package information";
  48 print ' (<A HREF="'. popurl(2). 'misc/unsusp_pkg.cgi?'. $pkgnum.
  49       '">unsuspend</A>)'
  50   if ( $susp && ! $cancel );
  51
  52 print ' (<A HREF="'. popurl(2). 'misc/susp_pkg.cgi?'. $pkgnum.
  53       '">suspend</A>)'
  54   unless ( $susp || $cancel );
  55
  56 print ' (<A HREF="javascript:areyousure(\''. popurl(2). 'misc/cancel_pkg.cgi?'.
  57       $pkgnum.  '\')">cancel</A>)'
  58   unless $cancel;
  59
  60 print ' (<A HREF="'. popurl(2). 'edit/REAL_cust_pkg.cgi?'. $pkgnum.
  61       '">edit dates</A>)';
  62
  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">',
  67       $pkg,  '</TD></TR>',
  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>';
  72
  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')) : "&nbsp;" ),
  75       '</TD></TR>'
  76   if $cust_pkg->dbdef_table->column('last_bill');
  77
  78 print '<TR><TD ALIGN="right">Next bill date</TD><TD BGCOLOR="#ffffff">',
  79       ( $bill ? time2str("%D",$bill) : "&nbsp;" ), '</TD></TR>';
  80
  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>';
  90
  91 unless ($expire) {
  92   print <<END;
  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">
  97 END
  98 }
  99
 100 unless ($cancel) {
 101
 102   #services
 103   print '<BR>Service Information', &table();
 104
 105   #list of services this pkgpart includes
 106   my $pkg_svc;
 107   my %pkg_svc = ();
 108   foreach $pkg_svc ( qsearch('pkg_svc',{'pkgpart'=> $cust_pkg->pkgpart }) ) {
 109     $pkg_svc{$pkg_svc->svcpart} = $pkg_svc->quantity if $pkg_svc->quantity;
 110   }
 111
 112   #list of records from cust_svc
 113   my $svcpart;
 114   foreach $svcpart (sort {$a <=> $b} keys %pkg_svc) {
 115
 116     my($svc)=qsearchs('part_svc',{'svcpart'=>$svcpart})->getfield('svc');
 117
 118     my(@cust_svc)=qsearch('cust_svc',{'pkgnum'=>$pkgnum,
 119                                       'svcpart'=>$svcpart,
 120                                      });
 121
 122     my($enum);
 123     for $enum ( 1 .. $pkg_svc{$svcpart} ) {
 124
 125       my($cust_svc);
 126       if ( $cust_svc=shift @cust_svc ) {
 127         my($svcnum)=$cust_svc->svcnum;
 128         my($label, $value, $svcdb) = $cust_svc->label;
 129         print <<END;
 130 <TR><TD><A HREF="$uiview{$svcpart}?$svcnum">(View/Edit) $svc: $value<A></TD></TR>
 131 END
 132       } else {
 133         print qq!<TR><TD>!.
 134               qq!<A HREF="$uiadd{$svcpart}?pkgnum$pkgnum-svcpart$svcpart">!.
 135               qq!(Provision) $svc</A>!;
 136
 137         print qq! or <A HREF="../misc/link.cgi?pkgnum$pkgnum-svcpart$svcpart">!.
 138               qq!(Link to legacy) $svc</A>!
 139           if $conf->exists('legacy_link');
 140
 141         print '</TD></TR>';
 142       }
 143
 144     }
 145     warn "WARNING: Leftover services pkgnum $pkgnum!" if @cust_svc;;
 146   }
 147
 148   print "</TABLE><FONT SIZE=-1>",
 149         "Choose (View/Edit) to view or edit an existing service<BR>",
 150         "Choose (Provision) to setup a new service<BR>";
 151
 152   print "Choose (Link to legacy) to link to a legacy (pre-Freeside) service"
 153     if $conf->exists('legacy_link');
 154
 155   print "</FONT>";
 156 }
 157
 158 #formatting
 159 print <<END;
 160   </BODY>
 161 </HTML>
 162 END
 163
 164 %>