some bugs with json fixed

[aymargeddon/current.git] / src / Aymargeddon.pm

diff --git a/src/Aymargeddon.pm b/src/Aymargeddon.pm
index 7a85977..c137c42 100644 (file)
--- a/src/Aymargeddon.pm
+++ b/src/Aymargeddon.pm
@@ -1,22 +1,24 @@
 ##########################################################################
 #
-#   Copyright (c) 2003 Aymargeddon Development Team
+#   Copyright (c) 2003-2012 Aymargeddon Development Team
 #
-#   This file is part of "Last days of Aymargeddon"
-#
-#   Aymargeddon is free software; you can redistribute it and/or modify it
-#   under the terms of the GNU General Public License as published by the Free
-#   Software Foundation; either version 2 of the License, or (at your option)
-#   any later version.
-#
-#   Aymargeddon is distributed in the hope that it will be useful, but WITHOUT
-#   ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
-#   FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License for
-#   more details.
-#   You should have received a copy of the GNU General Public License along
-#   with this program; if not, write to the Free Software Foundation, Inc., 675
-#   Mass Ave, Cambridge, MA 02139, USA.
+#   This file is part of "Last days of Aymargeddon" - a massive multi player
+#   onine game of strategy     
+#   
+#        This program is free software: you can redistribute it and/or modify
+#       it under the terms of the GNU Affero General Public License as
+#        published by the Free Software Foundation, either version 3 of the
+#       License, or (at your option) any later version.
+#    
+#        This program is distributed in the hope that it will be useful,
+#       but WITHOUT ANY WARRANTY; without even the implied warranty of
+#       MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 #
+#    See the GNU Affero General Public License for more details.
+#    
+#    You should have received a copy of the GNU Affero General Public License
+#    along with this program.  If not, see <http://www.gnu.org/licenses/>.
+#    
 ###########################################################################
 #
 
@@ -36,7 +38,7 @@ use Data::Dumper;
 @Aymargeddon::ISA = qw(Game);
 
 sub new{
-  my ($class,$game,$user,$db,$lang) = @_;
+  my ($class,$game,$user,$db,$lang) = @_; #TODO: $lang not used here?
 
   my $self = Game->new($game,$user,$db);
 
@@ -45,9 +47,10 @@ sub new{
 
 sub get_map{
   my $self = shift;
-
+  
   unless (exists $self->{-map}){
-    $self->{-map} = $self->read_map("TERRAIN,HOME,OCCUPANT,TEMPLE,PLAGUE,HOME");
+      #TODO: HOME dupplication correct?
+      $self->{-map} = $self->read_map("TERRAIN,HOME,OCCUPANT,TEMPLE,PLAGUE,HOME");
   }
   return $self->{-map};
 }