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

www lon-capa-cvs@mail.lon-capa.org
Thu, 17 Apr 2003 14:51:31 -0000


www		Thu Apr 17 10:51:31 2003 EDT

  Modified files:              
    /loncom/interface	lonmenu.pm 
  Log:
  Better inline title.
  
  
Index: loncom/interface/lonmenu.pm
diff -u loncom/interface/lonmenu.pm:1.60 loncom/interface/lonmenu.pm:1.61
--- loncom/interface/lonmenu.pm:1.60	Thu Apr 17 09:21:36 2003
+++ loncom/interface/lonmenu.pm	Thu Apr 17 10:51:31 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines to control the menu
 #
-# $Id: lonmenu.pm,v 1.60 2003/04/17 13:21:36 www Exp $
+# $Id: lonmenu.pm,v 1.61 2003/04/17 14:51:31 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -203,10 +203,18 @@
     my $reopen=&Apache::lonmenu::reopenmenu();
 
     my $newmail='';
-    if (($textual) && ($ENV{'request.symb'})) {
+    if (($textual) && ($ENV{'request.symb'}) && ($ENV{'request.course.id'})) {
 	my ($mapurl,$rid,$resurl)=split(/\_\_\_/,$ENV{'request.symb'});
-        $newmail=&Apache::lonnet::gettitle($mapurl).': '.
-	         &Apache::lonnet::gettitle($resurl).'   ';
+        $newmail=$ENV{'course.'.$ENV{'request.course.id'}.'.description'};
+        my $maptitle=&Apache::lonnet::gettitle($mapurl);
+	my $restitle=&Apache::lonnet::gettitle($resurl);
+        if ($maptitle) {
+	    $newmail.=', '.$maptitle;
+        }
+        if ($restitle) {
+	    $newmail.=': '.$restitle;
+        }
+        $newmail.='   ';
     }
     if (&Apache::lonmsg::newmail()) { 
        $newmail=($textual?