--- loncom/homework/lonhomework.pm 2004/11/29 22:13:34 1.184 +++ loncom/homework/lonhomework.pm 2004/12/03 21:47:38 1.186 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # The LON-CAPA Homework handler # -# $Id: lonhomework.pm,v 1.184 2004/11/29 22:13:34 albertel Exp $ +# $Id: lonhomework.pm,v 1.186 2004/12/03 21:47:38 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -385,6 +385,12 @@ sub setuppermissions { '/'.$ENV{'request.course.sec'}); } $Apache::lonhomework::viewgrades = $viewgrades; + if ($Apache::lonhomework::browse eq 'F' && + $ENV{'form.devalidatecourseresdata'} eq 'on') { + my (undef,$courseid) = &Apache::lonxml::whichuser(); + &Apache::lonnet::devalidatecourseresdata($ENV{"course.$courseid.num"}, + $ENV{"course.$courseid.domain"}); + } return '' } @@ -714,7 +720,8 @@ sub newproblem { $errormsg='
'.&mt('You did not select a template.').'
'."\n"; } my $instructions; - my $bodytag=&Apache::loncommon::bodytag(undef,undef,undef,1); + my $bodytag=&Apache::loncommon::bodytag(undef,undef,undef, + ($ENV{'environment.remote'} ne 'off')); if ($templatelist) { $instructions=&mt(", select a template from the pull-down menu below.").'