4 %my($query) = $cgi->keywords;
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;
13 %my $custnum = $cust_pkg->getfield('custnum');
15 %my $date = $cust_pkg->expire ? time2str('%D', $cust_pkg->expire) : '';
20 <% include("/elements/header.html",'Expire package', menubar(
21 "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum",
22 'Main Menu' => popurl(2)
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>
30 <% $pkgnum %>: <% $part_pkg->pkg. ' - '. $part_pkg->comment %>
32 <FORM NAME="formname" ACTION="process/expire_pkg.cgi" METHOD="post">
33 <INPUT TYPE="hidden" NAME="pkgnum" VALUE="<% $pkgnum %>">
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">
44 <SCRIPT TYPE="text/javascript">
46 inputField: "expire_date",
48 button: "expire_button",
53 <INPUT TYPE="submit" VALUE="Cancel later">