--- loncom/interface/lonparmset.pm 2003/06/21 17:09:29 1.108 +++ loncom/interface/lonparmset.pm 2003/06/24 21:35:24 1.112 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set parameters for assessments # -# $Id: lonparmset.pm,v 1.108 2003/06/21 17:09:29 www Exp $ +# $Id: lonparmset.pm,v 1.112 2003/06/24 21:35:24 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -855,9 +855,10 @@ sub assessparms { $message.='

Changes can take up to 10 minutes before being active for all students

'; } # --------------------------------------------- Devalidate cache for this child - &Apache::lonnet::devalidatecourseresdata( + &Apache::lonnet::devalidatecourseresdata( $ENV{'course.'.$ENV{'request.course.id'}.'.num'}, $ENV{'course.'.$ENV{'request.course.id'}.'.domain'}); + &Apache::lonnet::clear_EXT_cache_status(); # -------------------------------------------------------------- Get coursedata %courseopt = &Apache::lonnet::dump ('resourcedata', @@ -891,7 +892,11 @@ sub assessparms { &startpage($r,$id,$udom,$csec,$uname,$have_assesments); - if (!$have_assesments) { return ''; } + if (!$have_assesments) { + untie(%bighash); + untie(%parmhash); + return ''; + } # if ($ENV{'form.url'}) { # $r->print(''); @@ -1516,9 +1521,12 @@ sub crsenv { => 'Randomization algorithm used
'. 'Modifying this will make problems '. 'have different numbers and answers', - 'problem_stream_switch' + 'problem_split' => 'Allow problems to be split over pages
'. - ' ("yes" if allowed, anything else if not)', + ' ("yes" if allowed, anything else if not)',, + 'anonymous_quiz' + => 'Anonimous quiz/exam
'. + ' (yes to avoid print students names )', 'default_enrollment_start_date' => 'Default beginning date '. 'when enrolling students', 'default_enrollment_end_date' => 'Default ending date '.