324 |
$MENU_SYMBOL = '•'; |
$MENU_SYMBOL = '•'; |
325 |
#$MENU_SYMBOL = '*'; |
#$MENU_SYMBOL = '*'; |
326 |
|
|
327 |
|
$SIMPLE_MENU = 0; |
328 |
|
|
329 |
$OPEN_QUOTE_SYMBOL = "\`"; |
$OPEN_QUOTE_SYMBOL = "\`"; |
330 |
$CLOSE_QUOTE_SYMBOL = "'"; |
$CLOSE_QUOTE_SYMBOL = "'"; |
331 |
|
|
559 |
} |
} |
560 |
# FIXME default might be utf8 ? |
# FIXME default might be utf8 ? |
561 |
$DOCUMENT_ENCODING = 'us-ascii' if (!defined($DOCUMENT_ENCODING)); |
$DOCUMENT_ENCODING = 'us-ascii' if (!defined($DOCUMENT_ENCODING)); |
562 |
|
if ($SIMPLE_MENU and !defined($complex_format_map->{'menu'})) |
563 |
|
{ |
564 |
|
$complex_format_map->{'menu'} = { 'begin' => q{''} , 'end' => q{''}, |
565 |
|
'pre_style' => "$MENU_PRE_STYLE", 'class' => 'menu-preformatted' }; |
566 |
|
} |
567 |
|
|
568 |
return $to_encoding; |
return $to_encoding; |
569 |
}; |
}; |
3313 |
$entry = "$MENU_SYMBOL$name$node"; |
$entry = "$MENU_SYMBOL$name$node"; |
3314 |
} |
} |
3315 |
$entry = &$anchor ('', $href, $entry) if (defined($href)); |
$entry = &$anchor ('', $href, $entry) if (defined($href)); |
3316 |
|
return $entry if ($SIMPLE_MENU); |
3317 |
if ($state->{'preformatted'}) |
if ($state->{'preformatted'}) |
3318 |
{ |
{ |
3319 |
return '<tr><td>' . main::do_preformatted($entry . $ending, $state); |
return '<tr><td>' . main::do_preformatted($entry . $ending, $state); |
3333 |
{ |
{ |
3334 |
my $text = shift; |
my $text = shift; |
3335 |
my $state = shift; |
my $state = shift; |
3336 |
|
return $text if ($SIMPLE_MENU); |
3337 |
if ($state->{'preformatted'}) |
if ($state->{'preformatted'}) |
3338 |
{ |
{ |
3339 |
return main::do_preformatted($text, $state) . '</td></tr>'; |
return main::do_preformatted($text, $state) . '</td></tr>'; |
3356 |
sub t2h_default_menu_comment($) |
sub t2h_default_menu_comment($) |
3357 |
{ |
{ |
3358 |
my $text = shift; |
my $text = shift; |
3359 |
|
return $text if ($SIMPLE_MENU); |
3360 |
if ($text =~ /\S/) |
if ($text =~ /\S/) |
3361 |
{ |
{ |
3362 |
return "<tr><th colspan=\"3\" align=\"left\" valign=\"top\">$text</th></tr>"; |
return "<tr><th colspan=\"3\" align=\"left\" valign=\"top\">$text</th></tr>"; |