diff options
Diffstat (limited to 'httemplate/misc/delay_susp_pkg.html')
-rwxr-xr-x | httemplate/misc/delay_susp_pkg.html | 73 |
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> |