From: Michal 'vorner' Vaner <vorner@ucw.cz>
Date: Fri, 23 Apr 2010 20:43:35 +0000 (+0200)
Subject: Fix odd links
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=d2935a5e76ef0e5a2f3a15e80b2649a2913581e5;p=pciids.git

Fix odd links
---

diff --git a/PciIds/Html/Help.pm b/PciIds/Html/Help.pm
index 9096664..586ed66 100644
--- a/PciIds/Html/Help.pm
+++ b/PciIds/Html/Help.pm
@@ -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;