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

[raeburn]

raeburn		Wed Nov 25 06:20:20 2009 EDT

  Modified files:              
    /loncom/interface	loncoursegroups.pm 
  Log:
  - Restore pre-1.92 behavior:
    - only display columns for which tools were enabled.
  
  
Index: loncom/interface/loncoursegroups.pm
diff -u loncom/interface/loncoursegroups.pm:1.106 loncom/interface/loncoursegroups.pm:1.107
--- loncom/interface/loncoursegroups.pm:1.106	Mon Nov 23 14:37:50 2009
+++ loncom/interface/loncoursegroups.pm	Wed Nov 25 06:20:20 2009
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: loncoursegroups.pm,v 1.106 2009/11/23 14:37:50 wenzelju Exp $
+# $Id: loncoursegroups.pm,v 1.107 2009/11/25 06:20:20 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2337,9 +2337,9 @@
 	      &Apache::lonhtmlcommon::row_title($lt{'func'},undef,
      						'LC_groups_functionality'));
     my @tableHeader;
-    foreach my $key (sort(keys(%{$functions}))){
-        push (@tableHeader,&mt($functions->{$key}));
-    }   
+    if ((ref($functions) eq 'HASH') && (ref($tools) eq 'ARRAY')) {
+        @tableHeader = map { $functions->{$_}; } @{$tools};
+    }
  $r->print(join('</td><td class="LC_groups_functionality">', @tableHeader));
     $r->print(&Apache::lonhtmlcommon::row_closure(1));
     my $fixed = '';