diff options
author | ivan <ivan> | 2007-08-01 22:26:52 +0000 |
---|---|---|
committer | ivan <ivan> | 2007-08-01 22:26:52 +0000 |
commit | eb4ff7f73c5d4bdf74a3472448b5a195598ff4cd (patch) | |
tree | bb38241e8c865c3bca861da7749071feeadd2b5b /httemplate/elements/select-part_referral.html | |
parent | 32b5d3a31f112a381f0a15ac5e3a2204242f3405 (diff) |
event refactor, landing on HEAD!
Diffstat (limited to 'httemplate/elements/select-part_referral.html')
-rw-r--r-- | httemplate/elements/select-part_referral.html | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/httemplate/elements/select-part_referral.html b/httemplate/elements/select-part_referral.html index 670b70c7c..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', @@ -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> |