httemplate/view/cust_pkg.cgi

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