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-pkg_class.html | |
| parent | 32b5d3a31f112a381f0a15ac5e3a2204242f3405 (diff) | |
event refactor, landing on HEAD!
Diffstat (limited to 'httemplate/elements/select-pkg_class.html')
| -rw-r--r-- | httemplate/elements/select-pkg_class.html | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/httemplate/elements/select-pkg_class.html b/httemplate/elements/select-pkg_class.html index 8e873ed66..f30259e55 100644 --- a/httemplate/elements/select-pkg_class.html +++ b/httemplate/elements/select-pkg_class.html @@ -1,10 +1,3 @@ -% my( $classnum, %opt ) = @_; -% -% $opt{'records'} = delete $opt{'pkg_class'} -% if $opt{'pkg_class'}; -% -% #warn "***** select-pkg-class: \n". Dumper(%opt); -% <% include( '/elements/select-table.html', 'table' => 'pkg_class', 'name_col' => 'classname', @@ -14,3 +7,12 @@ %opt, ) %> +<%init> + +my %opt = @_; +my $classnum = $opt{'curr_value'} || $opt{'value'}; + +$opt{'records'} = delete $opt{'pkg_class'} + if $opt{'pkg_class'}; + +</%init> |