--- loncom/interface/londocs.pm 2010/06/06 02:40:30 1.428 +++ 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.428 2010/06/06 02:40:30 raeburn Exp $ +# $Id: londocs.pm,v 1.433 2010/08/16 00:30:47 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1607,13 +1607,12 @@ sub editor { my $shown=0; if (($ishidden) || ($isencrypted) || ($randompick>=0) || ($is_random_order)) { $r->print('
'.&mt('Parameters:'). - '
'
.&mt('Caution: this folder is set to randomly pick a subset'
@@ -2722,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;
@@ -3014,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(<
');
@@ -3501,7 +3503,7 @@ sub generate_admin_options {
if($dumpbut ne ''){
push @list, {''=>$dumpbut};
}
- push @list, ({'
'
+ push @list, ({'
'
=>$exportbut},
{'
'
=>"$lt{'ls'}"},
@@ -3532,7 +3534,9 @@ sub generate_edit_table {
}elsif($activetab eq $name){
$active = 'class="active"';
}
- $form .= '