X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;ds=sidebyside;f=httemplate%2Fmisc%2Fexpire_pkg.cgi;h=55364c6522a26f0863a6bce476c86b76ccac45d3;hb=3ce7691203a7737406bf2d4442f7fd84b81f847e;hp=f8f69dafdc34d80393c0a8c206f06bd6a78595bd;hpb=c1bb4ddb71147d0571bd301a6d8c452fdf0e1bc9;p=freeside.git diff --git a/httemplate/misc/expire_pkg.cgi b/httemplate/misc/expire_pkg.cgi index f8f69dafd..55364c652 100755 --- a/httemplate/misc/expire_pkg.cgi +++ b/httemplate/misc/expire_pkg.cgi @@ -1,22 +1,23 @@ -<% - -my($query) = $cgi->keywords; -$query =~ /^(\d+)$/; -my $pkgnum = $1; - -#get package record -my $cust_pkg = qsearchs('cust_pkg',{'pkgnum'=>$pkgnum}); -die "Unknown pkgnum $pkgnum" unless $cust_pkg; -my $part_pkg = $cust_pkg->part_pkg; - -my $custnum = $cust_pkg->getfield('custnum'); - -my $date = $cust_pkg->expire ? time2str('%D', $cust_pkg->expire) : ''; - -%> - -<%= include("/elements/header.html",'Expire package', menubar( +% +% +%my($query) = $cgi->keywords; +%$query =~ /^(\d+)$/; +%my $pkgnum = $1; +% +%#get package record +%my $cust_pkg = qsearchs('cust_pkg',{'pkgnum'=>$pkgnum}); +%die "Unknown pkgnum $pkgnum" unless $cust_pkg; +%my $part_pkg = $cust_pkg->part_pkg; +% +%my $custnum = $cust_pkg->getfield('custnum'); +% +%my $date = $cust_pkg->expire ? time2str('%D', $cust_pkg->expire) : ''; +% +% + + +<% include("/elements/header.html",'Expire package', menubar( "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum", 'Main Menu' => popurl(2) )) %> @@ -26,15 +27,15 @@ my $date = $cust_pkg->expire ? time2str('%D', $cust_pkg->expire) : ''; -<%= $pkgnum %>: <%= $part_pkg->pkg. ' - '. $part_pkg->comment %> +<% $pkgnum %>: <% $part_pkg->pkg. ' - '. $part_pkg->comment %>
- + -
Cancel package on - + +
m/d/y