From: Michal Vaner <vorner@ucw.cz>
Date: Mon, 13 Oct 2008 18:19:51 +0000 (+0200)
Subject: Always jump to list
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=3a12e4f52430b52398eb2f91b9fefedbaa0f408f;p=pciids.git

Always jump to list

Jumping to notifications or whatever the user was doing before was
somehow counterintuitive.
---

diff --git a/PciIds/Html/Jump.pm b/PciIds/Html/Jump.pm
index 35eb093..973a221 100644
--- a/PciIds/Html/Jump.pm
+++ b/PciIds/Html/Jump.pm
@@ -40,7 +40,7 @@ sub jumpWindow( $$ ) {
 sub redirect( $$$$ ) {
 	my( $req, $args, $addr, $hasSSL ) = @_;
 	my $prefix = ( !defined $args->{'action'} || $args->{'action'} eq '' || $args->{'action'} eq 'list' ) ? 'read' : 'mods';
-	my $url = protoName( $hasSSL )."://".$req->hostname()."/$prefix/$addr".buildArgs( $args );
+	my $url = protoName( $hasSSL )."://".$req->hostname()."/$prefix/$addr";
 	return HTTPRedirect( $req, $url );
 }
 
@@ -90,11 +90,10 @@ sub jump( $$$$ ) {
 			print "<h2>Found items</h2>\n";
 			genTableHead( 'found', [ 'ID', 'Name', 'Parent' ], [] );
 			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;
 				my $address = PciIds::Address::new( $addr );
-				return "<a href='$prefix".$address->get()."$suffix'>".encode( $address->fullPretty() )."</a>";
+				return "<a href='$prefix".$address->get()."'>".encode( $address->fullPretty() )."</a>";
 			} ], sub { 1; }, sub { ' class="item"'; } );
 			genTableTail();
 			genHtmlFooter( 1, $req, $args );