From: Benni Bärmann 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;ds=sidebyside Merge branch 'master' of aymargeddon.de:/var/cache/git/aymargeddon/current --- edbdf981639e5bc7d16a8ccd7e59ce2cf71bd142 diff --cc src/FROGS/DataBase.pm index b3b721b,a99df02..32342dd --- a/src/FROGS/DataBase.pm +++ b/src/FROGS/DataBase.pm @@@ -533,15 -533,15 +533,17 @@@ sub open_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; }