% if ( scalar( @{$opt{'part_referrals'}} ) == 0 ) {

<% mt('At least one advertising source must be created prior to adding a customer, but none have been created.') |h %> % #hack % my $createlink = qq!!; % my $createlabel = emt("To create one, see [_1]advertising source listing","XXXLINKXXX").''; % $createlabel =~ s/XXXLINKXXX/$createlink/; <% $createlabel %> % } elsif ( scalar( @{$opt{'part_referrals'}} ) == 1 ) { % } else { <& /elements/tr-td-label.html, label => 'Advertising source', %opt &> <& /elements/select-part_referral.html, 'curr_value' => $refnum, %opt &> % } <%init> my %opt = @_; my $refnum = $opt{'curr_value'} || $opt{'value'}; $opt{'part_referrals'} ||= [ FS::part_referral->all_part_referral( 1 ) ]; #1: include global my $colspan = delete($opt{'colspan'}) || 1; my $r = qq!* !;