--- loncom/interface/londocs.pm 2010/11/09 18:19:08 1.434.2.2 +++ loncom/interface/londocs.pm 2010/08/24 09:11:37 1.436 @@ -1,7 +1,7 @@ # The LearningOnline Network # Documents # -# $Id: londocs.pm,v 1.434.2.2 2010/11/09 18:19:08 raeburn Exp $ +# $Id: londocs.pm,v 1.436 2010/08/24 09:11:37 wenzelju Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1717,9 +1717,10 @@ sub process_file_upload { $destination .= $2.'/'; } # this is for a course, not a user, so set coursedoc flag +# 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','coursedoc',$destination, + my $url=&Apache::lonnet::userfileupload('uploaddoc',1,$destination, $parseaction,$allfiles, $codebase); my $ext='false'; @@ -1780,7 +1781,7 @@ sub process_secondary_uploads { } $destination .= $newidx; my ($url,$filename); - $url=&Apache::lonnet::userfileupload($formname.$num,'coursedoc',$destination); + $url=&Apache::lonnet::userfileupload($formname.$num,1,$destination); ($filename) = ($url =~ m{^/uploaded/\Q$coursedom\E/\Q$coursenum\E/\Q$destination\E/(.+)$}); return $filename; } @@ -2919,7 +2920,7 @@ sub create_form_ul { 'upld' => 'Import Document', 'srch' => 'Search', 'impo' => 'Import', - 'book' => 'Import Bookmarks', + 'wish' => 'Import from Wishlist', 'selm' => 'Select Map', 'load' => 'Load Map', 'reco' => 'Recover Deleted Documents', @@ -2970,7 +2971,7 @@ CHBO $fileupload
$lt{'title'}:
- + $uploadtag
@@ -2992,7 +2993,7 @@ SEDFFORM my @simpleeditdefaultforma = ( { ''.$lt{srch}.'' => "$uploadtag$lt{'srch'}" }, { ''.$lt{impo}.'' => "$lt{'impo'}$help{'Importing_LON-CAPA_Resource'}" }, - { ''.$lt{book}.'' => "$lt{'book'}" }, + { ''.$lt{wish}.'' => "$lt{'wish'}" }, ); $simpleeditdefaultform .= create_form_ul(create_list_elements(@simpleeditdefaultforma)); $simpleeditdefaultform .=(<print('
  • '.$tabtitles{'main'}{$crstype}.'
  • '); $active = ''; if (!$forcestandard || ($env{'form.folderpath'}=~/^supplemental/)) { @@ -3070,6 +3072,7 @@ HIDDENFORM } } $r->print('
  • '.$tabtitles{'supplemental'}{$crstype}.'
  • '); $r->print(''); } else { @@ -3118,7 +3121,7 @@ HIDDENFORM my $recoverform=(< - $lt{'reco'} + $lt{'reco'} RFORM @@ -3307,7 +3310,7 @@ if($env{'form.pagepath'}) { my @tools = ( # {''.$lt{extr}.''=>$extresourcesform}, # {''.$lt{imsf}.''=>$imspform}, - {''.$lt{reco}.''=>$recoverform}, + {''.$lt{reco}.''=>$recoverform}, ); my %orderhash = (