<%perl> if ($useTable) { # There probably ought to be something else here... $m->print(qq{
$disp:$def_date
\n}); } else { $m->print(qq{
$disp:$def_date
\n}); } <%args> $useTable => 0 $def_date $disp => ''