X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Felements%2Ftr-select-part_referral.html;h=765aa840005dfaf2474af435027ba38bf9f07c47;hb=75e11f1d1a5ced24496b5732e290f7762403feb8;hp=0108388bc36a1f9a11d3dd4c6e1aaec1ae3e36f8;hpb=e47e9758f480c664bfc3917d798cd69c7d354999;p=freeside.git

diff --git a/httemplate/elements/tr-select-part_referral.html b/httemplate/elements/tr-select-part_referral.html
index 0108388bc..765aa8400 100644
--- a/httemplate/elements/tr-select-part_referral.html
+++ b/httemplate/elements/tr-select-part_referral.html
@@ -1,30 +1,45 @@
-<%
-  my( $refnum, %opt ) = @_;
+% if ( scalar( @{$opt{'part_referrals'}} ) == 0 ) {
+    <P><FONT SIZE="+1" COLOR="#ff0000">
+    <% mt('At least one advertising source must be created prior to adding a customer, but none have been created.') |h %> 
 
-  $opt{'part_referrals'} ||=
-    [ FS::part_referral->all_part_referral( 1 ) ]; #1: include global
+% #hack
+%   my $createlink = qq!<A HREF="<% popurl(2) %>browse/part_referral.html">!; 
+%   my $createlabel = emt("To create one, see [_1]advertising source listing","XXXLINKXXX").'</A>';
+%   $createlabel =~ s/XXXLINKXXX/$createlink/;
+    <% $createlabel %>
 
-  my $r = qq!<font color="#ff0000">*</font>&nbsp;!;
+    </FONT>
+%   } elsif ( scalar( @{$opt{'part_referrals'}} ) == 1 ) {
 
-%>
+     <INPUT TYPE="hidden" NAME="<% $opt{'element_name'} || $opt{'field'} || 'refnum' %>" VALUE="<% $opt{'part_referrals'}->[0]->refnum %>">
 
-<% 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 { %>
+% } else { 
 
      <TR>
-       <TH ALIGN="right"><%=$r%>Advertising source</TH>
-       <TD>
-         <%= include( '/elements/select-part_referral.html', $refnum,
-                        'part_referrals' => $opt{'part_referrals'},
-                    )
-         %>
+%      if ( $opt{'label'} ) {
+         <TD ALIGN="right"><% $opt{'label'} %></TD>
+%      } else {
+         <TH ALIGN="right"><%$r%><% mt('Advertising source') |h %></TH>
+%      }
+       <TD COLSPAN="<% $colspan %>">
+         <& /elements/select-part_referral.html,
+                       'curr_value' => $refnum,
+                       %opt
+         &>
        </TD>
      </TR>
 
-<% } %>
+% } 
+<%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!<font color="#ff0000">*</font>&nbsp;!;
+
+</%init>