--- loncom/interface/londocs.pm 2010/08/14 00:00:29 1.430 +++ loncom/interface/londocs.pm 2010/08/16 00:30:47 1.433 @@ -1,7 +1,7 @@ # The LearningOnline Network # Documents # -# $Id: londocs.pm,v 1.430 2010/08/14 00:00:29 raeburn Exp $ +# $Id: londocs.pm,v 1.433 2010/08/16 00:30:47 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1607,12 +1607,12 @@ sub editor { my $shown=0; if (($ishidden) || ($isencrypted) || ($randompick>=0) || ($is_random_order)) { $r->print('
'. - '
  1. '.&mt('Parameters:').'
  2. '. - ($randompick>=0?'
  3. • '.&mt('randomly pick [quant,_1,resource]',$randompick).'
  4. ':''). - ($ishidden?'
  5. • '.&mt('contents hidden').'
  6. ':''). - ($isencrypted?'
  7. • '.&mt('URLs hidden').'
  8. ':''). - ($is_random_order?'
  9. • '.&mt('random order').'
  10. ':''). - '

'); + '
  1. '.&mt('Parameters:').'
  2. '. + ($randompick>=0?'
  3. '.&mt('randomly pick [quant,_1,resource]',$randompick).'
  4. ':''). + ($ishidden?'
  5. '.&mt('contents hidden').'
  6. ':''). + ($isencrypted?'
  7. '.&mt('URLs hidden').'
  8. ':''). + ($is_random_order?'
  9. '.&mt('random order').'
  10. ':''). + '
'); if ($randompick>=0) { $r->print('

' .&mt('Caution: this folder is set to randomly pick a subset' @@ -2721,6 +2721,17 @@ sub handler { ''; $uploadtag = ''. ''; + } else { + my $folderpath=$env{'form.folderpath'}; + if (!$folderpath) { + if ($env{'form.folder'} eq '' || + $env{'form.folder'} eq 'supplemental') { + $folderpath='default&'. + &escape(&mt('Main '.$crstype.' Documents')); + } + } + $containertag = ''; + $uploadtag = ''; } if ($r->uri=~/^\/adm\/coursedocs\/showdoc\/(.*)$/) { $showdoc='/'.$1; @@ -3013,18 +3024,6 @@ ERFORM 'sl' => 'Show Log' ); - my $folderpath=$env{'form.folderpath'}; - if (!$folderpath) { - if ($env{'form.folder'} eq '' || - $env{'form.folder'} eq 'supplemental') { - $folderpath='default&'. - &escape(&mt('Main '.$crstype.' Documents')); - } - } - unless ($env{'form.pagepath'}) { - $containertag = ''; - $uploadtag = ''; - } $r->print(< @@ -3504,7 +3503,7 @@ sub generate_admin_options { if($dumpbut ne ''){ push @list, {''.$lt{dcd}.''=>$dumpbut}; } - push @list, ({''.$lt{imse}.'' + push @list, ({''.$lt{imse}.'' =>$exportbut}, {''.$lt{ls}.'' =>"$lt{'ls'}"}, @@ -3589,6 +3588,12 @@ sub editing_js { p_ctr2b => '?[_98]' ); + my $crstype = &Apache::loncommon::course_type(); + my $docs_folderpath = $env{'environment.internal.'.$env{'request.course.id'}.'.docs_folderpath.folderpath'}; + my $docs_pagepath = $env{'environment.internal.'.$env{'request.course.id'}.'.docs_folderpath.pagepath'}; + my $toplevelmain = 'default&Main%20'.$crstype.'%20Documents'; + my $toplevelsupp = 'supplemental&Supplemental%20'.$crstype.'%20Documents'; + return <