File Coverage

lib/CGI/OptimalQuery/XML.pm

Criterion	Covered	Total	%
statement	15	33	45.4
branch			n/a
condition			n/a
subroutine	5	6	83.3
pod	0	1	0.0
total	20	40	50.0

package CGI::OptimalQuery::XML;

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

sub output {
  my $o = shift;

  my $title = $o->{schema}->{title};
  $title =~ s/\W//g;
  my @t = localtime;
  $title .= '_'.($t[5] + 1900).($t[4] + 1).$t[3].$t[2].$t[1];

  $$o{output_handler}->(CGI::header(-type => 'text/xml', -attachment => "$title.xml").
"\n\n");

  my @userselcols = @{ $o->get_usersel_cols };

  my $buf;

  # print data
  while (my $rec = $o->fetch()) {
    $buf .= "\n";
    foreach my $col (@userselcols) {
      $buf .= "  <$col>".$o->escape_html($o->get_val($col))."\n";
    }
    $buf .= "\n";
  }
  $buf .= "";

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

  $o->finish();
  return undef;
}


1;