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