% my( $classnum, %opt ) = @_; $opt{'pkg_class'} ||= [ qsearch( 'pkg_class', {} ) ]; # { disabled=>'' } ) #warn "***** tr-select-pkg-class: \n". Dumper(%opt); %> <% if ( scalar(@{ $opt{'pkg_class'} }) == 0 ) { %> <% } else { %>