X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Felements%2Ftr-select-part_referral.html;h=5041f7f73f9a3ebd89786063333298c19552637c;hp=0108388bc36a1f9a11d3dd4c6e1aaec1ae3e36f8;hb=b71b1576c68bc40ad26592b354feace37a029f0e;hpb=e47e9758f480c664bfc3917d798cd69c7d354999 diff --git a/httemplate/elements/tr-select-part_referral.html b/httemplate/elements/tr-select-part_referral.html index 0108388bc..5041f7f73 100644 --- a/httemplate/elements/tr-select-part_referral.html +++ b/httemplate/elements/tr-select-part_referral.html @@ -1,30 +1,39 @@ -<% - my( $refnum, %opt ) = @_; - - $opt{'part_referrals'} ||= - [ FS::part_referral->all_part_referral( 1 ) ]; #1: include global - - my $r = qq!* !; +% 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> -<% if ( scalar( @{$opt{'part_referrals'}} ) == 0 ) { - eidiot "You have not created any advertising sources. You must create at least one advertising source before adding a customer. Go to ". popurl(2). "browse/part_referral.html and create one or more advertising sources."; - } elsif ( scalar( @{$opt{'part_referrals'}} ) == 1 ) { -%> +my %opt = @_; +my $refnum = $opt{'curr_value'} || $opt{'value'}; - +$opt{'part_referrals'} ||= + [ FS::part_referral->all_part_referral( 1 ) ]; #1: include global -<% } else { %> +my $colspan = delete($opt{'colspan'}) || 1; - - <%=$r%>Advertising source - - <%= include( '/elements/select-part_referral.html', $refnum, - 'part_referrals' => $opt{'part_referrals'}, - ) - %> - - +my $r = qq!* !; -<% } %> +