--- /tmp/photopub/PhotoPub/Config.pm	Thu Mar 21 22:31:14 2002
+++ Config.pm	Tue Mar 26 21:52:34 2002
@@ -1,7 +1,7 @@
 package PhotoPub::Config;
 require Exporter;
 @ISA = qw(Exporter);
-@EXPORT_OK = qw($defaultpath $defaultindexstyle $defaultrangestyle);
+@EXPORT_OK = qw($defaultpath $defaultindexstyle $defaultrangestyle %allowedusers $userpath);
 
 use PhotoPub::Global qw(&register_init $error);
 use PhotoPub::Utils qw($pathre);
@@ -11,7 +11,7 @@
 use PhotoPub::Utils qw(&escape &mkpath &remdups &untaint);
 
 use strict;
-use vars qw($defaultpath $defaultindexstyle $defaultrangestyle);
+use vars qw($defaultpath $defaultindexstyle $defaultrangestyle %allowedusers $userpath);
 
 use Config::General;
 
@@ -64,6 +64,9 @@
     } elsif($item eq 'forcemogrify') {
       &setforcemogrify(&makepath($curpath),
 		       &truthvalue(&singlevalue($item,$value)));
+    } elsif($item eq 'hidden') {
+      &sethidden(&makepath($curpath),
+                       &truthvalue(&singlevalue($item,$value)));
     } elsif(exists $templatetypes{$item}) {
       &verifyhash($item,$value);
       foreach my $style (keys %$value) {
@@ -138,6 +141,8 @@
       if(exists $value->{'file'}) {
 	my %loadedfiles=();
 	my %allowedusers=();
+        %allowedusers=();
+        $userpath = &makepath($curpath);
 	foreach my $user (@users) {
 	  $allowedusers{$user}=1;
 	}
@@ -302,6 +307,13 @@
   &installhandler('forcemogrify',$path,sub {
 		   return $forcemogrify;
 		 });
+}
+
+sub sethidden {
+  my ($path,$hidden)=@_;
+  &installhandler('hidden',$path,sub {
+                  return $hidden;
+                 });
 }
 
 sub installtemplates {