$r.='<td style="padding: 5px;">';
$r.=(($My::Web::W->{"section"} || "") eq $section_name ? "<b>$section_name</b>"
: My::Web::a_href($section_path,$section_name,
$r.='<td style="padding: 5px;">';
$r.=(($My::Web::W->{"section"} || "") eq $section_name ? "<b>$section_name</b>"
: My::Web::a_href($section_path,$section_name,