chart.csv.tmpl

buzilla软件

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

Template::Document->new({
    METADATA => {
        'modtime' => '1121825674',
        'name' => 'reports/chart.csv.tmpl',
    },
    BLOCK => sub {
        my $context = shift || die "template sub called without context\n";
        my $stash   = $context->stash;
        my $output  = '';
        my $_tt_error;
        
        eval { BLOCK: {
    $output .=  "\n";
    $output .=  "\n";
    #line 22 "template\en\default\reports\chart.csv.tmpl"
    $stash->set('colsepchar', $stash->get(['user', 0, 'settings', 0, 'csv_colsepchar', 0, 'value', 0]));
    
    $output .=  "\n";
    #line 24 "template\en\default\reports\chart.csv.tmpl"
    $stash->set('data', $stash->get(['chart', 0, 'data', 0]));
    
    $output .=  "\nDate\\Series";
    #line 28 "template\en\default\reports\chart.csv.tmpl"
    
    # FOREACH 
    do {
        my ($_tt_value, $_tt_error, $_tt_oldloop);
        my $_tt_list = $stash->get(['chart', 0, 'labels', 0]);
        
        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->{'label'} = $_tt_value;
    #line 27 "template\en\default\reports\chart.csv.tmpl"
    $output .=  $stash->get('colsepchar');
    #line 27 "template\en\default\reports\chart.csv.tmpl"
    
    # FILTER
    $output .=  do {
        my $output = '';
        my $_tt_filter = $context->filter('csv')
                  || $context->throw($context->error);
    
    $output .=  $stash->get('label');
        
        &$_tt_filter($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";
    #line 33 "template\en\default\reports\chart.csv.tmpl"
    $stash->set('i', 0);
    
    #line 45 "template\en\default\reports\chart.csv.tmpl"
    
    # WHILE
    do {
        my $_tt_failsafe = 1000000;
    LOOP:
        while (--$_tt_failsafe && ($stash->get('i') < $stash->get(['data', 0, 0, 0, 'size', 0]))) {
    #line 35 "template\en\default\reports\chart.csv.tmpl"
    $stash->set('j', 0);
    
    #line 42 "template\en\default\reports\chart.csv.tmpl"
    
    # WHILE
    do {
        my $_tt_failsafe = 1000000;
    LOOP:
        while (--$_tt_failsafe && ($stash->get('j') < $stash->get(['data', 0, 'size', 0]))) {
    #line 39 "template\en\default\reports\chart.csv.tmpl"
    if ($stash->get('j') > 0) {
    #line 38 "template\en\default\reports\chart.csv.tmpl"
    $output .=  $stash->get('colsepchar');
    }
    
    #line 40 "template\en\default\reports\chart.csv.tmpl"
    $output .=  $stash->get(['data', 0, $stash->get('j'), 0, $stash->get('i'), 0]);
    #line 41 "template\en\default\reports\chart.csv.tmpl"
    $stash->set('j', $stash->get('j') + 1);
    
        }
        die "WHILE loop terminated (> 1000000 iterations)\n"
            unless $_tt_failsafe;
    };
    
    #line 43 "template\en\default\reports\chart.csv.tmpl"
    $stash->set('i', $stash->get('i') + 1);
    
    $output .=  "\n  ";
        }
        die "WHILE loop terminated (> 1000000 iterations)\n"
            unless $_tt_failsafe;
    };
    
    $output .=  "  \n";
        } };
        if ($@) {
            $_tt_error = $context->catch($@, \$output);
            die $_tt_error unless $_tt_error->type eq 'return';
        }
    
        return $output;
    },
    DEFBLOCKS => {

    },
});