--- loncom/lonsql	2001/04/16 18:36:22	1.33
+++ loncom/lonsql	2001/04/16 18:51:22	1.34
@@ -19,7 +19,7 @@ require "find.pl";
 sub wanted {
     (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) &&
     -f _ &&
-    /^.*\.meta$/ &&
+    /^.*\.meta$/ && !/^.+\.\d+\.[^\.]+\.meta$/ &&
     push(@metalist,"$dir/$_");
 }
 
@@ -269,7 +269,14 @@ sub make_new_child {
 		}
 		else {
 		    @metalist=(); pop @metalist;
-		    &find("$perlvar{'lonDocRoot'}/res");
+		    opendir(RESOURCES,"$perlvar{'lonDocRoot'}/res/$perlvar{'lonDefDomain'}");
+		    my @homeusers=grep
+		          {&ishome("$perlvar{'lonDocRoot'}/res/$perlvar{'lonDefDomain'}/$_")}
+		          grep {!/^\.\.?$/} readdir(RESOURCES);
+		    closedir RESOURCES;
+		    foreach my $user (@homeusers) {
+			&find("$perlvar{'lonDocRoot'}/res/$perlvar{'lonDefDomain'}/$user");
+		    }
 		}
 #		&logthis("FILELIST:" . join(":::",@metalist));
 		# if file is indicated in sql database and
@@ -383,3 +390,29 @@ sub unescape {
     $str =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
     return $str;
 }
+
+# --------------------------------------- Is this the home server of an author?
+# (copied from lond, modification of the return value)
+sub ishome {
+    my $author=shift;
+    $author=~s/\/home\/httpd\/html\/res\/([^\/]*)\/([^\/]*).*/$1\/$2/;
+    my ($udom,$uname)=split(/\//,$author);
+    my $proname=propath($udom,$uname);
+    if (-e $proname) {
+	return 1;
+    } else {
+        return 0;
+    }
+}
+
+# -------------------------------------------- Return path to profile directory
+# (copied from lond)
+sub propath {
+    my ($udom,$uname)=@_;
+    $udom=~s/\W//g;
+    $uname=~s/\W//g;
+    my $subdir=$uname.'__';
+    $subdir =~ s/(.)(.)(.).*/$1\/$2\/$3/;
+    my $proname="$perlvar{'lonUsersDir'}/$udom/$subdir/$uname";
+    return $proname;
+}