Merge branch 'master' of /home/vorner/pciids

[pciids.git] / PciIds / Html / Help.pm

diff --git a/PciIds/Html/Help.pm b/PciIds/Html/Help.pm
index 586ed66914b373fdd0560fb8eb3b99d4ee7e8a6b..add3f01c79b573c424f4827b9c3aba6c5f62c7cc 100644 (file)
--- a/PciIds/Html/Help.pm
+++ b/PciIds/Html/Help.pm
@@ -41,10 +41,11 @@ sub getHelp( $$ ) {
        print "<div class='bluesquare'><h1>$head</h1><p class='home'>The PCI ID Repository</div>\n";
        print "<div class='clear'></div></div>\n";
        genPath( $req, $addr, 1 );
-       my $url = setAddrPrefix( $req->uri(), 'read' ).buildExcept( 'help', $args ).'?help=';
+       my $url = setAddrPrefix( $req->uri(), 'mods' ).buildExcept( 'help', $args ).'?help=';
        delete $args->{'help'};
        my %repls = ( 'HELP_URL' => $url, 'AC_URL' => setAddrPrefix( $req->uri(), 'mods' ).buildExcept( 'action', $args ).'?action=' );
        $repls{'AC_URL'} =~ s#mods/\?#mods/PC/?#;
+       $repls{'HELP_URL'} =~ s#(mods|read)/\?#$1/PC/?#;
        while( defined( my $line = <HELP> ) ) {
                $line =~ s/\$(\w+_URL)\$/$repls{$1}/g;
                print $line;