% 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 {