X-Git-Url: http://aymargeddon.de/gitweb/?p=aymargeddon%2Fcurrent.git;a=blobdiff_plain;f=html%2Fplayer.epl;h=3d2f217dd6887039801ebeed480a53026cec1f69;hp=a6708311cf5a722041204f6bffb3b94f9186f9b8;hb=d327e42a55ad2d206902528e923164946c653c6a;hpb=4f1ebd58b6d8c45d5c5035390db1c293a9ada417
diff --git a/html/player.epl b/html/player.epl
index a670831..3d2f217 100644
--- a/html/player.epl
+++ b/html/player.epl
@@ -1,4 +1,3 @@
-[- use FROGS::Config qw($conf); -]
Aymargeddon
@@ -7,7 +6,7 @@
$udat{-current} = 'player.epl';
use Aymargeddon;
- use Data::Dumper;
+ # use Data::Dumper;
$db = DataBase->new();
$id = 0;
if($udat{-id}){
@@ -27,9 +26,9 @@
($udat{-lang}) = $db->read_player($id,'LANGUAGE');
}
- $escmode = 0;
+ $escmode = 0;
- # TODO: klappt nich :-(
+ # TODO: klappt nich weil $::conf nicht funktioniert im Embperl :-(
# $out = '';
$out = '';
-]
@@ -87,7 +86,7 @@
for $og (@$open_games){
push @real_open_games, $og unless exists $such{$og->[0]};
}
- Util::log("real open games: ". Dumper(\@real_open_games), 2);
+ # Util::log("real open games: ". Dumper(\@real_open_games), 2);
($rn) = $db->read_player($id, 'REALNAME') unless exists $udat{-game};
-]