--- loncom/interface/lonwhatsnew.pm	2005/07/10 02:31:30	1.23
+++ loncom/interface/lonwhatsnew.pm	2005/07/14 21:30:25	1.24
@@ -1,5 +1,5 @@
 #
-# $Id: lonwhatsnew.pm,v 1.23 2005/07/10 02:31:30 albertel Exp $
+# $Id: lonwhatsnew.pm,v 1.24 2005/07/14 21:30:25 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -38,6 +38,7 @@ use Apache::lonnavmaps();
 use Apache::lonuserstate;
 use Apache::Constants qw(:common :http);
 use Time::Local;
+use GDBM_File;
 
 #----------------------------
 # handler
@@ -190,10 +191,12 @@ sub display_actions_box() {
         $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 />');
+    if (tie(my %bighash,'GDBM_File',$env{'request.course.fn'}.'.db',
+	    &GDBM_READER(),0640)) {
+	my $furl=$bighash{'first_url'};
+	$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 />');
+	untie(%bighash);
+    }
 
     my $result;