]> mj.ucw.cz Git - pciids.git/commitdiff
Fix odd links
authorMichal 'vorner' Vaner <vorner@ucw.cz>
Fri, 23 Apr 2010 20:43:35 +0000 (22:43 +0200)
committerMichal 'vorner' Vaner <vorner@ucw.cz>
Fri, 23 Apr 2010 20:59:49 +0000 (22:59 +0200)
PciIds/Html/Help.pm

index 90966644a179b63fd667a458907532b6a22e0c10..586ed66914b373fdd0560fb8eb3b99d4ee7e8a6b 100644 (file)
@@ -44,6 +44,7 @@ sub getHelp( $$ ) {
        my $url = setAddrPrefix( $req->uri(), 'read' ).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/?#;
        while( defined( my $line = <HELP> ) ) {
                $line =~ s/\$(\w+_URL)\$/$repls{$1}/g;
                print $line;