From: Benni Bärmann <benni@obda.de>
Date: Wed, 5 Sep 2012 20:34:28 +0000 (+0200)
Subject: Merge branch 'master' of aymargeddon.de:/var/cache/git/aymargeddon/current
X-Git-Url: http://aymargeddon.de/gitweb/?p=aymargeddon%2Fcurrent.git;a=commitdiff_plain;h=edbdf981639e5bc7d16a8ccd7e59ce2cf71bd142;hp=d546361806d5b7245e063c050eb0347b84bc7880

Merge branch 'master' of aymargeddon.de:/var/cache/git/aymargeddon/current
---

diff --git a/src/FROGS/Config.pm b/src/FROGS/Config.pm
index 860a64f..365ec47 100644
--- a/src/FROGS/Config.pm
+++ b/src/FROGS/Config.pm
@@ -40,7 +40,7 @@ $::conf = {
 	   -DEFAULT_LANGUAGE => 'EN',
 	   -LOG_TIME_IN_LOOP => 1000, # loops until next time output in log
 	   -DEBUG => 1,
-	   -EPL_DEBUG => 0,
+	   -EPL_DEBUG => 2,
 	   -MESSAGE_IN_LOG => 0,
 	   -FULL_DEBUG_FILE => '/home/benni/aymargeddon/current/src/FROGS/+out',
 	   -SCHEDULER_SLEEP => 2,
diff --git a/src/FROGS/DataBase.pm b/src/FROGS/DataBase.pm
index b3b721b..32342dd 100644
--- a/src/FROGS/DataBase.pm
+++ b/src/FROGS/DataBase.pm
@@ -530,18 +530,20 @@ sub games_of_player{
 sub open_games{
   my ($self,$cond) = @_;
   my $games = $self->select_array('GAME','GAME');
-  # return $games;
 
   my @log;
   for my $game (@$games){
-    my $c = "GAME=$game";
-    $c .= "AND $cond" if $cond;
-
+      Util::log( Dumper($game)."\n",1);
+    my $c = "GAME=". $game->[0];
+    $c .= " AND $cond" if $cond;
+      Util::log($c."\n",1);
     my $unused = $self->select_array('MAP','LOCATION','',$c);
     
     print $unused;
 
-    push @log, $game if $#{@$unused} + 1;
+      Util::log(Dumper(@$unused),1);
+      
+    push @log, $game->[0] if @$unused + 1;
   }
   return \@log;
 }