[-
use FROGS::DataBase;
$db = DataBase->new();
-]
[$ if exists $fdat{'lang'} $]
[-
$udat{-lang} = $fdat{'lang'};
$db->set_language($udat{-lang});
#set language in Database in PLAYER.LANGUAGE
my $player = $udat{-id};
$db->update_hash('PLAYER',"PLAYER=$player",{'LANGUAGE' => $fdat{'lang'}});
$db->commit();
# redirect to original page
$http_headers_out{'Location'} = $udat{-current};
-]
[$ else $]
[-
$db->set_language($udat{-lang});
Execute("menu.epl");
-]
[$ endif $]