--- loncom/homework/lonhomework.pm 2004/09/29 06:50:31 1.178.2.2 +++ loncom/homework/lonhomework.pm 2004/12/17 22:30:30 1.187 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # The LON-CAPA Homework handler # -# $Id: lonhomework.pm,v 1.178.2.2 2004/09/29 06:50:31 albertel Exp $ +# $Id: lonhomework.pm,v 1.187 2004/12/17 22:30:30 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -52,7 +52,7 @@ use Apache::Constants qw(:common); use HTML::Entities(); use Apache::loncommon(); use Apache::lonlocal; -#use Time::HiRes qw( gettimeofday tv_interval ); +use Time::HiRes qw( gettimeofday tv_interval ); BEGIN { &Apache::lonxml::register_insert(); @@ -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 '' } @@ -449,11 +455,16 @@ sub handle_save_or_undo { sub analyze_header { my ($request) = @_; + my $bodytag='
'; + if ($ENV{'environment.remote'} eq 'off') { + $bodytag=&Apache::loncommon::bodytag(); + } my $result.='