event refactor, landing on HEAD!

[freeside.git] / httemplate / elements / select-part_referral.html

diff --git a/httemplate/elements/select-part_referral.html b/httemplate/elements/select-part_referral.html
index 670b70c..c4b8829 100644 (file)
--- 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',
@@ -16,3 +9,12 @@
                  %opt,
              )
 %>
+<%init>
+
+my %opt = @_;
+my $refnum = $opt{'curr_value'} || $opt{'value'};
+
+$opt{'records'} = delete $opt{'part_referrals'}
+  if $opt{'part_referrals'};
+
+</%init>