--- loncom/interface/londocs.pm 2004/07/04 05:43:12 1.134 +++ loncom/interface/londocs.pm 2004/07/08 19:58:29 1.135 @@ -1,7 +1,7 @@ # The LearningOnline Network # Documents # -# $Id: londocs.pm,v 1.134 2004/07/04 05:43:12 albertel Exp $ +# $Id: londocs.pm,v 1.135 2004/07/08 19:58:29 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -575,13 +575,15 @@ END my $isfolder=0; my $folderarg; if ($uploaded) { - if ($extension eq 'sequence') { - $icon=$iconpath.'/folder_closed.gif'; - $url=~/$coursenum\/([\/\w]+)\.sequence$/; - $url='/adm/coursedocs?'; - $folderarg=$1; - $isfolder=1; - } + if ($extension eq 'sequence') { + $icon=$iconpath.'/folder_closed.gif'; + $url=~/$coursenum\/([\/\w]+)\.sequence$/; + $url='/adm/coursedocs?'; + $folderarg=$1; + $isfolder=1; + } else { + &Apache::lonnet::allowuploaded('/adm/coursedoc',$url); + } } $url=~s/^http\&colon\;\/\//\/adm\/wrapper\/ext\//; if ((!$isfolder) && ($residx) && ($folder!~/supplemental/)) {