#------------------------------------------------------------------------ # Compiled template generated by the Template Toolkit version 2.09 #------------------------------------------------------------------------ Template::Document->new({ METADATA => { 'modtime' => '1019851388', 'name' => 'search/boolean-charts.html.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"; $stash->set('types', [ { 'name' => 'noop', 'description' => '---' }, { 'name' => 'equals', 'description' => 'is equal to' }, { 'name' => 'notequals', 'description' => 'is not equal to' }, { 'name' => 'substring', 'description' => 'contains the string' }, { 'name' => 'casesubstring', 'description' => 'contains the string (exact case)' }, { 'name' => 'notsubstring', 'description' => 'does not contain the string' }, { 'name' => 'allwordssubstr', 'description' => 'contains all of the strings' }, { 'name' => 'anywordssubstr', 'description' => 'contains any of the strings' }, { 'name' => 'regexp', 'description' => 'contains regexp' }, { 'name' => 'notregexp', 'description' => 'does not contain regexp' }, { 'name' => 'lessthan', 'description' => 'is less than' }, { 'name' => 'greaterthan', 'description' => 'is greater than' }, { 'name' => 'anywords', 'description' => 'contains any of the words' }, { 'name' => 'allwords', 'description' => 'contains all of the words' }, { 'name' => 'nowords', 'description' => 'contains none of the words' }, { 'name' => 'changedbefore', 'description' => 'changed before' }, { 'name' => 'changedafter', 'description' => 'changed after' }, { 'name' => 'changedfrom', 'description' => 'changed from' }, { 'name' => 'changedto', 'description' => 'changed to' }, { 'name' => 'changedby', 'description' => 'changed by' } ]); $output .= "\n\n

\n \n \n Advanced Querying Using Boolean Charts:\n \n

\n\n"; $output .= "\n"; $stash->set('jsmagic', ('' . "onclick=\"document.forms[0].action='query.cgi#chart'; document.forms[0].method='POST'; return 1;\"")); $output .= "\n"; # FOREACH do { my ($value, $error, $oldloop); my $list = $stash->get(['default', 0, 'charts', 0]); 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->{'chart'} = $value; $stash->set('chartnum', $stash->get(['loop', 0, 'count', 0]) - 1); $output .= "\n "; # FOREACH do { my ($value, $error, $oldloop); my $list = $stash->get('chart'); 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; $stash->set('rownum', $stash->get(['loop', 0, 'count', 0]) - 1); $output .= "\n "; # FOREACH do { my ($value, $error, $oldloop); my $list = $stash->get('row'); 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; $stash->set('colnum', $stash->get(['loop', 0, 'count', 0]) - 1); $output .= "\n \n "; if (! $stash->get('col') eq $stash->get(['row', 0, 'last', 0])) { $output .= "\n "; } else { $output .= "\n "; } $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 \n "; if (! $stash->get('row') eq $stash->get(['chart', 0, 'last', 0])) { $output .= "\n \n \n "; } else { $output .= "\n \n \n "; } $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
\n \n\n \n\n get('chartnum') . "-" . $stash->get('rownum') . "-" . $stash->get('colnum')); $output .= "\" \n value=\""; # FILTER $output .= do { my $output = ''; my $filter = $context->filter('html') || $context->throw($context->error); $output .= $stash->get(['col', 0, 'value', 0]); &$filter($output); }; $output .= "\"> \n \n Or \n "; $stash->set('newor', $stash->get('colnum') + 1); $output .= "\n get('chartnum') . "-" . $stash->get('rownum') . "-" . $stash->get('newor')); $output .= "\" "; $output .= $stash->get($stash->get('jsmagic')); $output .= ">\n
And
"; $stash->set('newand', $stash->get('rownum') + 1); $stash->set('newchart', $stash->get('chartnum') + 1); $output .= "\n get('chartnum') . "-" . $stash->get('newand') . "-0"); $output .= "\""; $output .= $stash->get($stash->get('jsmagic')); $output .= "> \n      \n get('newchart'); $output .= "-0-0\" "; $output .= $stash->get($stash->get('jsmagic')); $output .= ">\n      \n
\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 => { }, });