diff options
Diffstat (limited to 'httemplate/view/legacy_cust_bill.html')
| -rwxr-xr-x | httemplate/view/legacy_cust_bill.html | 62 |
1 files changed, 62 insertions, 0 deletions
diff --git a/httemplate/view/legacy_cust_bill.html b/httemplate/view/legacy_cust_bill.html new file mode 100755 index 000000000..29e4e6ebe --- /dev/null +++ b/httemplate/view/legacy_cust_bill.html @@ -0,0 +1,62 @@ +<& /elements/header.html, mt('Legacy Invoice View'), menubar( + emt("View this customer (#[_1])",$display_custnum) => "${p}view/cust_main.cgi?$custnum", +) &> + +% if ( 0 ) { #implement resending of legacy invoices? +% #if ( $curuser->access_right('Resend invoices') ) { + + <A HREF="<% $p %>misc/send-invoice.cgi?method=print;<% $link %>"><% mt('Re-print this invoice') |h %></A> + +% if ( grep { $_ ne 'POST' } $legacy_cust_bill->cust_main->invoicing_list ) { + | <A HREF="<% $p %>misc/send-invoice.cgi?method=email;<% $link %>"><% mt('Re-email this invoice') |h %></A> +% } + +% if ( $conf->exists('hylafax') && length($legacy_cust_bill->cust_main->fax) ) { + | <A HREF="<% $p %>misc/send-invoice.cgi?method=fax;<% $link %>"><% mt('Re-fax this invoice') |h %></A> +% } + + <BR><BR> + +% } + +% if ( length($legacy_cust_bill->content_pdf) ) { + + <A HREF="<% $p %>view/legacy_cust_bill-pdf.cgi?<% $link %>"><% mt('View typeset invoice PDF') |h %></A> + <BR><BR> +% } + +<% $legacy_cust_bill->content_html %> + +<& /elements/footer.html &> +<%init> + +my $curuser = $FS::CurrentUser::CurrentUser; + +die "access denied" + unless $curuser->access_right('View invoices'); + +my $legacyinvnum; +my($query) = $cgi->keywords; +if ( $query =~ /^(\d+)$/ ) { + $legacyinvnum = $3; +} else { + $legacyinvnum = $cgi->param('legacyinvnum'); +} + +my $conf = new FS::Conf; + +my $legacy_cust_bill = qsearchs({ + 'select' => 'legacy_cust_bill.*', + 'table' => 'legacy_cust_bill', + 'addl_from' => 'LEFT JOIN cust_main USING ( custnum )', + 'hashref' => { 'legacyinvnum' => $legacyinvnum }, + 'extra_sql' => ' AND '. $curuser->agentnums_sql, +}); +die "Legacy invoice #$legacyinvnum not found!" unless $legacy_cust_bill; + +my $custnum = $legacy_cust_bill->custnum; +my $display_custnum = $legacy_cust_bill->cust_main->display_custnum; + +my $link = "legacyinvnum=$legacyinvnum"; + +</%init> |
