From: Michal Vaner <vorner@ucw.cz>
Date: Tue, 19 Aug 2008 09:03:53 +0000 (+0200)
Subject: Link back to main page
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=c0edd84fd49db6ac0c803dd16a324aeda7ab313d;p=pciids.git

Link back to main page

When browsing vendor lists (toplevel in each tree), have a link to the
main page.
---

diff --git a/PciIds/Html/List.pm b/PciIds/Html/List.pm
index aaa7170..4e1cdc6 100644
--- a/PciIds/Html/List.pm
+++ b/PciIds/Html/List.pm
@@ -28,7 +28,11 @@ sub list( $$$$ ) {
 	genMenu( $address, $args, $auth );
 	print htmlDiv( 'name', '<p>'.encode( $name ) ) if( defined( $name ) );
 	print htmlDiv( 'description', '<p>'.encode( $description ) ) if( defined( $description ) );
-	print '<p><a class="navigation" href="/read/'.$address->parent()->get().'/">'.encode( $address->parent()->pretty() )."</a>" if( defined( $address->parent() ) );
+	if( defined( $address->parent() ) ) {
+		print '<p><a class="navigation" href="/read/'.$address->parent()->get().'/">'.encode( $address->parent()->pretty() )."</a>";
+	} else {
+		print '<p><a class="navigation" href="/index.html">Main page</a>';
+	}
 	my $diss = 0;
 	my $comment;
 	foreach $comment ( @{$tables->history( $address->get() )} ) {