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 <%= header('Expire package', menubar(
  20   "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum",
  21   'Main Menu' => popurl(2)
  22 )) %>
  23
  24 <LINK REL="stylesheet" TYPE="text/css" HREF="../elements/calendar-win2k-2.css" TITLE="win2k-2">
  25 <SCRIPT TYPE="text/javascript" SRC="../elements/calendar_stripped.js"></SCRIPT>
  26 <SCRIPT TYPE="text/javascript" SRC="../elements/calendar-en.js"></SCRIPT>
  27 <SCRIPT TYPE="text/javascript" SRC="../elements/calendar-setup.js"></SCRIPT>
  28
  29 <%= $pkgnum %>: <%= $part_pkg->pkg. ' - '. $part_pkg->comment %>
  30
  31 <FORM NAME="formname" ACTION="process/expire_pkg.cgi" METHOD="post">
  32 <INPUT TYPE="hidden" NAME="pkgnum" VALUE="<%= $pkgnum %>">
  33 <TABLE>
  34   <TR>
  35     <TD>Cancel package on </TD>
  36     <TD><INPUT TYPE="text" NAME="date" ID="expire_date" VALUE="<%= $date %>">
  37         <IMG SRC="<%= $p %>images/calendar.png" ID="expire_button" STYLE="cursor:pointer" TITLE="Select date">
  38         <BR><I>m/d/y</I>
  39     </TD>
  40   </TR>
  41 </TABLE>
  42
  43 <SCRIPT TYPE="text/javascript">
  44   Calendar.setup({
  45     inputField: "expire_date",
  46     ifFormat:   "%m/%d/%Y",
  47     button:     "expire_button",
  48     align:      "BR"
  49   });
  50 </SCRIPT>
  51
  52 <INPUT TYPE="submit" VALUE="Cancel later">
  53 </FORM>
  54 </BODY>
  55 </HTML>