--- loncom/auth/loncacc.pm	2001/05/05 13:14:45	1.15
+++ loncom/auth/loncacc.pm	2001/05/09 16:57:07	1.16
@@ -3,7 +3,7 @@
 # (lonacc: 5/21/99,5/22,5/29,5/31 Gerd Kortemeyer)
 # 6/15,16/11,22/11,
 # 01/06,01/11,6/1,9/25,9/28,11/22,12/25,12/26,
-# 01/06/01,05/04,05/05 Gerd Kortemeyer
+# 01/06/01,05/04,05/05,05/09 Gerd Kortemeyer
 
 package Apache::loncacc;
 
@@ -15,7 +15,7 @@ use Fcntl qw(:flock);
 
 sub constructaccess {
     my ($url,$ownerdomain)=@_;
-    my ($ownername)=($url=~/\/(?:\~|priv\/)(\w+)/);
+    my ($ownername)=($url=~/\/(?:\~|priv\/|home\/)(\w+)/);
     unless (($ownername) && ($ownerdomain)) { return ''; }
 
     if (($ownername eq $ENV{'user.name'}) &&