--- loncom/publisher/lonpubdir.pm 2001/05/26 15:29:22 1.8 +++ loncom/publisher/lonpubdir.pm 2001/06/23 18:26:40 1.9 @@ -10,7 +10,7 @@ # 03/23 Guy Albertelli # 03/24,03/29 Gerd Kortemeyer) # -# 03/31,04/03,05/09 Gerd Kortemeyer +# 03/31,04/03,05/09,06/23 Gerd Kortemeyer package Apache::lonpubdir; @@ -39,9 +39,10 @@ sub handler { my $uname; my $udom; - unless (($uname,$udom)= + ($uname,$udom)= &Apache::loncacc::constructaccess( - $fn,$r->dir_config('lonDefDomain'))) { + $fn,$r->dir_config('lonDefDomain')); + unless (($uname) && ($udom)) { $r->log_reason($uname.' at '.$udom. ' trying to publish file '.$ENV{'form.filename'}. ' ('.$fn.') - not authorized',