report.html.tmpl

buzilla软件

    
    $output .=  $stash->get('tbl');
        
        &$_tt_filter($output);
    };
    
    $output .=  "&";
    }
    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 .=  "&";
    }
    ;
                ($_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 .=  "&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 => {

    },
});