]> mj.ucw.cz Git - pciids.git/commitdiff
Fix non-working links in jump
authorMichal Vaner <vorner@ucw.cz>
Sat, 4 Oct 2008 22:10:34 +0000 (00:10 +0200)
committerMichal Vaner <vorner@ucw.cz>
Sat, 4 Oct 2008 22:10:34 +0000 (00:10 +0200)
PciIds/Html/Jump.pm

index 4ebcc8f4c3be5b733ccf249bf156c20dc1cbae37..35eb093adb3582c3e9a9665277b3a7af2b69afea 100644 (file)
@@ -89,7 +89,7 @@ sub jump( $$$$ ) {
                        genPath( $req, $address, 1 );
                        print "<h2>Found items</h2>\n";
                        genTableHead( 'found', [ 'ID', 'Name', 'Parent' ], [] );
-                       my $prefix = $req->hostname().'/'.( ( !defined $args->{'action'} || $args->{'action'} eq '' || $args->{'action'} eq 'list' ) ? 'read/' : 'mods/' );
+                       my $prefix = '/'.( ( !defined $args->{'action'} || $args->{'action'} eq '' || $args->{'action'} eq 'list' ) ? 'read/' : 'mods/' );
                        my $suffix = buildArgs( $args );
                        htmlFormatTable( $result, 3, [], [ sub {
                                my $addr = shift;