From eb061f5119325e666f0dff40d4089e5c1df58e17 Mon Sep 17 00:00:00 2001 From: cvs2git Date: Sun, 16 Mar 2008 19:58:34 +0000 Subject: This commit was manufactured by cvs2svn to create tag 'TRIXBOX_2_6'. --- httemplate/view/cust_bill.cgi | 119 ------------------------------------------ 1 file changed, 119 deletions(-) delete mode 100755 httemplate/view/cust_bill.cgi (limited to 'httemplate/view/cust_bill.cgi') diff --git a/httemplate/view/cust_bill.cgi b/httemplate/view/cust_bill.cgi deleted file mode 100755 index 951725531..000000000 --- a/httemplate/view/cust_bill.cgi +++ /dev/null @@ -1,119 +0,0 @@ -<% include("/elements/header.html",'Invoice View', menubar( - "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum", -)) %> - - -% if ( $cust_bill->owed > 0 -% && ( $payby{'BILL'} || $payby{'CASH'} || $payby{'WEST'} || $payby{'MCRD'} ) -% ) -% { -% my $s = 0; - - Post -% if ( $payby{'BILL'} ) { - - - <% $s++ ? ' | ' : '' %> - check -% } -% if ( $payby{'CASH'} ) { - - - <% $s++ ? ' | ' : '' %> - cash -% } -% if ( $payby{'WEST'} ) { - - - <% $s++ ? ' | ' : '' %> - Western Union -% } -% if ( $payby{'MCRD'} ) { - - - <% $s++ ? ' | ' : '' %> - manual credit card -% } - - - payment against this invoice
-% } - - -Re-print this invoice -% if ( grep { $_ ne 'POST' } $cust_bill->cust_main->invoicing_list ) { - - | Re-email - this invoice -% } -% if ( $conf->exists('hylafax') && length($cust_bill->cust_main->fax) ) { - - | Re-fax - this invoice -% } - - -

-% if ( $conf->exists('invoice_latex') ) { - - View typeset invoice -

-% } - -% my $br = 0; -% if ( $cust_bill->num_cust_event ) { $br++; -( View invoice events ) -% } - -% if ( $cust_bill->num_cust_bill_event ) { $br++; -( View deprecated, old-style invoice events ) -% } - -<% $br ? '

' : '' %> - -% if ( $conf->exists('invoice_html') ) { - - <% join('', $cust_bill->print_html('', $templatename) ) %> -% } else { - -
<% join('', $cust_bill->print_text('', $templatename) ) %>
-% } - -<% include('/elements/footer.html') %> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('View invoices'); - -#untaint invnum -my($query) = $cgi->keywords; -$query =~ /^((.+)-)?(\d+)$/; -my $templatename = $2; -my $invnum = $3; - -my $conf = new FS::Conf; - -my @payby = grep /\w/, $conf->config('payby'); -#@payby = (qw( CARD DCRD CHEK DCHK LECB BILL CASH WEST COMP )) -@payby = (qw( CARD DCRD CHEK DCHK LECB BILL CASH COMP )) - unless @payby; -my %payby = map { $_=>1 } @payby; - -my $cust_bill = qsearchs({ - 'select' => 'cust_bill.*', - 'table' => 'cust_bill', - 'addl_from' => 'LEFT JOIN cust_main USING ( custnum )', - 'hashref' => { 'invnum' => $invnum }, - 'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql, -}); -die "Invoice #$invnum not found!" unless $cust_bill; - -my $custnum = $cust_bill->custnum; - -#my $printed = $cust_bill->printed; - -my $link = $templatename ? "$templatename-$invnum" : $invnum; - - - - -- cgit v1.2.1