<& /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') ) { <% mt('Re-print this invoice') |h %> % if ( grep { $_ ne 'POST' } $legacy_cust_bill->cust_main->invoicing_list ) { | <% mt('Re-email this invoice') |h %> % } % if ( $conf->exists('hylafax') && length($legacy_cust_bill->cust_main->fax) ) { | <% mt('Re-fax this invoice') |h %> % }

% } % if ( length($legacy_cust_bill->content_pdf) ) { <% mt('View typeset invoice PDF') |h %>

% } <% $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";