report-table.csv.tmpl

bugzilla的安装文件

#------------------------------------------------------------------------
# Compiled template generated by the Template Toolkit version 2.13
#------------------------------------------------------------------------

Template::Document->new({
    METADATA => {
        'modtime' => '1062876196',
        'name' => 'reports/report-table.csv.tmpl',
    },
    BLOCK => sub {
        my $context = shift || die "template sub called without context\n";
        my $stash   = $context->stash;
        my $output  = '';
        my $error;
        
        eval { BLOCK: {
    $output .=  "\n";
    $output .=  "\n";
    #line 23 "template\en\default\reports\report-table.csv.tmpl"
    $output .=  $context->process('global/variables.none.tmpl');
    $output .=  "\n";
    #line 26 "template\en\default\reports\report-table.csv.tmpl"
    
    # CAPTURE
    $stash->set('num_bugs', do {
        my $output = '';
    $output .=  "Number of ";
    #line 26 "template\en\default\reports\report-table.csv.tmpl"
    $output .=  $stash->get(['terms', 0, 'bugs', 0]);
        $output;
    });
    
    #line 26 "template\en\default\reports\report-table.csv.tmpl"
    $stash->set('tbl_field_disp', $stash->get(['field_descs', 0, $stash->get('tbl_field'), 0]) || $stash->get('tbl_field'));
    
    #line 26 "template\en\default\reports\report-table.csv.tmpl"
    $stash->set('col_field_disp', $stash->get(['field_descs', 0, $stash->get('col_field'), 0]) || $stash->get('col_field'));
    
    #line 26 "template\en\default\reports\report-table.csv.tmpl"
    $stash->set('row_field_disp', $stash->get(['field_descs', 0, $stash->get('row_field'), 0]) || $stash->get('row_field'));
    
    $output .=  "\n";
    #line 32 "template\en\default\reports\report-table.csv.tmpl"
    
    # CAPTURE
    $stash->set('title', do {
        my $output = '';
    #line 32 "template\en\default\reports\report-table.csv.tmpl"
    if ($stash->get('tbl_field')) {
    #line 29 "template\en\default\reports\report-table.csv.tmpl"
    
    # FILTER
    $output .=  do {
        my $output = '';
        my $filter = $context->filter('csv')
                  || $context->throw($context->error);
    
    $output .=  $stash->get('tbl_field_disp');
        
        &$filter($output);
    };
    
    $output .=  ": ";
    #line 29 "template\en\default\reports\report-table.csv.tmpl"
    
    # FILTER
    $output .=  do {
        my $output = '';
        my $filter = $context->filter('csv')
                  || $context->throw($context->error);
    
    $output .=  $stash->get('tbl');
        
        &$filter($output);
    };
    
    $output .=  "\n";
    }
    
    #line 32 "template\en\default\reports\report-table.csv.tmpl"
    if ($stash->get('row_field')) {
    #line 32 "template\en\default\reports\report-table.csv.tmpl"
    
    # FILTER
    $output .=  do {
        my $output = '';
        my $filter = $context->filter('csv')
                  || $context->throw($context->error);
    
    $output .=  $stash->get('row_field_disp');
        
        &$filter($output);
    };
    
    }
    
    #line 32 "template\en\default\reports\report-table.csv.tmpl"
    if ($stash->get('col_field') && $stash->get('row_field')) {
    $output .=  ' / ';
    }
    
    #line 32 "template\en\default\reports\report-table.csv.tmpl"
    
    # FILTER
    $output .=  do {
        my $output = '';
        my $filter = $context->filter('csv')
                  || $context->throw($context->error);
    
    $output .=  $stash->get('col_field_disp');
        
        &$filter($output);
    };
    
        $output;
    });
    
    $output .=  "\n";
    #line 35 "template\en\default\reports\report-table.csv.tmpl"
    $output .=  $stash->get('title');
    $output .=  ",";
    #line 45 "template\en\default\reports\report-table.csv.tmpl"
    if ($stash->get('col_field')) {
    #line 41 "template\en\default\reports\report-table.csv.tmpl"
    
    # FOREACH 
    do {
        my ($value, $error, $oldloop);
        my $list = $stash->get('col_names');
        
        unless (UNIVERSAL::isa($list, 'Template::Iterator')) {
            $list = Template::Config->iterator($list)
                || die $Template::Config::ERROR, "\n"; 
        }
    
        ($value, $error) = $list->get_first();
        eval { $oldloop = $stash->get('loop') };
        $stash->set('loop', $list);
        eval {
    LOOP:   while (! $error) {
                $stash->{'col'} = $value;
    #line 39 "template\en\default\reports\report-table.csv.tmpl"
    
    # FILTER
    $output .=  do {
        my $output = '';
        my $filter = $context->filter('csv')
                  || $context->throw($context->error);
    
    $output .=  $stash->get('col');
        
        &$filter($output);
    };
    
    $output .=  ",";;
                ($value, $error) = $list->get_next();
            }
        };
        $stash->set('loop', $oldloop);
        die $@ if $@;
        $error = 0 if $error && $error eq Template::Constants::STATUS_DONE;
        die $error if $error;
    };
    
    }
    else {
    #line 43 "template\en\default\reports\report-table.csv.tmpl"
    $output .=  $stash->get('num_bugs');
    $output .=  ",";
    }
    
    $output .=  "\n";
    #line 57 "template\en\default\reports\report-table.csv.tmpl"
    
    # FOREACH 
    do {
        my ($value, $error, $oldloop);
        my $list = $stash->get('row_names');
        
        unless (UNIVERSAL::isa($list, 'Template::Iterator')) {
            $list = Template::Config->iterator($list)
                || die $Template::Config::ERROR, "\n"; 
        }
    
        ($value, $error) = $list->get_first();
        eval { $oldloop = $stash->get('loop') };
        $stash->set('loop', $list);
        eval {
    LOOP:   while (! $error) {
                $stash->{'row'} = $value;
    #line 48 "template\en\default\reports\report-table.csv.tmpl"
    
    # FILTER
    $output .=  do {
        my $output = '';
        my $filter = $context->filter('csv')
                  || $context->throw($context->error);
    
    $output .=  $stash->get('row');
        
        &$filter($output);
    };
    
    $output .=  ",";
    #line 54 "template\en\default\reports\report-table.csv.tmpl"
    
    # FOREACH 
    do {
        my ($value, $error, $oldloop);
        my $list = $stash->get('col_names');
        
        unless (UNIVERSAL::isa($list, 'Template::Iterator')) {
            $list = Template::Config->iterator($list)
                || die $Template::Config::ERROR, "\n"; 
        }
    
        ($value, $error) = $list->get_first();
        eval { $oldloop = $stash->get('loop') };
        $stash->set('loop', $list);
        eval {
    LOOP:   while (! $error) {
                $stash->{'col'} = $value;
    #line 54 "template\en\default\reports\report-table.csv.tmpl"
    if ($stash->get(['data', 0, $stash->get('tbl'), 0]) && $stash->get(['data', 0, $stash->get('tbl'), 0, $stash->get('col'), 0]) && $stash->get(['data', 0, $stash->get('tbl'), 0, $stash->get('col'), 0, $stash->get('row'), 0])) {
    #line 50 "template\en\default\reports\report-table.csv.tmpl"
    $output .=  $stash->get(['data', 0, $stash->get('tbl'), 0, $stash->get('col'), 0, $stash->get('row'), 0]);
    $output .=  ",";
    }
    else {
    $output .=  "0,";
    }
    ;
                ($value, $error) = $list->get_next();
            }
        };
        $stash->set('loop', $oldloop);
        die $@ if $@;
        $error = 0 if $error && $error eq Template::Constants::STATUS_DONE;
        die $error if $error;
    };
    
    $output .=  "\n";;
                ($value, $error) = $list->get_next();
            }
        };
        $stash->set('loop', $oldloop);
        die $@ if $@;
        $error = 0 if $error && $error eq Template::Constants::STATUS_DONE;
        die $error if $error;
    };
    
    $output .=  "\n";
        } };
        if ($@) {
            $error = $context->catch($@, \$output);
            die $error unless $error->type eq 'return';
        }
    
        return $output;
    },
    DEFBLOCKS => {

    },
});