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