File Coverage

lib/CGI/OptimalQuery/InteractiveQuery2.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	20	20	100.0

package CGI::OptimalQuery::InteractiveQuery2;

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

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

sub output {
  my $o = shift;

  my %opts = %{ $o->get_opts() };

  # evalulate code refs
  for (qw(httpHeader htmlFooter htmlHeader OQdocTop
          OQdocBottom OQformTop OQformBottom )) {
    $opts{$_} = $opts{$_}->($o) if ref($opts{$_}) eq 'CODE';
  }

  # define defaults
  $opts{OQdocTop}       ||= '';
  $opts{OQdocBottom}    ||= '';
  $opts{OQformTop}      ||= '';
  $opts{OQformBottom}   ||= '';
  $opts{editButtonLabel}||= 'open';
  $opts{disable_sort}   ||= 0;
  $opts{disable_filter} ||= 0;
  $opts{disable_select} ||= 0;
  $opts{mutateRecord}   ||= undef;
  $opts{editLink}       ||= undef;
  $opts{htmlExtraHead}  ||= "";
  if (! exists $opts{usePopups}) {
    $opts{usePopups}=1;
  } else {
    $opts{usePopups}=($opts{usePopups}) ? 1 : 0;
  }
  if (! exists $opts{useAjax}) {
    $opts{useAjax} = $opts{usePopups};
  } else {
    $opts{useAjax}=($opts{useAjax}) ? 1 : 0;
  }

  $opts{httpHeader} = $$o{httpHeader}->(-type=>'text/html',-expires=>'now')
    unless exists $opts{httpHeader};
  $opts{htmlFooter} = "\n\n"
    unless exists $opts{htmlFooter};

  my $newBut;
  if ($opts{NewButton}) {
    $newBut = (ref($opts{NewButton}) eq 'CODE') ? $opts{NewButton}->($o, \%opts) : $opts{NewButton};
  }
  elsif (ref($opts{buildNewLink}) eq 'CODE') {
    my $link = $opts{buildNewLink}->($o, \%opts);
    if ($link ne '') {
      $newBut = "
      if ($opts{usePopups}) {
        my $target = uc($link); $target =~ s/\W//g;
        $newBut .= " data-target='$target'";
      }
      $newBut .= " data-href='".escapeHTML($link)."'>new";
    }
  }
  elsif (exists $opts{buildNewLink} && $opts{buildNewLink} eq '') {}
  elsif ($opts{editLink} ne '') {
    my $link = $opts{editLink}.(($opts{editLink} =~ /\?/)?'&':'?')."on_update=OQrefresh&act=new";
    if ($link ne '') {
      $newBut = "
      if ($opts{usePopups}) {
        my $target = uc($opts{editLink}); $target =~ s/\W//g;
        $newBut .= " data-target='$target'";
      }
      $newBut .= " data-href='".escapeHTML($link)."'>new";
    }
  }

  my $ver = "ver=$CGI::OptimalQuery::VERSION";
  my $buf;
  my $script;
  $script .= "window.OQWindowHeight=$opts{WindowHeight};\n" if $opts{WindowHeight};
  $script .= "window.OQWindowWidth=$opts{WindowWidth};\n" if $opts{WindowWidth};
  $script .= "window.OQuseAjax=$opts{useAjax};\n";
  $script .= "window.OQusePopups=$opts{usePopups};\n";

  if (! exists $opts{htmlHeader}) {
    $opts{htmlHeader} =
"


".escapeHTML($o->get_title)."


".$opts{htmlExtraHead}."
";
  } else {
      $script .= "
  if (! document.getElementById('OQIQ2CSS')) {
    var a = document.createElement('link');
    a.setAttribute('rel','stylesheet');
    a.setAttribute('type','text/css');
    a.setAttribute('id','OQIQ2CSS');
    a.setAttribute('href','$$o{schema}{resourceURI}/InteractiveQuery2.css?1');
    document.getElementsByTagName('head')[0].appendChild(a);
  }\n";
  }

  if ($opts{color}) {
    $script .= "
  var d = document.createElement('style');
  var r = document.createTextNode('.OQhead { background-color: $opts{color}; }');
  d.type = 'text/css';
  if (d.styleSheet)
    d.styleSheet.cssText = r.nodeValue;
  else d.appendChild(r);
  document.getElementsByTagName('head')[0].appendChild(d);\n";
  }

  $buf = $opts{httpHeader}.$opts{htmlHeader};
  $buf .= "" unless $opts{jquery_already_sent};
  $buf .= "

 </td>
</tr>

<tr>
<td  class="h" >
<a name="124">124</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> (function(){ </td>
</tr>

<tr>
<td  class="h" >
<a name="125">125</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> $script </td>
</tr>

<tr>
<td  class="h" >
<a name="126">126</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> })(); </td>
</tr>

<tr>
<td  class="h" >
<a name="127">127</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> ";
  $buf .= "

$opts{OQdocTop}";

  # ouput tools panel
  my @tools = sort keys %{$$o{schema}{tools}};
  if ($#tools > -1) {
    $buf .= "";
    my $opened_tool_key = $$o{q}->param('tool');
    foreach my $key (sort keys %{$$o{schema}{tools}}) {
      my $tool = $$o{schema}{tools}{$key};

      my $openedClass = '';
      my $toolContent = '';
      if ($opened_tool_key eq $key) {
        $openedClass = ' opened';
        $toolContent = "".$$tool{handler}->($o)."";
      }
      $buf .= "".escapeHTML($$tool{title})."$toolContent";
    }
    $buf .= "✕";
  }

  $buf .= "





\n";
  $buf .= "\n" if $$o{mode};
  $buf .= "\n" if $$o{module};

  my @p = qw( OQss on_select on_update );
  push @p, @{ $$o{schema}{state_params} } if ref($$o{schema}{state_params}) eq 'ARRAY';
  foreach my $p (@p) {
    my $v = $$o{q}->param($p);
    $buf .= "\n" if $v ne '';
  }

  $buf .=
"
$opts{OQformTop}


".escapeHTML($o->get_title)."
Result(s) (".$o->commify($o->get_lo_rec)." - "
  .$o->commify($o->get_hi_rec).") of ".$o->commify($o->get_count)."";

  if ($$o{mode} ne 'recview') {
    $buf .= "

$newBut
refresh
tools
help
";
  }
  $buf .= "


"; " if $$o{queryDescr}; "; "; 




190




 





 





 





 





 





 



   $buf .= "Query:".escapeHTML($$o{queryDescr})."




191




 





 





 





 





 





 



   




192




 





 





 





 





 





 



   my $filter = $o->get_filter(); 




193




 





 





 





 





 





 



   if ($filter) { 




194




 





 





 





 





 





 



     $buf .= "




195




 





 





 





 





 





 



     $buf .= " data-nofilter" if $opts{disable_filter}; 




196




 





 





 





 





 





 



     $buf .= ">Filter:".escapeHTML($filter)."




197




 





 





 





 





 





 



   } 




198




 





 





 





 





 





 



   




199




 





 





 





 





 





 



   my @sort = $o->sth->sort_descr; 




200




 





 





 





 





 





 



   if ($#sort > -1) { 




201




 





 





 





 





 





 



     $buf .= "Sort:"; 




202




 





 





 





 





 





 



     my $comma = ''; 




203




 





 





 





 





 





 



     foreach my $c (@sort) { 




204




 





 





 





 





 





 



       $buf .= $comma; 




205




 





 





 





 





 





 



       $comma = ', '; 




206




 





 





 





 





 





 



       $buf .= "" unless $opts{disable_sort}; 




207




 





 





 





 





 





 



       $buf .= escapeHTML($c); 




208




 





 





 





 





 





 



       $buf .= "" unless $opts{disable_sort}; 




209




 





 





 





 





 





 



     } 




210




 





 





 





 





 





 



     $buf .= "




211




 





 





 





 





 





 



   } 




212




 





 





 





 





 





 



   




213




 





 





 





 





 





 



   $buf .= "";
  $buf .= "

  my $filter = $o->get_filter();
  if ($filter) {
    $buf .= "
    $buf .= " data-nofilter" if $opts{disable_filter};
    $buf .= ">
  }

  my @sort = $o->sth->sort_descr;
  if ($#sort > -1) {
    $buf .= "
    my $comma = '';
    foreach my $c (@sort) {
      $buf .= $comma;
      $comma = ', ';
      $buf .= "" unless $opts{disable_sort};
      $buf .= escapeHTML($c);
      $buf .= "" unless $opts{disable_sort};
    }
    $buf .= "
  }

  $buf .= "


  if ($$o{mode} eq 'recview') {
    $buf .= "

$newBut
refresh
columns
filter
help
tools
";
  }


  # print update message
  my $updated_uid = $o->{q}->param('updated_uid');
  if ($updated_uid ne '') {
    my $msg;
    if (exists $opts{OQRecUpdateMsg}) {
      if (ref($opts{OQRecUpdateMsg}) eq 'CODE') {
        $msg = $opts{OQRecUpdateMsg}->($updated_uid);
      } else {
        $msg = $opts{OQRecUpdateMsg};
      }
    } elsif ($opts{editLink}) {
      my $editLink = $opts{editLink}.(($opts{editLink} =~ /\?/)?'&':'?')."on_update=OQrefresh&act=load&id=".CGI::escape($updated_uid);
      $msg = "Record ".escapeHTML($updated_uid)." updated.";
    }
    if ($msg) {
      $buf .= "$msg";
    }
  }


$$o{output_handler}->($buf);
$buf = '';

  $buf .= ""; "; "; "; \n"; "; "; "; "; \n"; 




253




 





 





 





 





 





 



   




254




 





 





 





 





 





 



   if ($$o{mode} eq 'recview') { 




255




 





 





 





 





 





 



   } else { 




256




 





 





 





 





 





 



     $buf .= " 




257




 





 





 





 





 





 



  




258




 





 





 





 





 





 



  




259




 





 





 





 





 





 



 




260




 





 





 





 





 





 



   foreach my $colAlias (@{ $o->get_usersel_cols }) { 




261




 





 





 





 





 





 



     my $colOpts = $$o{schema}{select}{$colAlias}[3]; 




262




 





 





 





 





 





 



     $buf .= "




263




 





 





 





 





 





 



     $buf .= " data-noselect" if $$colOpts{disable_select} || $opts{disable_select}; 




264




 





 





 





 





 





 



     $buf .= " data-nosort"   if $$colOpts{disable_sort}   || $opts{disable_sort}; 




265




 





 





 





 





 





 



     $buf .= " data-nofilter" if $$colOpts{disable_filter} || $opts{disable_filter}; 




266




 





 





 





 





 





 



     $buf .= ">".escapeHTML($o->get_nice_name($colAlias))."




267




 





 





 





 





 





 



   } 




268




 





 





 





 





 





 



   $buf .= " 




269




 





 





 





 





 





 



  




270




 





 





 





 





 





 



  




271




 





 





 





 





 





 



 




272




 





 





 





 





 





 



   } 




273




 





 





 





 





 





 



   




274




 





 





 





 





 





 



   $buf .= " 




275




 





 





 





 





 





 



 




276




 





 





 





 





 





 



   




277




 





 





 





 





 





 



   my $recs_in_buffer = 0; 




278




 





 





 





 





 





 



   my $typeMap = $o->{oq}->get_col_types('select'); 




279




 





 





 





 





 





 



   while (my $r = $o->fetch()) { 




280




 





 





 





 





 





 



     my $leftBut; 




281




 





 





 





 





 





 



     if (ref($opts{OQdataLCol}) eq 'CODE') { 




282




 





 





 





 





 





 



       $leftBut = $opts{OQdataLCol}->($r); 




283




 





 





 





 





 





 



     } elsif (ref($opts{buildEditLink}) eq 'CODE') { 




284




 





 





 





 





 





 



       my $link = $opts{buildEditLink}->($o, $r, \%opts); 




285




 





 





 





 





 





 



       if ($link ne '') { 




286




 





 





 





 





 





 



         $leftBut = "".$opts{editButtonLabel}.""; 




287




 





 





 





 





 





 



       } 




288




 





 





 





 





 





 



     } elsif ($opts{editLink} ne '' && $$r{U_ID} ne '') { 




289




 





 





 





 





 





 



       my $link = $opts{editLink}.(($opts{editLink} =~ /\?/)?'&':'?')."on_update=OQrefresh&act=load&id=$$r{U_ID}"; 




290




 





 





 





 





 





 



       $leftBut = "".$opts{editButtonLabel}.""; 




291




 





 





 





 





 





 



     } 




292




 





 





 





 





 





 



   




293




 





 





 





 





 





 



     my $rightBut; 




294




 





 





 





 





 





 



     if (ref($opts{OQdataRCol}) eq 'CODE') { 




295




 





 





 





 





 





 



       $rightBut = $opts{OQdataRCol}->($r); 




296




 





 





 





 





 





 



     } elsif ($o->{q}->param('on_select') ne '') { 




297




 





 





 





 





 





 



       my $on_select = $o->{q}->param('on_select'); 




298




 





 





 





 





 





 



       $on_select =~ s/\~.*//; 




299




 





 





 





 





 





 



       my ($func,@argfields) = split /\,/, $on_select; 




300




 





 





 





 





 





 



       $argfields[0] = 'U_ID' if $#argfields==-1; 




301




 





 





 





 





 





 



       my @argvals = map { 




302




 





 





 





 





 





 



         my $v=$$r{$_}; 




303




 





 





 





 





 





 



         $v = join(', ', @$v) if ref($v) eq 'ARRAY'; 




304




 





 





 





 





 





 



         $v =~ s/\~\~\~//g; 




305




 





 





 





 





 





 



         $v; 




306




 





 





 





 





 





 



       } @argfields; 




307




 





 





 





 





 





 



       $rightBut = "select"; 




309




 





 





 





 





 





 



     } 




310




 





 





 





 





 





 



   




311




 





 





 





 





 





 



   




312




 





 





 





 





 





 



     $buf .= "




313




 





 





 





 





 





 



     $buf .= " class=OQupdatedRow" if $updated_uid && $updated_uid eq $$r{U_ID}; 




314




 





 





 





 





 





 



     $buf .= ">"; 




315




 





 





 





 





 





 



   




316




 





 





 





 





 





 



     if ($$o{mode} eq 'recview') { 




317




 





 





 





 





 





 



       $buf .= ""; 




318




 





 





 





 





 





 



       foreach my $col (@{ $o->get_usersel_cols }) { 




319




 





 





 





 





 





 



         my $val = $o->get_html_val($col); 




320




 





 





 





 





 





 



         if ($val ne '') { 




321




 





 





 





 





 





 



           my $label = $o->get_nice_name($col); 




322




 





 





 





 





 





 



           $buf .= "".escapeHTML($label).":$val"; 




323




 





 





 





 





 





 



         } 




324




 





 





 





 





 





 



       } 




325




 





 





 





 





 





 



       $buf .= "$leftBut $rightBut




326




 





 





 





 





 





 



     } 




327




 





 





 





 





 





 



   




328




 





 





 





 





 





 



     else { 




329




 





 





 





 





 





 



       $buf .= "$leftBut




330




 





 





 





 





 





 



       foreach my $col (@{ $o->get_usersel_cols }) { 




331




 





 





 





 





 





 



         my $val = $o->get_html_val($col); 




332




 





 





 





 





 





 



         my $type = $$typeMap{$col} || 'char'; 




333




 





 





 





 





 





 



         $buf .= "




334




 





 





 





 





 





 



         $buf .= " class=$type" unless $type eq 'char'; 




335




 





 





 





 





 





 



         $buf .= " nowrap" if $$o{schema}{select}{$col}[3]{nowrap}; 




336




 





 





 





 





 





 



         $buf .= " align='".escapeHTML($$o{schema}{select}{$col}[3]{align})."'" 




337




 





 





 





 





 





 



           if $$o{schema}{select}{$col}[3]{align}; 




338




 





 





 





 





 





 



         $buf .= ">$val




339




 





 





 





 





 





 



       } 




340




 





 





 





 





 





 



       $buf .= "$rightBut




341




 





 





 





 





 





 



     } 




342




 





 





 





 





 





 



   




343




 





 





 





 





 





 



     $buf .= "




344




 





 





 





 





 





 



     if (++$recs_in_buffer == 1000) { 




345




 





 





 





 





 





 



       $$o{output_handler}->($buf); 




346




 





 





 





 





 





 



       $buf = ''; 




347




 





 





 





 





 





 



       $recs_in_buffer = 0; 




348




 





 





 





 





 





 



     } 




349




 





 





 





 





 





 



   } 




350




 





 





 





 





 





 



   $o->finish(); 




351




 





 





 





 





 





 



   




352




 





 





 





 





 





 



   $buf .= "\n";

  if ($$o{mode} eq 'recview') {
  } else {
    $buf .= "



  foreach my $colAlias (@{ $o->get_usersel_cols }) {
    my $colOpts = $$o{schema}{select}{$colAlias}[3];
    $buf .= "
    $buf .= " data-noselect" if $$colOpts{disable_select} || $opts{disable_select};
    $buf .= " data-nosort"   if $$colOpts{disable_sort}   || $opts{disable_sort};
    $buf .= " data-nofilter" if $$colOpts{disable_filter} || $opts{disable_filter};
    $buf .= ">".escapeHTML($o->get_nice_name($colAlias))."
  }
  $buf .= "



  }

  $buf .= "


  my $recs_in_buffer = 0;
  my $typeMap = $o->{oq}->get_col_types('select');
  while (my $r = $o->fetch()) {
    my $leftBut;
    if (ref($opts{OQdataLCol}) eq 'CODE') {
      $leftBut = $opts{OQdataLCol}->($r);
    } elsif (ref($opts{buildEditLink}) eq 'CODE') {
      my $link = $opts{buildEditLink}->($o, $r, \%opts);
      if ($link ne '') {
        $leftBut = "".$opts{editButtonLabel}."";
      }
    } elsif ($opts{editLink} ne '' && $$r{U_ID} ne '') {
      my $link = $opts{editLink}.(($opts{editLink} =~ /\?/)?'&':'?')."on_update=OQrefresh&act=load&id=$$r{U_ID}";
      $leftBut = "".$opts{editButtonLabel}."";
    }

    my $rightBut;
    if (ref($opts{OQdataRCol}) eq 'CODE') {
      $rightBut = $opts{OQdataRCol}->($r);
    } elsif ($o->{q}->param('on_select') ne '') {
      my $on_select = $o->{q}->param('on_select');
      $on_select =~ s/\~.*//;
      my ($func,@argfields) = split /\,/, $on_select;
      $argfields[0] = 'U_ID' if $#argfields==-1;
      my @argvals = map {
        my $v=$$r{$_};
        $v = join(', ', @$v) if ref($v) eq 'ARRAY';
        $v =~ s/\~\~\~//g;
        $v;
      } @argfields;
      $rightBut = "select";
    }


    $buf .= "
    $buf .= " class=OQupdatedRow" if $updated_uid && $updated_uid eq $$r{U_ID};
    $buf .= ">";

    if ($$o{mode} eq 'recview') {
      $buf .= "
      foreach my $col (@{ $o->get_usersel_cols }) {
        my $val = $o->get_html_val($col);
        if ($val ne '') {
          my $label = $o->get_nice_name($col);
          $buf .= "".escapeHTML($label).":$val";
        }
      }
      $buf .= "$leftBut $rightBut
    }

    else {
      $buf .= "
      foreach my $col (@{ $o->get_usersel_cols }) {
        my $val = $o->get_html_val($col);
        my $type = $$typeMap{$col} || 'char';
        $buf .= "
        $buf .= " class=$type" unless $type eq 'char';
        $buf .= " nowrap" if $$o{schema}{select}{$col}[3]{nowrap};
        $buf .= " align='".escapeHTML($$o{schema}{select}{$col}[3]{align})."'"
          if $$o{schema}{select}{$col}[3]{align};
        $buf .= ">$val
      }
      $buf .= "
    }

    $buf .= "
    if (++$recs_in_buffer == 1000) {
      $$o{output_handler}->($buf);
      $buf = '';
      $recs_in_buffer = 0;
    }
  }
  $o->finish();

  $buf .= "

  my $numpages = $o->get_num_pages();

  $buf .= "\n";
  if ($numpages != 1) {
    $buf .= "
    $buf .= " disabled" if $$o{page}==1;
    $buf .= "><";
  }
  $buf .= " ";
  foreach my $p (@{ $$o{schema}{results_per_page_picker_nums} }) {
    $buf .= "view $p results per page";
  }
  $buf .= "";
  if ($numpages != 1) {
    $buf .= " Page  of $numpages >"
  }
  $buf .= "

$opts{OQformBottom}


  move left
  move right
  sort
  sort reverse
  filter
  add columns
  hide column

";

  $buf .= "$opts{OQdocBottom}";
  $buf .= ""; # div.OQdoc
  $buf .= $opts{htmlFooter};

  $$o{output_handler}->($buf);

  return undef;
}


1;