summaryrefslogtreecommitdiff
path: root/httemplate/elements/tr-select-part_referral.html
blob: 35c5b8047d00448caf18f4337cd9331a535673c1 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
%
%  my( $refnum, %opt ) = @_;
%
%  $opt{'part_referrals'} ||=
%    [ FS::part_referral->all_part_referral( 1 ) ]; #1: include global
%
%  my $r = qq!<font color="#ff0000">*</font>&nbsp;!;
%
%
% 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 ) {
%


     <INPUT TYPE="hidden" NAME="refnum" VALUE="<% $opt{'part_referrals'}->[0]->refnum %>">
% } else { 


     <TR>
       <TH ALIGN="right"><%$r%>Advertising source</TH>
       <TD>
         <% include( '/elements/select-part_referral.html', $refnum,
                        'part_referrals' => $opt{'part_referrals'},
                    )
         %>
       </TD>
     </TR>
% }