[LON-CAPA-cvs] cvs: doc /loncapafiles loncapafiles.lpml loncom/html/res/adm/pages rcrs.gif rcrs.png loncom/interface lonmenu.pm mydesk.tab

raeburn raeburn@source.lon-capa.org
Sun, 08 Feb 2009 20:50:32 -0000


raeburn		Sun Feb  8 20:50:32 2009 EDT

  Added files:                 
    /loncom/html/res/adm/pages	rcrs.gif rcrs.png 

  Modified files:              
    /loncom/interface	mydesk.tab lonmenu.pm 
    /doc/loncapafiles	loncapafiles.lpml 
  Log:
  - Link in Main Menu for "Request a new course", if user has rights to make a request.
  - New logos for "Request a new course" - rcrs.gif rcrs.png. 
  
  
Index: loncom/interface/mydesk.tab
diff -u loncom/interface/mydesk.tab:1.96 loncom/interface/mydesk.tab:1.97
--- loncom/interface/mydesk.tab:1.96	Mon Dec 22 21:13:25 2008
+++ loncom/interface/mydesk.tab	Sun Feb  8 20:50:19 2009
@@ -52,6 +52,7 @@
 2:2:course:any:nav.gif:navigate[_1]:contents[_1]:gonav('/adm/navmaps');:Navigate the table of contents for this course:crc
 2:3:clear
 3:1:clear
+3:2:tools:reqcrs:rcrs.gif:request-[_1]:course[_16]:go('/adm/requestcourse');:Request creation of a new course:oth
 4:1:clear
 4:1:course:any:grds.gif:my[_1]:grades[_1]:go('/adm/quickgrades');:View current problem status and grading information:grd
 4:1:pvgr:$crs:sprs.gif:course[_4]:grades[_2]:go('/adm/classcalc');:View calculated grades (Spreadsheet):grd
Index: loncom/interface/lonmenu.pm
diff -u loncom/interface/lonmenu.pm:1.250 loncom/interface/lonmenu.pm:1.251
--- loncom/interface/lonmenu.pm:1.250	Wed Dec 17 13:02:37 2008
+++ loncom/interface/lonmenu.pm	Sun Feb  8 20:50:19 2009
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines to control the menu
 #
-# $Id: lonmenu.pm,v 1.250 2008/12/17 13:02:37 harmsja Exp $
+# $Id: lonmenu.pm,v 1.251 2009/02/08 20:50:19 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1228,7 +1228,22 @@
             my @tools = ('aboutme','blog','portfolio');
             if (grep(/^\Q$prt\E$/,@tools)) {
                 if (!&Apache::lonnet::usertools_access($env{'user.name'},
-                                                       $env{'user.domain'},$prt)) {
+                                                       $env{'user.domain'},
+                                                       $prt,undef,'tools')) {
+                    $output.=&clear($row,$col);
+                    next;
+                }
+            } elsif ($prt eq 'reqcrs') {
+                my $showreqcrs = 0;
+                foreach my $type ('official','unofficial') {
+                    if (&Apache::lonnet::usertools_access($env{'user.name'},
+                                                    $env{'user.domain'},
+                                                    $type,undef,'requestcourses')) {
+                        $showreqcrs = 1;
+                        last;
+                    }
+                }
+                if (!$showreqcrs) {
                     $output.=&clear($row,$col);
                     next;
                 }
Index: doc/loncapafiles/loncapafiles.lpml
diff -u doc/loncapafiles/loncapafiles.lpml:1.627 doc/loncapafiles/loncapafiles.lpml:1.628
--- doc/loncapafiles/loncapafiles.lpml:1.627	Tue Dec 30 10:30:07 2008
+++ doc/loncapafiles/loncapafiles.lpml	Sun Feb  8 20:50:32 2009
@@ -2,7 +2,7 @@
  "http://lpml.sourceforge.net/DTD/lpml.dtd">
 <!-- loncapafiles.lpml -->
 
-<!-- $Id: loncapafiles.lpml,v 1.627 2008/12/30 10:30:07 foxr Exp $ -->
+<!-- $Id: loncapafiles.lpml,v 1.628 2009/02/08 20:50:32 raeburn Exp $ -->
 
 <!--
 
@@ -6414,6 +6414,7 @@
 prt.gif;
 pub.gif;
 qempty.gif;
+rcrs.gif;
 reload.gif;
 remotebg.gif;
 res.gif;
@@ -6470,6 +6471,7 @@
 parm.png;
 port.png;
 prt.png;
+rcrs.png;
 sbkm.png;
 src.png;
 srvr.png;