X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fedit%2FREAL_cust_pkg.cgi;h=170281ba0e5b98bdbff10e94128aa39fab0f31a9;hb=fb8915cce4be9520c00cc53c659e34abfb6172e1;hp=99a3f3098be667e4fe049d9b148f094aca30d128;hpb=85c6cb69b90583a8314e9c4a6d73600d4f2750cf;p=freeside.git diff --git a/httemplate/edit/REAL_cust_pkg.cgi b/httemplate/edit/REAL_cust_pkg.cgi index 99a3f3098..170281ba0 100755 --- a/httemplate/edit/REAL_cust_pkg.cgi +++ b/httemplate/edit/REAL_cust_pkg.cgi @@ -1,77 +1,8 @@ -% -% -%my $error =''; -%my $pkgnum = ''; -%my($susp,$adjourn,$cancel,$expire, $pkg, $comment, $setup, $bill, $otaker); -% -%my( $cust_pkg, $part_pkg ); -% -%if ( $cgi->param('error') ) { -% $error = $cgi->param('error'); -% $pkgnum = $cgi->param('pkgnum'); -% if ( $error eq '_bill_areyousure' ) { -% my $bill = $cgi->param('bill'); -% $error = "You are attempting to set the next bill date to $bill, which is -% in the past. This will charge the customer for the interval -% from $bill until now. Are you sure you want to do this? ". -% ''; -% } -% -% $susp = $cgi->param('susp'); -% $adjourn = $cgi->param('adjourn'); -% $cancel = $cgi->param('cancel'); -% $expire = $cgi->param('expire'); -% $pkg = $cgi->param('pkg'); -% $comment = $cgi->param('comment'); -% $setup = $cgi->param('setup'); -% $bill = $cgi->param('bill'); -% $otaker = $cgi->param('otaker'); -% -% #get package record -% $cust_pkg = qsearchs('cust_pkg',{'pkgnum'=>$pkgnum}); -% die "No package!" unless $cust_pkg; -% $part_pkg = qsearchs('part_pkg',{'pkgpart'=>$cust_pkg->getfield('pkgpart')}); -% -%} else { -% my($query) = $cgi->keywords; -% $query =~ /^(\d+)$/ or die "no pkgnum"; -% $pkgnum = $1; -% -% #get package record -% $cust_pkg = qsearchs('cust_pkg',{'pkgnum'=>$pkgnum}); -% die "No package!" unless $cust_pkg; -% $part_pkg = qsearchs('part_pkg',{'pkgpart'=>$cust_pkg->getfield('pkgpart')}); -% -% ($susp,$adjourn,$cancel,$expire)=( -% $cust_pkg->getfield('susp'), -% $cust_pkg->getfield('adjourn'), -% $cust_pkg->getfield('cancel'), -% $cust_pkg->getfield('expire'), -% ); -% ($pkg,$comment)=($part_pkg->getfield('pkg'),$part_pkg->getfield('comment')); -% ($setup,$bill)=($cust_pkg->getfield('setup'),$cust_pkg->getfield('bill')); -% $otaker = $cust_pkg->getfield('otaker'); -%} -% -%if ( $error ) { -% #$cust_pkg->$_(str2time($cgi->param($_)) foreach qw(setup bill); -% $cust_pkg->setup(str2time($cgi->param('setup'))); -% $cust_pkg->bill(str2time($cgi->param('bill'))); -% $cust_pkg->last_bill(str2time($cgi->param('last_bill'))); -%} -% -%#my $custnum = $cust_pkg->getfield('custnum'); -% - - <% include("/elements/header.html",'Customer package - Edit dates') %> -% + %#, menubar( %# "View this customer (#$custnum)" => popurl(2). "view/cust_main.cgi?$custnum", -%# 'Main Menu' => popurl(2) %#)); -% - @@ -80,130 +11,215 @@
-