--- loncom/lonnet/perl/lonnet.pm 2005/07/25 02:35:29 1.646 +++ loncom/lonnet/perl/lonnet.pm 2005/07/25 18:47:38 1.647 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.646 2005/07/25 02:35:29 raeburn Exp $ +# $Id: lonnet.pm,v 1.647 2005/07/25 18:47:38 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -2893,7 +2893,7 @@ sub allowed { # Free bre access to user's own portfolio contents my ($space,$domain,$name,$dir)=split('/',$uri); - if (($space=~/^(uploaded|ediupload)$/) && ($env{'user.name'} eq $name) && + if (($space=~/^(uploaded|editupload)$/) && ($env{'user.name'} eq $name) && ($env{'user.domain'} eq $domain) && ('portfolio' eq $dir)) { return 'F'; }