X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Felements%2Fselect-part_referral.html;h=114d147ced3ea846d3c13cbd87d4c75b5c654b5d;hb=88e9a56677d343392416c262f976f069157b06cb;hp=deb87bd3bb398c9e3c2f2b1bb527fa1ec026cbc6;hpb=e47e9758f480c664bfc3917d798cd69c7d354999;p=freeside.git

diff --git a/httemplate/elements/select-part_referral.html b/httemplate/elements/select-part_referral.html
index deb87bd3b..114d147ce 100644
--- a/httemplate/elements/select-part_referral.html
+++ b/httemplate/elements/select-part_referral.html
@@ -1,17 +1,19 @@
-<%
-  my( $refnum, %opt ) = @_;
-
-  $opt{'records'} = delete $opt{'part_referrals'}
-    if $opt{'part_referrals'};
-
-%><%= include( '/elements/select-table.html',
+<& /elements/select-table.html,
                  'table'       => 'part_referral',
                  'name_col'    => 'referral',
                  'value'       => $refnum,
-                 'empty_label' => 'Select advertising source',
+                 'empty_label' => emt('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>