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

schafran schafran@source.lon-capa.org
Fri, 30 Jan 2009 16:13:24 -0000 

schafran		Fri Jan 30 16:13:24 2009 EDT

  Modified files:              
    /loncom/interface	loncoursegroups.pm longroup.pm 
    /loncom/localize/localize	de.pm 
  Log:
  mt function added, email renamed because its not email
  
  
  
Index: loncom/interface/loncoursegroups.pm
diff -u loncom/interface/loncoursegroups.pm:1.89 loncom/interface/loncoursegroups.pm:1.90
--- loncom/interface/loncoursegroups.pm:1.89	Tue Jan 20 16:38:39 2009
+++ loncom/interface/loncoursegroups.pm	Fri Jan 30 16:13:04 2009
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: loncoursegroups.pm,v 1.89 2009/01/20 16:38:39 bisitz Exp $
+# $Id: loncoursegroups.pm,v 1.90 2009/01/30 16:13:04 schafran Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -75,7 +75,7 @@
     my $crstype = &Apache::loncommon::course_type();
 
     my %functions = (
-                      email => 'Send Messages',
+                      communication => 'Send Messages', 
                       discussion => 'Discussion Boards',
                       chat => 'Chat',
                       files => 'File Repository',
@@ -1649,7 +1649,7 @@
     for (my $i=0; $i<$halfnum; $i++) {
         $r->print('<td><label><input type="checkbox" name="tool" value="'.
                   $allfunctions[$i].'" />&nbsp;'.
-                   $$functions{$allfunctions[$i]}.'</label></td>
+                   &mt($$functions{$allfunctions[$i]}).'</label></td>
                    <td>&nbsp;</td><td>&nbsp;</td>');
     }
     $r->print('<td><input type="button" value="'.&mt('check all').'" '.
@@ -1658,7 +1658,7 @@
     for (my $j=$halfnum; $j<@allfunctions; $j++) {
         $r->print('<td><label><input type="checkbox" name="tool" value="'.
                   $allfunctions[$j].'" />&nbsp;'.
-                  $$functions{$allfunctions[$j]}.'</label></td>
+                  &mt($$functions{$allfunctions[$j]}).'</label></td>
                   <td>&nbsp;</td><td>&nbsp;</td>');
     }
     if ($remnum) {
@@ -2299,8 +2299,12 @@
     );
     $r->print(&Apache::lonhtmlcommon::start_pick_box('LC_group_priv_box').
 	      &Apache::lonhtmlcommon::row_title($lt{'func'},undef,
-						'LC_groups_functionality'));
-    $r->print(join('</td><td class="LC_groups_functionality">',@{$tools}));
+     						'LC_groups_functionality'));
+    my @printtool = @{$tools};
+    foreach my $printtool (@printtool){
+	$printtool = &mt($printtool);
+    }
+    $r->print(join('</td><td class="LC_groups_functionality">', @printtool));
     $r->print(&Apache::lonhtmlcommon::row_closure(1));
     my $fixed = '';
     my $dynamic = '';
@@ -2316,7 +2320,7 @@
 		    $fixed .= '</td><td class="LC_groups_fixed">';
 		}
                 $fixed .= '<input type="hidden" name="defpriv" value="'.$priv.'" />'
-                         .'<span class="LC_nobreak">'.$$toolprivs{$tool}{$priv}.'&nbsp;';
+                         .'<span class="LC_nobreak">'.&mt($$toolprivs{$tool}{$priv}).'&nbsp;';
                 if ($action eq 'modify') {
                     if (grep(/^$tool$/,@{$available})) {
                         $fixed .= '<small>'.&mt('(on)').'<small>&nbsp;';
@@ -2331,7 +2335,7 @@
                     $dynamic .= '</tr>
                                  <tr>'."\n";
                 }
-                $dynamic .= '<td><span class="LC_nobreak"><label><input type="checkbox" name="defpriv" value="'.$priv.'" />'.$$toolprivs{$tool}{$priv}.'</label></span></td>'."\n";
+                $dynamic .= '<td><span class="LC_nobreak"><label><input type="checkbox" name="defpriv" value="'.$priv.'" />'.&mt($$toolprivs{$tool}{$priv}).'</label></span></td>'."\n";
             }
         }
         if ($privcount == 0) {
Index: loncom/interface/longroup.pm
diff -u loncom/interface/longroup.pm:1.18 loncom/interface/longroup.pm:1.19
--- loncom/interface/longroup.pm:1.18	Tue Jan 27 15:59:30 2009
+++ loncom/interface/longroup.pm	Fri Jan 30 16:13:04 2009
@@ -28,6 +28,7 @@
 
 use strict;
 use Apache::lonnet;
+use Apache::lonlocal;
 
 ###############################################
 =pod
@@ -437,12 +438,12 @@
 
 sub get_fixed_privs {
     my $fixedprivs = {
-                      email      => {sgm => 1},
-                      discussion => {vgb => 1},
-                      chat       => {pgc => 1},
-                      files      => {rgf => 1},
-                      roster     => {vgm => 1},
-                      homepage   => {vgh => 1},
+                      communication          => {sgm => 1},
+                      discussion     => {vgb => 1},
+                      chat           => {pgc => 1},
+                      files          => {rgf => 1},
+                      roster         => {vgm => 1},
+                      homepage       => {vgh => 1},
                      };
     return $fixedprivs;
 }
@@ -452,7 +453,7 @@
 sub get_tool_privs {
     my ($gpterm) = @_;
     my $toolprivs = {
-        email      => {
+        communication    => {
             sgm => 'Send '.$gpterm.' message',
             sgb => 'Broadcast message',
         },
Index: loncom/localize/localize/de.pm
diff -u loncom/localize/localize/de.pm:1.197 loncom/localize/localize/de.pm:1.198
--- loncom/localize/localize/de.pm:1.197	Thu Jan 29 14:33:17 2009
+++ loncom/localize/localize/de.pm	Fri Jan 30 16:13:24 2009
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # German Localization Lexicon
 #
-# $Id: de.pm,v 1.197 2009/01/29 14:33:17 bisitz Exp $
+# $Id: de.pm,v 1.198 2009/01/30 16:13:24 schafran Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -11304,6 +11304,9 @@
    'email'
 => 'E-Mail',
 
+   'communication'
+=> 'Kommunikation',
+
    'Broadcast message'
 => 'Broadcast-Nachricht',