--- loncom/interface/lonwhatsnew.pm	2005/06/04 03:36:36	1.17
+++ loncom/interface/lonwhatsnew.pm	2005/06/09 18:41:08	1.21
@@ -1,5 +1,5 @@
 #
-# $Id: lonwhatsnew.pm,v 1.17 2005/06/04 03:36:36 albertel Exp $
+# $Id: lonwhatsnew.pm,v 1.21 2005/06/09 18:41:08 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('<br /><b><center>You are accessing an invalid course</center></b><br /><br />');
+        $r->print('<br /><b><center>You are accessing an invalid course.</center></b><br /><br />');
         return;
     }
 
+    my ($furl,$ferr)=
+           &Apache::lonuserstate::readmap($cdom.'/'.$crs);
+    $r->print('<font size="+1"><a href="'.$furl.'">Go to first resource</a></font><a href="/adm/preferences?action=changecourseinit"></font><br />Change your preferences</a> to suppress display of this screen when accessing courses as Course Coordinator in the future.<br /><hr />');
+
     my $result;
 
     if ($command eq 'reset') {
@@ -381,7 +386,7 @@ END
             } else {
                 $rowColor = $rowColor2;
             }
-            $r->print('<tr bgcolor="'.$rowColor.'"><td valign="top"><small>'.$mailcount.'. &nbsp;<small></td><td valign="top"><small><a href="/adm/mail?">'.$msg->{'shortsub'}.'</a>&nbsp; &nbsp;</small></td><td valign="top"><small>&nbsp;'.$msg->{'from'}.'@'.$msg->{'fromdom'}.'&nbsp;</small></td><td valign="top"><small>'.$msg->{'sendtime'}.'</small></td></tr>');
+            $r->print('<tr bgcolor="'.$rowColor.'"><td valign="top"><small>'.$mailcount.'. &nbsp;<small></td><td valign="top"><small><a href="/adm/communicate">'.$msg->{'shortsub'}.'</a>&nbsp; &nbsp;</small></td><td valign="top"><small>&nbsp;'.$msg->{'from'}.'@'.$msg->{'fromdom'}.'&nbsp;</small></td><td valign="top"><small>'.$msg->{'sendtime'}.'</small></td></tr>');
             $rowNum ++;
             $mailcount ++;
         }
@@ -527,7 +532,7 @@ sub getitems {
         $$res_title{$symb} = $title;
         my $ressymb = $resource->wrap_symb();
 # Check for unread discussion postings
-        if (defined($discussiontime{$ressymb})) {
+	if ($resource->hasDiscussion()) {
             push(@discussions,$ressymb);
             my $prevread = 0;
             my $unreadcount = 0;
@@ -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);