[$ elsif defined $fdat{'newlogin'} $] [# validate data from register form #]
- [- $new_passwd = $db->new_account($fdat{'newlogin'},
+[-
+ my $lang = 'DE'; # TODO: use DEFAULT_LANGUAGE from config
+ # TODO BUG: default-language looks to be allways EN here...
+ $lang = $udat{-lang} if exists $udat{-lang};
+
+ $new_passwd = $db->new_account($fdat{'newlogin'},
$fdat{'realname'},
$fdat{'email'},
- $udat{-lang}); -]
+ $lang); -]
[$ if $new_passwd $]
[+ $db->loc('LOGIN_REG_OK_HEAD',$lang) +]<p>
[$ else $] [# ask for login-data or register #]
[+ $db->loc('LOGIN_WELCOME') +]<p>
- <form method="get" action="player.epl">
+ <form method="post" action="player.epl">
[+ $db->loc('LOGIN_USERNAME') +]: <input type="text" name="login"
size="20" maxlength="20">
[+ $db->loc('LOGIN_PASSWORD') +]: <input type="password" name="passwd"