[comment] ui_template: Yes ui_template_name: noleft [/comment]
[control reset=1] [control-set] [component]search_box_small[/component] [/control-set] [control-set] [component]product_tree[/component] [/control-set] [control-set] [component][/component] [/control-set] [control-set] [component][/component] [/control-set] [control-set] [component]promo[/component] [matches]3[/matches] [cols]3[/cols] [banner][L]Specials[/L][/banner] [/control-set] [control reset=1] @_LEFTONLY_TOP_@ [calc] my ($survey, $question) = split /:+/, $CGI->{id} || $CGI->{item_id} || $Session->{arg}; unless ($survey) { $CGI->{item_id} = join "::", $CGI->{survey}, $CGI->{question}; } else { $CGI->{survey} = $survey; $CGI->{question} = $question; $CGI->{item_id} = $survey . "::$question"; } return; [/calc]

> [warnings]

[loop extended="[cgi item_id]" table=survey]

# [either][loop-param graph_title][or][loop-param label][/either]

[tmp legend][either][loop-param graph_label][or][loop-param options][/either][/tmp]

[loop prefix=leg acclist=1 list="[scratch legend]"] [leg-calc] my $code = q{[leg-code]}; my $lab = q{[leg-param label]}; return '' unless length($code); return '' if $code eq $lab; return qq{
$code | ==> | $lab
}; [/leg-calc] [/loop]

[/loop] @_LEFTONLY_BOTTOM_@