summaryrefslogtreecommitdiff
path: root/httemplate/elements/select-agent.html
diff options
context:
space:
mode:
authorivan <ivan>2007-08-01 22:26:52 +0000
committerivan <ivan>2007-08-01 22:26:52 +0000
commiteb4ff7f73c5d4bdf74a3472448b5a195598ff4cd (patch)
treebb38241e8c865c3bca861da7749071feeadd2b5b /httemplate/elements/select-agent.html
parent32b5d3a31f112a381f0a15ac5e3a2204242f3405 (diff)
event refactor, landing on HEAD!
Diffstat (limited to 'httemplate/elements/select-agent.html')
-rw-r--r--httemplate/elements/select-agent.html16
1 files changed, 9 insertions, 7 deletions
diff --git a/httemplate/elements/select-agent.html b/httemplate/elements/select-agent.html
index 3107ff9d4..54069a5cb 100644
--- a/httemplate/elements/select-agent.html
+++ b/httemplate/elements/select-agent.html
@@ -1,10 +1,3 @@
-%
-% my( $agentnum, %opt ) = @_;
-%
-% $opt{'records'} = delete $opt{'agents'}
-% if $opt{'agents'};
-%
-%
<% include( '/elements/select-table.html',
'table' => 'agent',
'name_col' => 'agent',
@@ -17,3 +10,12 @@
%opt,
)
%>
+<%init>
+
+my %opt = @_;
+my $agentnum = $opt{'curr_value'} || $opt{'value'};
+
+$opt{'records'} = delete $opt{'agents'}
+ if $opt{'agents'};
+
+</%init>