From 0c525f3ba7b2b6730b8939b950e4d76dd16802a9 Mon Sep 17 00:00:00 2001 From: cvs2git Date: Thu, 5 Jan 2006 09:34:30 +0000 Subject: This commit was manufactured by cvs2svn to create tag 'SQL_LEDGER_2_4_4'. --- httemplate/view/cust_main/misc.html | 75 ------------------------------------- 1 file changed, 75 deletions(-) delete mode 100644 httemplate/view/cust_main/misc.html (limited to 'httemplate/view/cust_main/misc.html') diff --git a/httemplate/view/cust_main/misc.html b/httemplate/view/cust_main/misc.html deleted file mode 100644 index 69e120573..000000000 --- a/httemplate/view/cust_main/misc.html +++ /dev/null @@ -1,75 +0,0 @@ -<% - my( $cust_main ) = @_; -%> - -<%= ntable("#cccccc") %><%= &ntable("#cccccc",2) %> - - Customer number - <%= $cust_main->custnum %> - - -<% - my @agents = qsearch( 'agent', {} ); - my $agent; - unless ( scalar(@agents) == 1 ) { - $agent = qsearchs('agent',{ 'agentnum' => $cust_main->agentnum } ); -%> - - - Agent - <%= $agent->agentnum %>: <%= $agent->agent %> - - -<% - } else { - $agent = $agents[0]; - } - - my @referrals = qsearch( 'part_referral', {} ); - unless ( scalar(@referrals) == 1 ) { - my $referral = qsearchs('part_referral', { - 'refnum' => $cust_main->refnum - } ); -%> - - - Advertising source - <%= $referral->refnum %>: <%= $referral->referral%> - - -<% } %> - - - Order taker - <%= $cust_main->otaker %> - - - Referring Customer - - -<% - my $referring_cust_main = ''; - if ( $cust_main->referral_custnum - && ( $referring_cust_main = - qsearchs('cust_main', { custnum => $cust_main->referral_custnum } ) - ) - ) { -%> - -<%=$cust_main->referral_custnum %>: -<%= - ( $referring_cust_main->company - ? $referring_cust_main->company. ' ('. - $referring_cust_main->last. ', '. $referring_cust_main->first. - ')' - : $referring_cust_main->last. ', '. $referring_cust_main->first - ) -%> - -<% } %> - - - - - - -- cgit v1.2.1