Adding named anchors.

This commit is contained in:
mcafee%netscape.com 2000-07-21 06:05:37 +00:00
parent 583d45e258
commit 9253561597

View File

@ -172,13 +172,13 @@ sub print_page_head {
# Print rules, sheriff, and status. Only on the first pageful.
if ($nowdate eq $maxdate) {
do "$::tree/rules.pl";
print "$rules_message<br>"; # from $::tree/rules.pl
print "<a NAME=\"rules\"></a>$rules_message<br>"; # from $::tree/rules.pl
do "$::tree/sheriff.pl";
print "$current_sheriff<br>"; # from $::tree/sheriff.pl
print "<a NAME=\"sheriff\"></a>$current_sheriff<br>"; # from $::tree/sheriff.pl
do "$::tree/status.pl";
print "$status_message<br>"; # from $::tree/status.pl
print "<a NAME=\"status\"></a>$status_message<br>"; # from $::tree/status.pl
}
# Quote and Lengend
@ -227,7 +227,7 @@ sub print_page_head {
};
}
if (is_tree_state_available()) {
print "<a NAME=\"status\"></a>";
print "<a NAME=\"open\"></a>";
print "The tree is <font size=+2>";
print (is_tree_open() ? 'open' : 'closed');
print "</font>\n";