httemplate/view/cust_pkg.cgi

   1 <%
   2
   3 my %uiview = ();
   4 my %uiadd = ();
   5 foreach my $part_svc ( qsearch('part_svc',{}) ) {
   6   $uiview{$part_svc->svcpart} = popurl(2). "view/". $part_svc->svcdb . ".cgi";
   7   $uiadd{$part_svc->svcpart}= popurl(2). "edit/". $part_svc->svcdb . ".cgi";
   8 }
   9
  10 my ($query) = $cgi->keywords;
  11 $query =~ /^(\d+)$/;
  12 my $pkgnum = $1;
  13
  14 #get package record
  15 my $cust_pkg = qsearchs('cust_pkg',{'pkgnum'=>$pkgnum});
  16 die "No package!" unless $cust_pkg;
  17 my $part_pkg = qsearchs('part_pkg',{'pkgpart'=>$cust_pkg->getfield('pkgpart')});
  18
  19 my $custnum = $cust_pkg->getfield('custnum');
  20 print header('Package View', menubar(
  21   "View this customer (#$custnum)" => popurl(2). "view/cust_main.cgi?$custnum",
  22   'Main Menu' => popurl(2)
  23 ));
  24
  25 #print info
  26 my ($susp,$cancel,$expire)=(
  27   $cust_pkg->getfield('susp'),
  28   $cust_pkg->getfield('cancel'),
  29   $cust_pkg->getfield('expire'),
  30 );
  31 my($pkg,$comment)=($part_pkg->getfield('pkg'),$part_pkg->getfield('comment'));
  32 my($setup,$bill)=($cust_pkg->getfield('setup'),$cust_pkg->getfield('bill'));
  33 my $otaker = $cust_pkg->getfield('otaker');
  34
  35 print <<END;
  36 <SCRIPT>
  37 function areyousure(href) {
  38     if (confirm("Permanantly delete included services and cancel this package?") == true)
  39         window.location.href = href;
  40 }
  41 </SCRIPT>
  42 END
  43
  44 print "Package information";
  45 print ' (<A HREF="'. popurl(2). 'misc/unsusp_pkg.cgi?'. $pkgnum.
  46       '">unsuspend</A>)'
  47   if ( $susp && ! $cancel );
  48
  49 print ' (<A HREF="'. popurl(2). 'misc/susp_pkg.cgi?'. $pkgnum.
  50       '">suspend</A>)'
  51   unless ( $susp || $cancel );
  52
  53 print ' (<A HREF="javascript:areyousure(\''. popurl(2). 'misc/cancel_pkg.cgi?'.
  54       $pkgnum.  '\')">cancel</A>)'
  55   unless $cancel;
  56
  57 print ' (<A HREF="'. popurl(2). 'edit/REAL_cust_pkg.cgi?'. $pkgnum.
  58       '">edit dates</A>)';
  59
  60 print &ntable("#cccccc"), '<TR><TD>', &ntable("#cccccc",2),
  61       '<TR><TD ALIGN="right">Package number</TD><TD BGCOLOR="#ffffff">',
  62       $pkgnum, '</TD></TR>',
  63       '<TR><TD ALIGN="right">Package</TD><TD BGCOLOR="#ffffff">',
  64       $pkg,  '</TD></TR>',
  65       '<TR><TD ALIGN="right">Comment</TD><TD BGCOLOR="#ffffff">',
  66       $comment,  '</TD></TR>',
  67       '<TR><TD ALIGN="right">Setup date</TD><TD BGCOLOR="#ffffff">',
  68       ( $setup ? time2str("%D",$setup) : "(Not setup)" ), '</TD></TR>',
  69       '<TR><TD ALIGN="right">Next bill date</TD><TD BGCOLOR="#ffffff">',
  70       ( $bill ? time2str("%D",$bill) : "&nbsp;" ), '</TD></TR>',
  71 ;
  72 print '<TR><TD ALIGN="right">Suspension date</TD><TD BGCOLOR="#ffffff">',
  73        time2str("%D",$susp), '</TD></TR>' if $susp;
  74 print '<TR><TD ALIGN="right">Expiration date</TD><TD BGCOLOR="#ffffff">',
  75        time2str("%D",$expire), '</TD></TR>' if $expire;
  76 print '<TR><TD ALIGN="right">Cancellation date</TD><TD BGCOLOR="#ffffff">',
  77        time2str("%D",$cancel), '</TD></TR>' if $cancel;
  78 print  '<TR><TD ALIGN="right">Order taker</TD><TD BGCOLOR="#ffffff">',
  79       $otaker,  '</TD></TR>',
  80       '</TABLE></TD></TR></TABLE>'
  81 ;
  82
  83 #  print <<END;
  84 #<FORM ACTION="../misc/expire_pkg.cgi" METHOD="post">
  85 #<INPUT TYPE="hidden" NAME="pkgnum" VALUE="$pkgnum">
  86 #Expire (date): <INPUT TYPE="text" NAME="date" VALUE="" >
  87 #<INPUT TYPE="submit" VALUE="Cancel later">
  88 #END
  89
  90 unless ($cancel) {
  91
  92   #services
  93   print '<BR>Service Information', &table();
  94
  95   #list of services this pkgpart includes
  96   my $pkg_svc;
  97   my %pkg_svc = ();
  98   foreach $pkg_svc ( qsearch('pkg_svc',{'pkgpart'=> $cust_pkg->pkgpart }) ) {
  99     $pkg_svc{$pkg_svc->svcpart} = $pkg_svc->quantity if $pkg_svc->quantity;
 100   }
 101
 102   #list of records from cust_svc
 103   my $svcpart;
 104   foreach $svcpart (sort {$a <=> $b} keys %pkg_svc) {
 105
 106     my($svc)=qsearchs('part_svc',{'svcpart'=>$svcpart})->getfield('svc');
 107
 108     my(@cust_svc)=qsearch('cust_svc',{'pkgnum'=>$pkgnum,
 109                                       'svcpart'=>$svcpart,
 110                                      });
 111
 112     my($enum);
 113     for $enum ( 1 .. $pkg_svc{$svcpart} ) {
 114
 115       my($cust_svc);
 116       if ( $cust_svc=shift @cust_svc ) {
 117         my($svcnum)=$cust_svc->svcnum;
 118         my($label, $value, $svcdb) = $cust_svc->label;
 119         print <<END;
 120 <TR><TD><A HREF="$uiview{$svcpart}?$svcnum">(View) $svc: $value<A></TD></TR>
 121 END
 122       } else {
 123         print <<END;
 124 <TR>
 125   <TD><A HREF="$uiadd{$svcpart}?pkgnum$pkgnum-svcpart$svcpart">
 126       (Add) $svc</A>
 127    or <A HREF="../misc/link.cgi?pkgnum$pkgnum-svcpart$svcpart">
 128       (Link to existing) $svc</A>
 129   </TD>
 130 </TR>
 131 END
 132       }
 133
 134     }
 135     warn "WARNING: Leftover services pkgnum $pkgnum!" if @cust_svc;;
 136   }
 137
 138   print "</TABLE><FONT SIZE=-1>",
 139         "Choose (View) to view or edit an existing service<BR>",
 140         "Choose (Add) to setup a new service<BR>",
 141         "Choose (Link to existing) to link to a legacy (pre-Freeside) service",
 142         "</FONT>"
 143   ;
 144 }
 145
 146 #formatting
 147 print <<END;
 148   </BODY>
 149 </HTML>
 150 END
 151
 152 %>