From: Michal Vaner <vorner@ucw.cz>
Date: Thu, 21 Aug 2008 22:02:22 +0000 (+0200)
Subject: Empty URLs for headers did not work for login
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=d52a0bba4bbd32c6c597221d118bed893393bc9a;p=pciids.git

Empty URLs for headers did not work for login

Login can be generated without redirection from different actions, the
login form was pushed to them.
---

diff --git a/PciIds/Html/Users.pm b/PciIds/Html/Users.pm
index c5ed90e..eb0b6f1 100644
--- a/PciIds/Html/Users.pm
+++ b/PciIds/Html/Users.pm
@@ -182,7 +182,7 @@ sub genLoginForm( $$$$ ) {
 	my $addr = PciIds::Address::new( $req->uri() );
 	genCustomMenu( $addr, $args, [ [ 'Register', 'register' ], [ 'Reset password', 'respass' ] ] );
 	print '<div class="error"><p>'.$error.'</div>' if( defined $error );
-	print '<form name="login" id="login" method="POST" action=""><table>';
+	print '<form name="login" id="login" method="POST" action="'.setAddrPrefix( $req->uri(), 'mods' ).buildExcept( 'action', $args ).'?action=login"><table>';
 	genForm( [ [ 'Login name or email:', 'text', 'login', 'maxlength="255"' ],
 		[ 'Password:', 'password', 'password' ],
 		[ '', 'submit', 'login', 'value="Login"' ] ], $values );