X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Felements%2Fselect-part_referral.html;h=c4b8829c880aaff6e644cd87c254f5c461a6c94e;hb=849a709d89e78bec1ab19997b75de1b574969f1f;hp=efcc477af0a2c4ef0d04741a0d61715a2731601b;hpb=c8cccb4a92adceb943c635fe62dad0d034462ce0;p=freeside.git

diff --git a/httemplate/elements/select-part_referral.html b/httemplate/elements/select-part_referral.html
index efcc477af..c4b8829c8 100644
--- a/httemplate/elements/select-part_referral.html
+++ b/httemplate/elements/select-part_referral.html
@@ -1,10 +1,3 @@
-%
-%  my( $refnum, %opt ) = @_;
-%
-%  $opt{'records'} = delete $opt{'part_referrals'}
-%    if $opt{'part_referrals'};
-%
-%
 <% include( '/elements/select-table.html',
                  'table'       => 'part_referral',
                  'name_col'    => 'referral',
@@ -12,7 +5,16 @@
                  'empty_label' => 'Select advertising source',
                  'hashref'     => { 'disabled' => '' },
                  'extra_sql'   => ' AND '.
-                                  FS::part_referral->all_part_referral(1),
+                                  FS::part_referral->acl_agentnum_sql(1),
                  %opt,
              )
 %>
+<%init>
+
+my %opt = @_;
+my $refnum = $opt{'curr_value'} || $opt{'value'};
+
+$opt{'records'} = delete $opt{'part_referrals'}
+  if $opt{'part_referrals'};
+
+</%init>