--- 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);