summaryrefslogtreecommitdiff
path: root/httemplate/misc/delay_susp_pkg.html
diff options
context:
space:
mode:
Diffstat (limited to 'httemplate/misc/delay_susp_pkg.html')
-rwxr-xr-xhttemplate/misc/delay_susp_pkg.html73
1 files changed, 0 insertions, 73 deletions
diff --git a/httemplate/misc/delay_susp_pkg.html b/httemplate/misc/delay_susp_pkg.html
deleted file mode 100755
index 8adc40d..0000000
--- a/httemplate/misc/delay_susp_pkg.html
+++ /dev/null
@@ -1,73 +0,0 @@
-%# if ( $link eq 'popup' ) {
- <% include('/elements/header-popup.html', $title ) %>
-%# } else {
-%# <% include("/elements/header.html", $title, '') %>
-%# }
-
-<% include('/elements/init_calendar.html') %>
-
-<% include('/elements/error.html') %>
-
-<FORM NAME="ds_popup" ACTION="<% popurl(1) %>process/delay_susp_pkg.html" METHOD=POST>
-<INPUT TYPE="hidden" NAME="pkgnum" VALUE="<% $pkgnum %>">
-
-<BR><BR>
-<% "Delay automatic suspension of " .$part_pkg->pkg_comment %>
-<% ntable("#cccccc", 2) %>
-
-<TR>
- <TD>Delay until</TD>
- <TD><INPUT TYPE="text" NAME="date" ID="dun_date" VALUE="<% $date |h %>">
- <IMG SRC="<% $p %>images/calendar.png" ID="dun_button" STYLE="cursor:pointer" TITLE="Select date">
- <BR><I>m/d/y</I>
- </TD>
-</TR>
-<SCRIPT TYPE="text/javascript">
- Calendar.setup({
- inputField: "dun_date",
- ifFormat: "<% $date_format %>",
- button: "dun_button",
- align: "BR"
- });
-</SCRIPT>
-
-</TABLE>
-
-<BR>
-<INPUT TYPE="submit" NAME="submit" VALUE="<% $submit %>">
-
-</FORM>
-</BODY>
-</HTML>
-
-<%init>
-
-my $conf = new FS::Conf;
-my $date_format = $conf->config('date_format') || '%m/%d/%Y';
-
-my $date = time2str($date_format, time);
-
-my($pkgnum);
-if ( $cgi->param('error') ) {
- $pkgnum = $cgi->param('pkgnum');
- $date = $cgi->param('date');
-} elsif ( $cgi->param('pkgnum') =~ /^(\d+)$/ ) {
- $pkgnum = $1;
-} else {
- die "illegal query ". $cgi->keywords;
-}
-
-my $submit = 'Delay Suspension';
-my $right = 'Delay suspension events';
-
-my $curuser = $FS::CurrentUser::CurrentUser;
-die "access denied" unless $curuser->access_right($right);
-
-my $title = 'Delay Suspension of Package';
-
-my $cust_pkg = qsearchs('cust_pkg', {'pkgnum' => $pkgnum})
- or die "Unknown pkgnum: $pkgnum";
-
-my $part_pkg = $cust_pkg->part_pkg;
-
-</%init>