[freeside-commits] freeside/httemplate/misc email-statement.cgi, NONE, 1.1

[Ivan,,,]

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

Added Files:
	email-statement.cgi 
Log Message:
email statements, RT#4860

--- NEW FILE: email-statement.cgi ---
<% $cgi->redirect("${p}view/cust_main.cgi?$custnum") %>
<%init>

die "access denied"
  unless $FS::CurrentUser::CurrentUser->access_right('Resend invoices');

#untaint statementnum
my($query) = $cgi->keywords;
$query =~ /^((.+)-)?(\d+)$/;
my $template = $2 || 'statement'; #XXX configure... via event??  eh..
my $statementnum = $3;
my $cust_statement = qsearchs('cust_statement',{'statementnum'=>$statementnum});
die "Can't find statement!\n" unless $cust_statement;

$cust_statement->email($template); 

my $custnum = $cust_statement->getfield('custnum');

</%init>