\n";
- print "
Used address
\n";
- genLocMenu( $req, $args, [ [ 'Log in', 'login' ], [ 'Reset password', 'respass' ], [ 'Register', 'register' ], [ 'Help', 'help', 'account' ] ] );
- print "
\n";
+ genCustomHead( $req, $args, PciIds::Address::new( $req->uri() ), 'Used address', [ [ 'Help', 'help', 'account' ] ], [ [ 'Log in', 'login' ], [ 'Reset password', 'respass' ], [ 'Register', 'register' ] ] );
print '
An account for this address is already registered.
@@ -170,10 +159,7 @@ sub confirmSubmit( $$$ ) {
return OK;
}
genHtmlHead( $req, 'Registered', undef );
- print "
\n";
- print "
Registered
\n";
- genLocMenu( $req, $args, [ [ 'Log in', 'login' ], [ 'Help', 'help', 'account' ] ] );
- print "
\n";
+ genCustomHead( $req, $args, PciIds::Address::new( $req->uri() ), 'Registered', [ [ 'Help', 'help', 'account' ] ], [ [ 'Log in', 'login' ] ] );
print '
You have registered successfully.';
genHtmlTail();
@@ -183,11 +169,8 @@ sub confirmSubmit( $$$ ) {
sub genLoginForm( $$$$ ) {
my( $req, $args, $error, $values ) = @_;
$req->headers_out->add( 'Set-Cookie' => new CGI::Cookie( -name => 'cookie-test', -value => 1 ) );
- genHtmlHead( $req, 'Login', undef );
- print "
\n";
- print '
Login
';
- genLocMenu( $req, $args, [ [ 'Register', 'register' ], [ 'Reset password', 'respass' ], [ 'Help', 'help', 'account' ] ] );
- print "
\n";
+ genHtmlHead( $req, 'Log in', undef );
+ genCustomHead( $req, $args, PciIds::Address::new( $req->uri() ), 'Log in', [ [ 'Help', 'help', 'account' ] ], [ [ 'Register', 'register' ], [ 'Reset password', 'respass' ] ] );
print '
' if( defined $error );
print '