RT#29169: Show payment information in selfservice portal [slight text tweaks for...
[freeside.git] / httemplate / misc / send-invoice.cgi
1 % if ( $error ) {
2 %   errorpage($error);
3 % } else {
4 <% $cgi->redirect("${p}view/cust_main.cgi?$custnum") %>
5 % }
6 <%once>
7
8 my %method = ( map { $_=>1 } qw( email print fax_invoice ) );
9
10 </%once>
11 <%init>
12
13 die "access denied"
14   unless $FS::CurrentUser::CurrentUser->access_right('Resend invoices');
15
16 my $invnum      = $cgi->param('invnum');
17 my $template    = $cgi->param('template');
18 my $notice_name = $cgi->param('notice_name') if $cgi->param('notice_name');
19 my $method      = $cgi->param('method');
20 my $mode;
21 if ( $cgi->param('mode') =~ /^(\d+)$/ ) {
22   $mode = $1;
23 }
24
25 $method .= '_invoice' if $method eq 'fax'; #!
26
27 die "unknown method $method" unless $method{$method};
28
29 my $cust_bill = qsearchs('cust_bill',{'invnum'=>$invnum});
30 die "Can't find invoice!\n" unless $cust_bill;
31
32 $cust_bill->set('mode' => $mode) if $mode;
33
34 #these methods die instead of return errors, so, handle that without a backtrace
35 eval { $cust_bill->$method({ 'template'    => $template,
36                              'notice_name' => $notice_name,
37                           }); 
38      };
39 my $error = $@;
40
41 my $custnum = $cust_bill->getfield('custnum');
42
43 </%init>