[LON-CAPA-cvs] cvs: rat / lonwrapper.pm

[raeburn]

raeburn		Tue Nov 24 05:37:35 2009 EDT

  Modified files:              
    /rat	lonwrapper.pm 
  Log:
  - Number of rows in upper frame reduced for new inline navigation.
    - Try to allow extra rows if user has a role where a "Functions" box is displayed by checking opa priv for course. 
  
  
Index: rat/lonwrapper.pm
diff -u rat/lonwrapper.pm:1.36 rat/lonwrapper.pm:1.37
--- rat/lonwrapper.pm:1.36	Wed Oct 21 23:47:11 2009
+++ rat/lonwrapper.pm	Tue Nov 24 05:37:35 2009
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Wrapper for external and binary files as standalone resources
 #
-# $Id: lonwrapper.pm,v 1.36 2009/10/21 23:47:11 raeburn Exp $
+# $Id: lonwrapper.pm,v 1.37 2009/11/24 05:37:35 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -55,10 +55,12 @@
 
     my %layout = ('border' => 0);
     if ($env{'environment.remote'} eq 'off') {
-        if ($env{'environment.icons'} eq 'iconsonly') {
-           $layout{'rows'} = "140,*";
+        if (($env{'request.course.id'}) &&
+            (&Apache::lonnet::allowed('opa',$env{'request.course.id'}.
+             ($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:'')))) {
+            $layout{'rows'} = "135,*";
         } else {
-	   $layout{'rows'} = "220,*";
+            $layout{'rows'} = "100,*";
         }
     } else {
 	$layout{'rows'} = "1,*";