From eb4ff7f73c5d4bdf74a3472448b5a195598ff4cd Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Wed, 1 Aug 2007 22:26:52 +0000
Subject: event refactor, landing on HEAD!

---
 httemplate/elements/select-agent.html | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

(limited to 'httemplate/elements/select-agent.html')

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>
-- 
cgit v1.2.1