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