--- loncom/interface/lonparmset.pm 2003/06/21 17:09:29 1.108 +++ loncom/interface/lonparmset.pm 2003/06/30 20:24:26 1.113 @@ -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.113 2003/06/30 20:24:26 sakharuk 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(''); @@ -1518,7 +1523,10 @@ sub crsenv { 'have different numbers and answers', 'problem_stream_switch' => '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 '.