--- 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 );