File Coverage

lib/CGI/OptimalQuery/ShowColumns.pm

Criterion	Covered	Total	%
statement	15	27	55.5
branch	0	4	0.0
condition	0	6	0.0
subroutine	5	6	83.3
pod	0	1	0.0
total	20	44	45.4

package CGI::OptimalQuery::ShowColumns;

use strict;
use warnings;
no warnings qw( uninitialized );
use base 'CGI::OptimalQuery::Base';
use CGI qw(escapeHTML);

sub output {
  my $o = shift;
  my $buf = CGI::header('text/html').
"



select fields to add ..";
  my $s = $$o{schema}{select};
  my @c = sort { $$s{$a}[2] cmp $$s{$b}[2] } keys %$s;
  foreach my $colAlias (@c) {
    my $label = $$s{$colAlias}[2];
    my $colOpts = $$s{$colAlias}[3];
    $buf .= ''
      .escapeHTML($label).''
      unless $label eq '' || $$colOpts{disable_select} || $$colOpts{is_hidden};
  }
  $buf .= "

display as:

  table rows
  param('mode') eq 'recview')?" selected":"").">records



cancel
ok


";
  $$o{output_handler}->($buf);
  return undef;
}

1;