--- loncom/auth/loncacc.pm	2001/05/05 13:14:45	1.15
+++ loncom/auth/loncacc.pm	2002/01/04 14:57:14	1.19
@@ -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'}) &&
@@ -132,6 +132,7 @@ sub handler {
                 }
             }
 	}
+	    $ENV{'request.method'}=$ENV{'REQUEST_METHOD'};
             $r->method_number(M_GET);
 	    $r->method('GET');
             $r->headers_in->unset('Content-length');