no more dangerous logging of passwords...
[aymargeddon/current.git] / html / player.epl
index ccb534e..46c7540 100644 (file)
@@ -7,7 +7,7 @@
   $udat{-current} = 'player.epl';
        
   use Aymargeddon;
   $udat{-current} = 'player.epl';
        
   use Aymargeddon;
- use Data::Dumper;
 # use Data::Dumper;
   $db = DataBase->new();
   $id = 0;
   if($udat{-id}){
   $db = DataBase->new();
   $id = 0;
   if($udat{-id}){
@@ -87,7 +87,7 @@
     for $og (@$open_games){
       push @real_open_games, $og unless exists $such{$og->[0]};
     }
     for $og (@$open_games){
       push @real_open_games, $og unless exists $such{$og->[0]};
     }
-
+    # Util::log("real open games: ". Dumper(\@real_open_games), 2);
     ($rn) = $db->read_player($id, 'REALNAME') unless exists $udat{-game};
   -]
 
     ($rn) = $db->read_player($id, 'REALNAME') unless exists $udat{-game};
   -]
 
   <hr>
   <p>[+ $db->loc('PLAYER_OPENGAMES') +]:<p>
   [$ foreach $og (@real_open_games) $]
   <hr>
   <p>[+ $db->loc('PLAYER_OPENGAMES') +]:<p>
   [$ foreach $og (@real_open_games) $]
-    [- $og=$og->[0]; ($og_name) = $db->read_game($og,'NAME'); -]
+    [- ($og_name) = $db->read_game($og,'NAME'); -]
     <a href="player.epl?game=[+$og+]">[+$og_name+]</a><p>
   [$ endforeach $]
   [$ if $#{@real_open_games} < 0 $]
     <a href="player.epl?game=[+$og+]">[+$og_name+]</a><p>
   [$ endforeach $]
   [$ if $#{@real_open_games} < 0 $]
       $messages = $aym->read_messages();
      $now = $db->now();
      -]
       $messages = $aym->read_messages();
      $now = $db->now();
      -]
-    <strong>[+ $db->loc('PLAYER_MESSAGES_HEADING') +]</strong><p>
+   <strong>[+ $db->loc('PLAYER_MESSAGES_HEADING') +]</strong><p>
     <a href="player.epl?delete_all_messages=1&time=[+$now+]">
    [+ $db->loc('PLAYER_DELETE_MESSAGES')+]</a><p>
     [$ foreach $msg (@$messages) $]
     <a href="player.epl?delete_all_messages=1&time=[+$now+]">
    [+ $db->loc('PLAYER_DELETE_MESSAGES')+]</a><p>
     [$ foreach $msg (@$messages) $]