--- loncom/lonnet/perl/lonnet.pm	2004/12/16 20:34:33	1.577
+++ loncom/lonnet/perl/lonnet.pm	2004/12/17 22:40:09	1.579
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.577 2004/12/16 20:34:33 banghart Exp $
+# $Id: lonnet.pm,v 1.579 2004/12/17 22:40:09 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2777,7 +2777,7 @@ sub customaccess {
 # ------------------------------------------------- Check for a user privilege
 
 sub allowed {
-    my ($priv,$uri)=@_;
+    my ($priv,$uri,$symb)=@_;
     $uri=&deversion($uri);
     my $orguri=$uri;
     $uri=&declutter($uri);
@@ -3058,7 +3058,7 @@ sub allowed {
 
    if ($thisallowed=~/X/) {
       if ($ENV{'acc.randomout'}) {
-         my $symb=&symbread($uri,1);
+	 if (!$symb) { $symb=&symbread($uri,1); }
          if (($symb) && ($ENV{'acc.randomout'}=~/\&\Q$symb\E\&/)) { 
             return ''; 
          }
@@ -3819,12 +3819,6 @@ sub save_selected_files {
     my ($user, $path, @files) = @_;
     my $filename = $user."savedfiles";
     my @other_files = &files_not_in_path($user, $path);
-    foreach (@other_files) {
-        &logthis("other dir file $_");
-    }
-    foreach (@files) {
-        &logthis("current dir file $_");
-    }
     open (OUT, '>'.$Apache::lonnet::perlvar{'lonDaemons'}.'/tmp/'.$filename);
     foreach my $file (@files) {
         print (OUT $ENV{'form.currentpath'}.$file."\n");