--- loncom/interface/lonwhatsnew.pm 2005/06/04 03:36:36 1.17 +++ loncom/interface/lonwhatsnew.pm 2005/06/07 22:05:11 1.19 @@ -1,5 +1,5 @@ # -# $Id: lonwhatsnew.pm,v 1.17 2005/06/04 03:36:36 albertel Exp $ +# $Id: lonwhatsnew.pm,v 1.19 2005/06/07 22:05:11 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -35,6 +35,7 @@ use Apache::lonhtmlcommon(); use Apache::lonlocal; use Apache::loncoursedata(); use Apache::lonnavmaps(); +use Apache::lonuserstate; use Apache::Constants qw(:common :http); use Time::Local; @@ -186,10 +187,14 @@ sub display_actions_box() { my $tabbg=&Apache::loncommon::designparm($function.'.tabbg',$domain); unless ($env{'request.course.id'}) { - $r->print('
You are accessing an invalid course


'); + $r->print('
You are accessing an invalid course.


'); return; } + my ($furl,$ferr)= + &Apache::lonuserstate::readmap($cdom.'/'.$crs); + $r->print('Go to first resource
Change your preferences
to suppress display of this screen when accessing courses as Course Coordinator in the future.

'); + my $result; if ($command eq 'reset') { @@ -556,7 +561,14 @@ sub getitems { if ($resource->is_problem()) { my $ctr = 0; my ($map,$ind,$url)=&Apache::lonnet::decode_symb($symb); - my ($partlist,$handgrade,$responseType) = &Apache::grades::response_type($url,$symb); + my ($partlist,$handgrade,$responseType) = + &Apache::grades::response_type($url,$symb); + my $handgradeable; + foreach my $value (values(%{$handgrade})) { + if ($value eq 'yes') { $handgradeable=1; last; } + } + next if (!$handgradeable); + foreach my $student (keys(%$classlist)) { my ($uname,$udom) = split(/:/,$student); my %status=&Apache::grades::student_gradeStatus($url,$symb,$udom,$uname,$partlist);