[freeside-commits] freeside/httemplate/misc unadjourn_pkg.cgi, NONE, 1.1.2.1 unexpire_pkg.cgi, NONE, 1.1.2.1

Jeff Finucane,420,, jeff at wavetail.420.am
Mon Jun 30 22:01:29 PDT 2008


Update of /home/cvs/cvsroot/freeside/httemplate/misc
In directory wavetail.420.am:/tmp/cvs-serv21844/httemplate/misc

Added Files:
      Tag: FREESIDE_1_7_BRANCH
	unadjourn_pkg.cgi unexpire_pkg.cgi 
Log Message:
correct internal reason searching, prevent interleaved suspend/cancel/expire/adjourn, backporting and refactoring

--- NEW FILE: unexpire_pkg.cgi ---
%if ( $error ) {
%  errorpage($error);
%} else {
<% $cgi->redirect(popurl(2). "view/cust_main.cgi?".$cust_pkg->getfield('custnum')) %>
%}
<%init>

die "access denied"
  unless $FS::CurrentUser::CurrentUser->access_right('Cancel customer package later');

my ($pkgnum) = $cgi->keywords;
my $cust_pkg = qsearchs( 'cust_pkg', { 'pkgnum' => $pkgnum } );
my $error = "No package $pkgnum" unless $cust_pkg;

$error ||= $cust_pkg->unexpire;

</%init>

--- NEW FILE: unadjourn_pkg.cgi ---
%if ( $error ) {
%  errorpage($error);
%} else {
<% $cgi->redirect(popurl(2). "view/cust_main.cgi?".$cust_pkg->getfield('custnum')) %>
%}
<%init>

die "access denied"
  unless $FS::CurrentUser::CurrentUser->access_right('Suspend customer package later');

my ($pkgnum) = $cgi->keywords;
my $cust_pkg = qsearchs( 'cust_pkg', { 'pkgnum' => $pkgnum } );
my $error = "No package $pkgnum" unless $cust_pkg;

$error ||= $cust_pkg->unadjourn;

</%init>



More information about the freeside-commits mailing list