% if ( scalar(@discount_term) ) { % } <%init> my %opt = @_; my $cgi = $opt{'cgi'}; my @discount_term; if ( $opt{discount_term} ) { @discount_term = @{ $opt{discount_term} }; } else { my $custnum = $opt{'custnum'}; my $cust_main = qsearchs('cust_main', { 'custnum' => $custnum } ) or die "unknown custnum $custnum\n"; @discount_term = $cust_main->discount_terms; }