File Coverage

lib/CGI/OptimalQuery/ShowColumns.pm

Criterion	Covered	Total	%
statement	12	25	48.0
branch	0	4	0.0
condition	0	6	0.0
subroutine	4	6	66.6
pod	0	2	0.0
total	16	43	37.2

package CGI::OptimalQuery::ShowColumns;

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

sub escapeHTML { CGI::OptimalQuery::Base::escapeHTML(@_) }

sub output {
  my $o = shift;
  my $buf = $$o{httpHeader}->('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;