2 % my( $classnum, %opt ) = @_;
4 % $opt{'pkg_class'} ||= [ qsearch( 'pkg_class', {} ) ]; # { disabled=>'' } )
6 % #warn "***** tr-select-pkg-class: \n". Dumper(%opt);
8 % if ( scalar(@{ $opt{'pkg_class'} }) == 0 ) {
11 <INPUT TYPE="hidden" NAME="classnum" VALUE="">
16 <TD ALIGN="right"><% $opt{'label'} || 'Package class' %></TD>
18 <% include( '/elements/select-pkg_class.html', $classnum, %opt ) %>