</&script>
</head><body>
+% if (!printable($m)) {
<a href="<% $m->current_comp()->name() |u %>">YARRG</a> -
Yet Another Revenue Research Gatherer
|
|
<a href="devel">development</a>
<p>
+% }
<%perl>
foreach my $var (@vars) {
my $prselector_core= sub {
my ($var)= @_;
+ return if printable($m);
my $name= $var->{Name};
my $lname= lc $var->{Name};
my $delim= $var->{Before};
$debug => 0
</%args>
+% if (!printable($m)) {
<hr>
+% }
<& "query_$styles{Query}", %baseqf, %queryqf, %styles,
quri => $quri, dbh => $dbh, queryqf => \%queryqf, allargs => \%ARGS,