-<%
- 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',
+<% include( '/elements/select-table.html',
'table' => 'pkg_class',
'name_col' => 'classname',
'value' => $classnum,
'empty_label' => '(none)',
- #'hashref' => { 'disabled' => '' },
+ 'hashref' => \%hash,
%opt,
)
%>
+<%init>
+
+my %opt = @_;
+my $classnum = $opt{'curr_value'} || $opt{'value'};
+
+my %hash = ();
+$hash{'disabled'} = '' unless $opt{'showdisabled'};
+
+
+$opt{'records'} = delete $opt{'pkg_class'}
+ if $opt{'pkg_class'};
+
+</%init>