--- Html.pm 2005-07-01 14:48:23.000000000 +0100
+++ Html.pm.new 2005-07-01 23:07:35.000000000 +0100
@@ -1549,15 +1549,20 @@
my( $page, $section, $ident );
# check for link patterns
- if( $par =~ m{^([^/]+?)/(?!")(.*?)$} ){ # name/ident
+ if( $par =~ m{^([^/]+)?/(?!")(.*?)$} ){ # name/ident
# we've got a name/ident (no quotes)
( $page, $ident ) = ( $1, $2 );
### print STDERR "--> L<$par> to page $page, ident $ident\n";
- } elsif( $par =~ m{^(.*?)/"?(.*?)"?$} ){ # [name]/"section"
- # even though this should be a "section", we go for ident first
- ( $page, $ident ) = ( $1, $2 );
+ } elsif( $par =~ m{^(.*)?/"(.*?)"$} ){ # [name]/"section"
+ # we've got a name/"section"
+ ( $page, $section ) = ( $1, $2 );
### print STDERR "--> L<$par> to page $page, section $section\n";
+
+ } elsif ( $par =~ m{^"(.*?)"$} ){ # "section"
+ # we've got a section without a pagename
+ ( $page, $section ) = ('',$1);
+ ### print STDERR "--> L<$par> to void page, section $section\n";
} elsif( $par =~ /\s/ ){ # this must be a section with missing quotes
( $page, $section ) = ( '', $par );