--- loncom/lonnet/perl/lonnet.pm 2005/03/17 21:02:00 1.611 +++ loncom/lonnet/perl/lonnet.pm 2005/03/17 21:18:12 1.612 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.611 2005/03/17 21:02:00 albertel Exp $ +# $Id: lonnet.pm,v 1.612 2005/03/17 21:18:12 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -2778,7 +2778,7 @@ sub allowed { # URI is an uploaded document for this course # not allowing 'edit' access (editupload) to uploaded course docs if (($priv eq 'bre') && ($uri=~m|^uploaded/|)) { - my $refuri=$ENV{'httpref.'.$origuri}; + my $refuri=$ENV{'httpref.'.$orguri}; if ($refuri) { if ($refuri =~ m|^/adm/|) { $thisallowed='F';