httemplate/misc/expire_pkg.cgi

   1 <!-- mason kludge -->
   2 %
   3 %
   4 %my($query) = $cgi->keywords;
   5 %$query =~ /^(\d+)$/;
   6 %my $pkgnum = $1;
   7 %
   8 %#get package record
   9 %my $cust_pkg = qsearchs('cust_pkg',{'pkgnum'=>$pkgnum});
  10 %die "Unknown pkgnum $pkgnum" unless $cust_pkg;
  11 %my $part_pkg = $cust_pkg->part_pkg;
  12 %
  13 %my $custnum = $cust_pkg->getfield('custnum');
  14 %
  15 %my $date = $cust_pkg->expire ? time2str('%D', $cust_pkg->expire) : '';
  16 %
  17 %
  18
  19
  20 <% include("/elements/header.html",'Expire package', menubar(
  21   "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum",
  22   'Main Menu' => popurl(2)
  23 )) %>
  24
  25 <LINK REL="stylesheet" TYPE="text/css" HREF="../elements/calendar-win2k-2.css" TITLE="win2k-2">
  26 <SCRIPT TYPE="text/javascript" SRC="../elements/calendar_stripped.js"></SCRIPT>
  27 <SCRIPT TYPE="text/javascript" SRC="../elements/calendar-en.js"></SCRIPT>
  28 <SCRIPT TYPE="text/javascript" SRC="../elements/calendar-setup.js"></SCRIPT>
  29
  30 <% $pkgnum %>: <% $part_pkg->pkg. ' - '. $part_pkg->comment %>
  31
  32 <FORM NAME="formname" ACTION="process/expire_pkg.cgi" METHOD="post">
  33 <INPUT TYPE="hidden" NAME="pkgnum" VALUE="<% $pkgnum %>">
  34 <TABLE>
  35   <TR>
  36     <TD>Cancel package on </TD>
  37     <TD><INPUT TYPE="text" NAME="date" ID="expire_date" VALUE="<% $date %>">
  38         <IMG SRC="<% $p %>images/calendar.png" ID="expire_button" STYLE="cursor:pointer" TITLE="Select date">
  39         <BR><I>m/d/y</I>
  40     </TD>
  41   </TR>
  42 </TABLE>
  43
  44 <SCRIPT TYPE="text/javascript">
  45   Calendar.setup({
  46     inputField: "expire_date",
  47     ifFormat:   "%m/%d/%Y",
  48     button:     "expire_button",
  49     align:      "BR"
  50   });
  51 </SCRIPT>
  52
  53 <INPUT TYPE="submit" VALUE="Cancel later">
  54 </FORM>
  55 </BODY>
  56 </HTML>