--- loncom/lonnet/perl/lonnet.pm 2016/09/24 16:30:49 1.1172.2.82 +++ loncom/lonnet/perl/lonnet.pm 2016/09/27 18:09:06 1.1172.2.83 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.1172.2.82 2016/09/24 16:30:49 raeburn Exp $ +# $Id: lonnet.pm,v 1.1172.2.83 2016/09/27 18:09:06 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -7317,7 +7317,7 @@ sub constructaccess { my ($ownername,$ownerdomain,$ownerhome); ($ownerdomain,$ownername) = - ($url=~ m{^(?:\Q$perlvar{'lonDocRoot'}\E|)/priv/($match_domain)/($match_username)/}); + ($url=~ m{^(?:\Q$perlvar{'lonDocRoot'}\E|)/priv/($match_domain)/($match_username)(?:/|$)}); # The URL does not really point to any authorspace, forget it unless (($ownername) && ($ownerdomain)) { return ''; }