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

[albertel]

albertel		Tue May 16 16:43:58 2006 EDT

  Modified files:              
    /loncom/interface	lonparmset.pm 
  Log:
  - wasn't actually displaying the group name on the specfic parm display screen
  
  
Index: loncom/interface/lonparmset.pm
diff -u loncom/interface/lonparmset.pm:1.305 loncom/interface/lonparmset.pm:1.306
--- loncom/interface/lonparmset.pm:1.305	Mon May 15 19:40:54 2006
+++ loncom/interface/lonparmset.pm	Tue May 16 16:43:57 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.305 2006/05/15 23:40:54 albertel Exp $
+# $Id: lonparmset.pm,v 1.306 2006/05/16 20:43:57 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -91,11 +91,11 @@
 
 Returns:  A list, the first item is the index into the remaining list of items of parm valuse that is the active one, the list consists of parm values at the 14 possible levels
 
-14 - General Course
-13 - Map or Folder level in course
+14- General Course
+13- Map or Folder level in course
 12- resource default
 11- map default
-10 - resource level in course
+10- resource level in course
 9 - General for section
 8 - Map or Folder level for section
 7 - resource level in section
@@ -1512,7 +1512,7 @@
             @usersgroups = &Apache::lonnet::get_users_groups(
                                        $udom,$uname,$env{'request.course.id'});
             if (@usersgroups > 0) {
-                unless (grep/^\Q$cgroup\E$/,@usersgroups) {
+                unless (grep(/^\Q$cgroup\E$/,@usersgroups)) {
                     $cgroup = $usersgroups[0];
                 }
             }
@@ -1930,7 +1930,7 @@
             }
             
             if ($csec) {$r->print(&mt("Section")."<font color=\"red\"> <i>$csec</i></font>\n")};
-            if ($cgroup) {$r->print(&mt("Group")."<font color=\"red\"> <i>$csec</i></font>\n")};
+            if ($cgroup) {$r->print(&mt("Group")."<font color=\"red\"> <i>$cgroup</i></font>\n")};
             $r->print("</h4>\n");
 #---------------------------------------------------------------- print table
             $r->print('<p><table border="2">');