From: Michal Vaner <vorner@ucw.cz>
Date: Sat, 4 Oct 2008 22:10:34 +0000 (+0200)
Subject: Fix non-working links in jump
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=051e55b65141e1f8cbcbf7578b36de1112c1760b;p=pciids.git

Fix non-working links in jump
---

diff --git a/PciIds/Html/Jump.pm b/PciIds/Html/Jump.pm
index 4ebcc8f..35eb093 100644
--- a/PciIds/Html/Jump.pm
+++ b/PciIds/Html/Jump.pm
@@ -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;