*wargl*

[devedit.git] / modules / Config / DevEdit.pm

diff --git a/modules/Config/DevEdit.pm b/modules/Config/DevEdit.pm
index ce81d086ac94e0c9b2077a2ddb9debd38f63bebf..b4cb963f17bbf090ea4c1049ff2ea9b57cca223e 100644 (file)
--- a/modules/Config/DevEdit.pm
+++ b/modules/Config/DevEdit.pm
@@ -8,6 +8,14 @@ package Config::DevEdit;
 # Author:        Patrick Canterino <patrick@patshaping.de>
 # Last modified: 2005-09-30
 #
+# Copyright (C) 1999-2000 Roland Bluethgen, Frank Schoenmann
+# Copyright (C) 2003-2009 Patrick Canterino
+# All Rights Reserved.
+#
+# This file can be distributed and/or modified under the terms of
+# of the Artistic License 1.0 (see also the LICENSE file found at
+# the top level of the Dev-Editor distribution).
+#
 
 use strict;
 
@@ -22,8 +30,6 @@ use base qw(Exporter);
 
 @EXPORT = qw(read_config);
 
-use Data::Dumper;
-
 # read_config()
 #
 # Read the configuration files of Dev-Editor
@@ -68,12 +74,14 @@ sub read_config($)
 
    my $new_conf = $userconf->{$ENV{'REMOTE_USER'}};
 
-   $config->{'fileroot'}  = $new_conf->{'fileroot'}  if($new_conf->{'fileroot'});
-   $config->{'httproot'}  = $new_conf->{'httproot'}  if($new_conf->{'httproot'});
+   $config->{'fileroot'}       = $new_conf->{'fileroot'}  if($new_conf->{'fileroot'});
+   $config->{'httproot'}       = $new_conf->{'httproot'}  if($new_conf->{'httproot'});
+
+   $config->{'forbidden'}      = $new_conf->{'forbidden'} if(defined $new_conf->{'forbidden'});
 
-   $config->{'forbidden'} = $new_conf->{'forbidden'} if(defined $new_conf->{'forbidden'});
+   $config->{'hide_dot_files'} = $new_conf->{'hide_dot_files'} if(defined $new_conf->{'hide_dot_files'});
 
-   $config->{'user_config'} = 1;
+   $config->{'user_config'}    = 1;
   }
  }