--- loncom/interface/londocs.pm 2010/08/24 09:11:37 1.436 +++ loncom/interface/londocs.pm 2010/10/27 01:00:38 1.439 @@ -1,7 +1,7 @@ # The LearningOnline Network # Documents # -# $Id: londocs.pm,v 1.436 2010/08/24 09:11:37 wenzelju Exp $ +# $Id: londocs.pm,v 1.439 2010/10/27 01:00:38 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1720,7 +1720,7 @@ sub process_file_upload { # probably the only place in the system where this should be "1" my $newidx=&LONCAPA::map::getresidx(); $destination .= $newidx; - my $url=&Apache::lonnet::userfileupload('uploaddoc',1,$destination, + my $url=&Apache::lonnet::userfileupload('uploaddoc','coursedoc',$destination, $parseaction,$allfiles, $codebase); my $ext='false'; @@ -1781,7 +1781,7 @@ sub process_secondary_uploads { } $destination .= $newidx; my ($url,$filename); - $url=&Apache::lonnet::userfileupload($formname.$num,1,$destination); + $url=&Apache::lonnet::userfileupload($formname.$num,'coursedoc',$destination); ($filename) = ($url =~ m{^/uploaded/\Q$coursedom\E/\Q$coursenum\E/\Q$destination\E/(.+)$}); return $filename; } @@ -2971,7 +2971,7 @@ CHBO $fileupload
$lt{'title'}:
- + $uploadtag
@@ -3063,7 +3063,6 @@ HIDDENFORM } } $r->print('
  • '.$tabtitles{'main'}{$crstype}.'
  • '); $active = ''; if (!$forcestandard || ($env{'form.folderpath'}=~/^supplemental/)) { @@ -3072,7 +3071,6 @@ HIDDENFORM } } $r->print('
  • '.$tabtitles{'supplemental'}{$crstype}.'
  • '); $r->print(''); } else {