[tmp litmus][if type="[cgi type]" term="[cgi term]"]1[/if][/tmp] [calc] my $yes = $CGI->{yes} || errmsg('Yes'); my $no = $CGI->{no} || errmsg('No'); if($CGI->{yes_style}) { $CGI->{yes_style} =~ $Tag->filter('entities', $CGI->{yes_style}); $yes = qq{$yes}; } if($CGI->{no_style}) { $CGI->{no_style} =~ $Tag->filter('entities', $CGI->{no_style}); $yes = qq{$no}; } my $status = $Scratch->{litmus}; $status = ! $status if $CGI->{reverse}; return $status ? $yes : $no; [/calc]