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

[raeburn]

raeburn		Fri Apr 27 22:07:11 2018 EDT

  Modified files:              
    /loncom/interface	lonmenu.pm mydesk.tab 
  Log:
  - Chat item included in inline menu in course, if user has plc priv in
    course.
  
  
Index: loncom/interface/lonmenu.pm
diff -u loncom/interface/lonmenu.pm:1.488 loncom/interface/lonmenu.pm:1.489
--- loncom/interface/lonmenu.pm:1.488	Fri Apr 27 20:14:16 2018
+++ loncom/interface/lonmenu.pm	Fri Apr 27 22:07:11 2018
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines to control the menu
 #
-# $Id: lonmenu.pm,v 1.488 2018/04/27 20:14:16 raeburn Exp $
+# $Id: lonmenu.pm,v 1.489 2018/04/27 22:07:11 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -405,6 +405,7 @@
     my $canmodpara    = &Apache::lonnet::allowed('opa', $crs_sec);
     my $canvgr        = &Apache::lonnet::allowed('vgr', $crs_sec);
     my $canmgr        = &Apache::lonnet::allowed('mgr', $crs_sec); 
+    my $canplc        = &Apache::lonnet::allowed('plc', $crs_sec);
     my $author        = &getauthor();
 
     my ($cdom,$cnum,$showsyllabus,$showfeeds,$showresv,$grouptools);
@@ -488,6 +489,8 @@
                 && !$showsyllabus;
         next if    $$menuitem[4]   eq 'showfeeds'
                 && !$showfeeds;
+        next if     $$menuitem[4]  eq 'plc'
+                && !$canplc;
         next if    $$menuitem[4]    eq 'author'
                 && !$author;
         next if    $$menuitem[4]    eq 'cca'
@@ -582,6 +585,7 @@
     }
     $menu =~ s/\[uname\]/$$author{user}/g;
     $menu =~ s/\[udom\]/$$author{dom}/g;
+    $menu =~ s/\[javascript\]/javascript:/;
     if ($env{'request.course.id'}) {
         $menu =~ s/\[cnum\]/$cnum/g;
         $menu =~ s/\[cdom\]/$cdom/g;
Index: loncom/interface/mydesk.tab
diff -u loncom/interface/mydesk.tab:1.177 loncom/interface/mydesk.tab:1.178
--- loncom/interface/mydesk.tab:1.177	Fri Apr 27 20:14:16 2018
+++ loncom/interface/mydesk.tab	Fri Apr 27 22:07:11 2018
@@ -1,4 +1,4 @@
-# $Id: mydesk.tab,v 1.177 2018/04/27 20:14:16 raeburn Exp $
+# $Id: mydesk.tab,v 1.178 2018/04/27 22:07:11 raeburn Exp $
 # primary menu links
 # Apache::lonmenu::primary_menu() generates a menu from these elements
 # prim: item belongs to primary menu
@@ -82,6 +82,7 @@
 scnd:/adm/navmaps?postdata=[url]&postsymb=[symb]:::Contents:
 scnd:/adm/whatsnew:::What's New:whn
 scnd:/adm/quickgrades:::Grades:nvgr
+scnd:[javascript]chat_win();:::Chat:plc
 scnd::::Grades:vgr
 scnd::::People:viewusers
 scnd::::Settings:params