--- loncom/interface/londocs.pm 2004/04/26 01:20:17 1.120 +++ loncom/interface/londocs.pm 2004/04/26 16:56:26 1.121 @@ -1,7 +1,7 @@ # The LearningOnline Network # Documents # -# $Id: londocs.pm,v 1.120 2004/04/26 01:20:17 www Exp $ +# $Id: londocs.pm,v 1.121 2004/04/26 16:56:26 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -298,8 +298,34 @@ sub editor { $r->print('
'.$errtext.'
'); } else { # ------------------------------------------------------------ Process commands + # ---------------- if they are for this folder and user allowed to make changes if (($allowed) && ($ENV{'form.folder'} eq $folder)) { +# set parameters + if (defined($ENV{'form.setparms'})) { + my $idx=$ENV{'form.setparms'}; + if ($ENV{'form.randpick_'.$idx}) { + &Apache::lonratedt::storeparameter($idx,'randompick',$ENV{'form.randpick_'.$idx},'int_pos'); + } else { + &Apache::lonratedt::delparameter($idx,'randompick'); + } + if ($ENV{'form.hidprs_'.$idx}) { + &Apache::lonratedt::storeparameter($idx,'hiddenresource','yes','string_yesno'); + } else { + &Apache::lonratedt::delparameter($idx,'hiddenresource'); + } + if ($ENV{'form.encprs_'.$idx}) { + &Apache::lonratedt::storeparameter($idx,'encrypturl','yes','string_yesno'); + } else { + &Apache::lonratedt::delparameter($idx,'encrypturl'); + } + + ($errtext,$fatal)=&storemap($coursenum,$coursedom,$folder.'.sequence'); + if ($fatal) { + $r->print(''.$errtext.'
'); + return; + } + } # upload a file, if present if (($ENV{'form.uploaddoc.filename'}) && ($ENV{'form.cmd'}=~/^upload_(\w+)/)) { @@ -459,8 +485,9 @@ sub entryline { 'rm' => 'Remove', 'rn' => 'Rename'); $line.=(<