aboutsummaryrefslogtreecommitdiffstats
path: root/lib/AdminPanel/MainDisplay.pm
diff options
context:
space:
mode:
authorAngelo Naselli <anaselli@linux.it>2014-09-04 23:05:48 +0200
committerAngelo Naselli <anaselli@linux.it>2014-09-04 23:05:48 +0200
commit791f736950dd63ff239e7fd743f4675ccb9c865f (patch)
tree6b1f9ed4878fc91008d0d2d2274cbc4ed7ce11ea /lib/AdminPanel/MainDisplay.pm
parentbbb1d76c94e634bedc3a2243a32448ba5b961b81 (diff)
downloadcolin-keep-791f736950dd63ff239e7fd743f4675ccb9c865f.tar
colin-keep-791f736950dd63ff239e7fd743f4675ccb9c865f.tar.gz
colin-keep-791f736950dd63ff239e7fd743f4675ccb9c865f.tar.bz2
colin-keep-791f736950dd63ff239e7fd743f4675ccb9c865f.tar.xz
colin-keep-791f736950dd63ff239e7fd743f4675ccb9c865f.zip
Cleaned constructor code
Diffstat (limited to 'lib/AdminPanel/MainDisplay.pm')
-rw-r--r--lib/AdminPanel/MainDisplay.pm41
1 files changed, 20 insertions, 21 deletions
diff --git a/lib/AdminPanel/MainDisplay.pm b/lib/AdminPanel/MainDisplay.pm
index 118fc78..72dd9b6 100644
--- a/lib/AdminPanel/MainDisplay.pm
+++ b/lib/AdminPanel/MainDisplay.pm
@@ -114,27 +114,26 @@ the startup GUI.
sub new {
my $self = {
- my $categories = 0,
- my $event = 0,
- my $factory = 0,
- my $mainWin = 0,
- my $mainLayout = 0,
- my $menuLayout = 0,
- my $menus = {
- my $file = 0,
- my $help = 0
+ categories => 0,
+ event => 0,
+ factory => 0,
+ mainWin => 0,
+ mainLayout => 0,
+ menuLayout => 0,
+ menus => {
+ file => 0,
+ help => 0
},
- my $layout = 0,
- my $leftPane = 0,
- my $rightPane = 0,
- my $currCategory = 0,
- my $confDir = 0,
- my $title = 0,
- my $settings = 0,
- my $exitButton = 0,
- my $loc = 0,
- my $justToGetRidOfERROR = 0,
- my $replacePoint = 0
+ layout => 0,
+ leftPane => 0,
+ rightPane => 0,
+ currCategory => 0,
+ confDir => 0,
+ title => 0,
+ settings => 0,
+ exitButton => 0,
+ loc => 0,
+ replacePoint => 0,
};
bless $self, 'AdminPanel::MainDisplay';
@@ -570,6 +569,7 @@ sub _loadCategories {
$tmp = $inFile->getNextMod();
my $tmpMod;
my $loaded = 0;
+
if (exists $tmp->{title}) {
if (not $currCategory->moduleLoaded($tmp->{title})) {
$tmpMod = AdminPanel::Module->create(name => $tmp->{title},
@@ -588,7 +588,6 @@ sub _loadCategories {
undef $tmpMod if !$loaded;
}
$hasNextMod = $inFile->hasNextMod();
-
}
}
}