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#read/\?#read/PC/?#;
+ $repls{'HELP_URL'} =~ s#(mods|read)/\?#$1/PC/?#;
while( defined( my $line = <HELP> ) ) {
$line =~ s/\$(\w+_URL)\$/$repls{$1}/g;
print $line;