$output .=  $stash->get('tbl');                &$_tt_filter($output);    };        $output .=  "&amp;";    }    else {    #line 111 "template\en\default\reports\report.html.tmpl"        # FOREACH     do {        my ($_tt_value, $_tt_error, $_tt_oldloop);        my $_tt_list = $stash->get('tbl_names');                unless (UNIVERSAL::isa($_tt_list, 'Template::Iterator')) {            $_tt_list = Template::Config->iterator($_tt_list)                || die $Template::Config::ERROR, "\n";         }            ($_tt_value, $_tt_error) = $_tt_list->get_first();        eval { $_tt_oldloop = $stash->get('loop') };        $stash->set('loop', $_tt_list);        eval {    LOOP:   while (! $_tt_error) {                $stash->{'tblname'} = $_tt_value;    #line 110 "template\en\default\reports\report.html.tmpl"    if ($stash->get('tblname') ne '-total-') {    #line 109 "template\en\default\reports\report.html.tmpl"        # FILTER    $output .=  do {        my $output = '';        my $_tt_filter = $context->filter('url_quote')                  || $context->throw($context->error);        $output .=  $stash->get('tbl_field');                &$_tt_filter($output);    };        $output .=  "=";    #line 109 "template\en\default\reports\report.html.tmpl"        # FILTER    $output .=  do {        my $output = '';        my $_tt_filter = $context->filter('url_quote')                  || $context->throw($context->error);        $output .=  $stash->get('tblname');                &$_tt_filter($output);    };        $output .=  "&amp;";    }    ;                ($_tt_value, $_tt_error) = $_tt_list->get_next();            }        };        $stash->set('loop', $_tt_oldloop);        die $@ if $@;        $_tt_error = 0 if $_tt_error && $_tt_error eq Template::Constants::STATUS_DONE;        die $_tt_error if $_tt_error;    };        }        }        $output .=  "width=";    #line 113 "template\en\default\reports\report.html.tmpl"    $output .=  $stash->get('width');    $output .=  "&amp;height=";    #line 113 "template\en\default\reports\report.html.tmpl"    $output .=  $stash->get('height');    $output .=  "      ";        $output;    });        $output .=  "\n      \n      <img alt=\"Graphical report results\" src=\"";    #line 116 "template\en\default\reports\report.html.tmpl"    $output .=  $stash->get('imageurl');    $output .=  "\"\n        width=\"";    #line 117 "template\en\default\reports\report.html.tmpl"    $output .=  $stash->get('width');    $output .=  "\" height=\"";    #line 117 "template\en\default\reports\report.html.tmpl"    $output .=  $stash->get('height');    $output .=  "\">";    }        $output .=  "\n    <br>";;                ($_tt_value, $_tt_error) = $_tt_list->get_next();            }        };        $stash->set('loop', $_tt_oldloop);        die $@ if $@;        $_tt_error = 0 if $_tt_error && $_tt_error eq Template::Constants::STATUS_DONE;        die $_tt_error if $_tt_error;    };        $output .=  "  \n\n  <table>\n    <tr>\n      <td>";    #line 125 "template\en\default\reports\report.html.tmpl"    $stash->set('formats', [ { 'name' => 'pie', 'description' => 'Pie'  }, { 'name' => 'bar', 'description' => 'Bar'  }, { 'name' => 'line', 'description' => 'Line'  }, { 'name' => 'table', 'description' => 'Table'  } ]);        $output .=  "\n";    #line 0 "template\en\default\reports\report.html.tmpl"    $stash->set('formaturl', ("report.cgi?" . $stash->get('switchbase') . "&amp;width=" . $stash->get('width'))  . ("&amp;height=" . $stash->get('height') . "&amp;action=wrap"));        #line 139 "template\en\default\reports\report.html.tmpl"        # FOREACH     do {        my ($_tt_value, $_tt_error, $_tt_oldloop);        my $_tt_list = $stash->get('formats');                unless (UNIVERSAL::isa($_tt_list, 'Template::Iterator')) {            $_tt_list = Template::Config->iterator($_tt_list)                || die $Template::Config::ERROR, "\n";         }            ($_tt_value, $_tt_error) = $_tt_list->get_first();        eval { $_tt_oldloop = $stash->get('loop') };        $stash->set('loop', $_tt_list);        eval {    LOOP:   while (! $_tt_error) {                $stash->{'other_format'} = $_tt_value;    #line 133 "template\en\default\reports\report.html.tmpl"    if ($stash->get(['other_format', 0, 'name', 0]) eq 'pie' && $stash->get('row_field') && $stash->get('col_field')) {    ($_tt_value, $_tt_error) = $_tt_list->get_next();    next LOOP;        }        #line 136 "template\en\default\reports\report.html.tmpl"    if (!($stash->get(['other_format', 0, 'name', 0]) eq $stash->get('format'))) {    $output .=  "\n            <a href=\"";    #line 135 "template\en\default\reports\report.html.tmpl"    $output .=  $stash->get('formaturl');    $output .=  "&amp;format=";    #line 135 "template\en\default\reports\report.html.tmpl"    $output .=  $stash->get(['other_format', 0, 'name', 0]);    $output .=  "\">";    }        #line 137 "template\en\default\reports\report.html.tmpl"        # FILTER    $output .=  do {        my $output = '';        my $_tt_filter = $context->filter('html')                  || $context->throw($context->error);        $output .=  $stash->get(['other_format', 0, 'description', 0]);                &$_tt_filter($output);    };        #line 138 "template\en\default\reports\report.html.tmpl"    if (!($stash->get(['other_format', 0, 'name', 0]) eq $stash->get('format'))) {    $output .=  '</a>';    }        $output .=  " | ";;                ($_tt_value, $_tt_error) = $_tt_list->get_next();            }        };        $stash->set('loop', $_tt_oldloop);        die $@ if $@;        $_tt_error = 0 if $_tt_error && $_tt_error eq Template::Constants::STATUS_DONE;        die $_tt_error if $_tt_error;    };        $output .=  "\n        <a href=\"";    #line 140 "template\en\default\reports\report.html.tmpl"    $output .=  $stash->get('formaturl');    $output .=  "&amp;ctype=csv&amp;format=table\">CSV</a> \n      </td>\n      ";    #line 161 "template\en\default\reports\report.html.tmpl"    if ($stash->get('format') ne 'table') {    $output .=  "\n        <td>\n          &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\n        </td>\n";    #line 150 "template\en\default\reports\report.html.tmpl"        # CAPTURE    $stash->set('sizeurl', do {        my $output = '';    $output .=  "report.cgi?";    #line 149 "template\en\default\reports\report.html.tmpl"    $output .=  $stash->get('switchbase');    $output .=  "&amp;action=wrap&amp;format=";    #line 150 "template\en\default\reports\report.html.tmpl"        # FILTER    $output .=  do {        my $output = '';        my $_tt_filter = $context->filter('html')                  || $context->throw($context->error);        $output .=  $stash->get('format');                &$_tt_filter($output);    };            $output;    });        $output .=  "\n        <td align=\"center\">\n          <a href=\"";    #line 152 "template\en\default\reports\report.html.tmpl"    $output .=  $stash->get('sizeurl');    $output .=  "&amp;width=";    #line 152 "template\en\default\reports\report.html.tmpl"    $output .=  $stash->get('width');    $output .=  "&amp;height=";    #line 153 "template\en\default\reports\report.html.tmpl"    $output .=  $stash->get('height') + 100;    $output .=  "\">Taller</a><br>\n          <a href=\"";    #line 154 "template\en\default\reports\report.html.tmpl"    $output .=  $stash->get('sizeurl');    $output .=  "&amp;width=";    #line 154 "template\en\default\reports\report.html.tmpl"    $output .=  $stash->get('width') - 100;    $output .=  "&amp;height=";    #line 155 "template\en\default\reports\report.html.tmpl"    $output .=  $stash->get('height');    $output .=  "\">Thinner</a> * \n          <a href=\"";    #line 156 "template\en\default\reports\report.html.tmpl"    $output .=  $stash->get('sizeurl');    $output .=  "&amp;width=";    #line 156 "template\en\default\reports\report.html.tmpl"    $output .=  $stash->get('width') + 100;    $output .=  "&amp;height=";    #line 157 "template\en\default\reports\report.html.tmpl"    $output .=  $stash->get('height');    $output .=  "\">Fatter</a>&nbsp;&nbsp;&nbsp;&nbsp;<br>\n          <a href=\"";    #line 158 "template\en\default\reports\report.html.tmpl"    $output .=  $stash->get('sizeurl');    $output .=  "&amp;width=";    #line 158 "template\en\default\reports\report.html.tmpl"    $output .=  $stash->get('width');    $output .=  "&amp;height=";    #line 159 "template\en\default\reports\report.html.tmpl"    $output .=  $stash->get('height') - 100;    $output .=  "\">Shorter</a><br>\n        </td>";    }        $output .=  "\n    </tr>\n  </table>\n\n  <p>";    #line 174 "template\en\default\reports\report.html.tmpl"    if ($stash->get('format') eq 'table') {    $output .=  "\n      <a href=\"query.cgi?";    #line 167 "template\en\default\reports\report.html.tmpl"    $output .=  $stash->get('switchbase');    $output .=  "&amp;format=report-table\">Edit \n      this report</a>";    }    else {    $output .=  "\n      <a href=\"query.cgi?";    #line 170 "template\en\default\reports\report.html.tmpl"    $output .=  $stash->get('switchbase');    $output .=  "&amp;chart_format=";    #line 171 "template\en\default\reports\report.html.tmpl"    $output .=  $stash->get('format');    $output .=  "&amp;format=report-graph&amp;cumulate=";    #line 171 "template\en\default\reports\report.html.tmpl"    $output .=  $stash->get('cumulate');    $output .=  "\">\n        Edit this report\n      </a>";    }        $output .=  "\n  </p>\n \n</div>\n";    #line 179 "template\en\default\reports\report.html.tmpl"    $output .=  $context->process('global/footer.html.tmpl');    $output .=  "\n";        } };        if ($@) {            $_tt_error = $context->catch($@, \$output);            die $_tt_error unless $_tt_error->type eq 'return';        }            return $output;    },    DEFBLOCKS => {    },});