1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
% % 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', 'value' => $classnum, 'empty_label' => '(none)', #'hashref' => { 'disabled' => '' }, %opt, ) %>