[freeside-commits] freeside/httemplate/misc unadjourn_pkg.cgi, 1.1, 1.2 unexpire_pkg.cgi, 1.1, 1.2

[Jeff Finucane,420,,]

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

Added Files:
	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>