X-Git-Url: http://aymargeddon.de/gitweb/?p=aymargeddon%2Fcurrent.git;a=blobdiff_plain;f=src%2FFROGS%2FDataBase.pm;h=a99df02a92e6cbaff6bd424870eec12749e7b329;hp=b37458ba6685f736dfdd31f58ec76f7d73e92b28;hb=6c58addecbd4dff615bd1e30213139d3efa19216;hpb=2667ad0b7ded8049dd41e236961d4f503df261cb;ds=sidebyside

diff --git a/src/FROGS/DataBase.pm b/src/FROGS/DataBase.pm
index b37458b..a99df02 100644
--- a/src/FROGS/DataBase.pm
+++ b/src/FROGS/DataBase.pm
@@ -530,16 +530,18 @@ 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);
 
-    push @log, $game if $#{@$unused} + 1;
+      Util::log(Dumper(@$unused),1);
+      
+    push @log, $game->[0] if @$unused + 1;
   }
   return \@log;
 }