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 %  foreach $pkg_svc ( $cust_pkg->part_pkg->pkg_svc ) {
 110 %    $pkg_svc{$pkg_svc->svcpart} = $pkg_svc->quantity if $pkg_svc->quantity;
 111 %  }
 112 %
 113 %  #list of records from cust_svc
 114 %  my $svcpart;
 115 %  foreach $svcpart (sort {$a <=> $b} keys %pkg_svc) {
 116 %
 117 %    my($svc)=qsearchs('part_svc',{'svcpart'=>$svcpart})->getfield('svc');
 118 %
 119 %    my(@cust_svc)=qsearch('cust_svc',{'pkgnum'=>$pkgnum,
 120 %                                      'svcpart'=>$svcpart,
 121 %                                     });
 122 %
 123 %    my($enum);
 124 %    for $enum ( 1 .. $pkg_svc{$svcpart} ) {
 125 %
 126 %      my($cust_svc);
 127 %      if ( $cust_svc=shift @cust_svc ) {
 128 %        my($svcnum)=$cust_svc->svcnum;
 129 %        my($label, $value, $svcdb) = $cust_svc->label;
 130 %        print <<END;
 131 %<TR><TD><A HREF="$uiview{$svcpart}?$svcnum">(View/Edit) $svc: $value<A></TD></TR>
 132 %END
 133 %      } else {
 134 %        print qq!<TR><TD>!.
 135 %              qq!<A HREF="$uiadd{$svcpart}?pkgnum$pkgnum-svcpart$svcpart">!.
 136 %              qq!(Provision) $svc</A>!;
 137 %
 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');
 141 %
 142 %        print '</TD></TR>';
 143 %      }
 144 %
 145 %    }
 146 %    warn "WARNING: Leftover services pkgnum $pkgnum!" if @cust_svc;;
 147 %  }
 148 %
 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>";
 152 %
 153 %  print "Choose (Link to legacy) to link to a legacy (pre-Freeside) service"
 154 %    if $conf->exists('legacy_link');
 155 %
 156 %  print "</FONT>";
 157 %}
 158 %
 159 %#formatting
 160 %print <<END;
 161 %  </BODY>
 162 %</HTML>
 163 %END
 164 %
 165 %
 166