[LON-CAPA-cvs] cvs: loncom /interface lonmsg.pm

[www]

www		Tue Aug 12 16:12:06 2003 EDT

  Modified files:              
    /loncom/interface	lonmsg.pm 
  Log:
  Bug #2017: don't leave user hanging when no critical messages left
  
  
Index: loncom/interface/lonmsg.pm
diff -u loncom/interface/lonmsg.pm:1.59 loncom/interface/lonmsg.pm:1.60
--- loncom/interface/lonmsg.pm:1.59	Fri Jul 25 09:13:43 2003
+++ loncom/interface/lonmsg.pm	Tue Aug 12 16:12:05 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines for messaging
 #
-# $Id: lonmsg.pm,v 1.59 2003/07/25 13:13:43 bowersj2 Exp $
+# $Id: lonmsg.pm,v 1.60 2003/08/12 20:12:05 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -553,7 +553,8 @@
     }
     # Check to see if there were any messages.
     if ($result eq '') {
-        $result = "<h2>You have no critical messages.</h2>";
+        $result = "<h2>You have no critical messages.</h2>".
+	    '<a href="/adm/roles">Select a course</a>';
     } else {
         $r->print($header);
     }