[BACK]Return to grouproster.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/grouproster.pm between versions 1.4 and 1.5

version 1.4, 2006/08/17 23:36:05 version 1.5, 2008/04/22 17:08:52
Line 1 Line 1
 # The LearningOnline Network with CAPA  # The LearningOnline Network with CAPA
 #  #
   # $Id 
   #
 # Copyright Michigan State University Board of Trustees  # Copyright Michigan State University Board of Trustees
 #  #
 # This file is part of the LearningOnline Network with CAPA (LON-CAPA).  # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
Line 65  sub handler { Line 67  sub handler {
     # Validating group input.      # Validating group input.
     my $badinput;       my $badinput; 
     if ((!defined($env{'form.group'})) || ($env{'form.group'} eq '')) {      if ((!defined($env{'form.group'})) || ($env{'form.group'} eq '')) {
         $r->print(&mt('No group name provided.<br />'));          $r->print(&mt('No group name provided.').'<br />');
         $badinput = 1;          $badinput = 1;
     } else {      } else {
         $group = $env{'form.group'};          $group = $env{'form.group'};
         $group =~ s/\W//g;          $group =~ s/\W//g;
     }      }
     if (!$badinput && $group eq '') {      if (!$badinput && $group eq '') {
         $r->print(&mt('Invalid group name provided.<br />'));          $r->print(&mt('Invalid group name provided.').'<br />');
         $badinput = 1;          $badinput = 1;
     }      }
   
Line 80  sub handler { Line 82  sub handler {
     my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};      my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
   
     if ($cdom eq '' || $cnum eq '') {      if ($cdom eq '' || $cnum eq '') {
         $r->print(&mt('Invalid [_1]<br />',$crstype));          $r->print(&mt('Invalid [_1]',$crstype).'<br />');
         $badinput = 1;          $badinput = 1;
     }      }
   
Line 106  sub handler { Line 108  sub handler {
     my $editgrps = &Apache::lonnet::allowed('mdg',$env{'request.course.id'});      my $editgrps = &Apache::lonnet::allowed('mdg',$env{'request.course.id'});
   
     if ((!$can_view) && (!$view_details) && (!$viewgrps) && (!$editgrps)) {      if ((!$can_view) && (!$view_details) && (!$viewgrps) && (!$editgrps)) {
         $r->print(&mt('You do not have privileges to view the membership roster in this [_1]',$gpterm));          $r->print(&mt('You do not have privileges to view the membership roster in this '.$gpterm.'.'));
         return OK;          return OK;
     }      }
     my %content = &Apache::longroup::get_group_settings($curr_groups{$group});      my %content = &Apache::longroup::get_group_settings($curr_groups{$group});
Line 165  function changeSort(caller) { Line 167  function changeSort(caller) {
              {href=>'/adm/grouproster?group='.$group.'&amp;'.$refarg,               {href=>'/adm/grouproster?group='.$group.'&amp;'.$refarg,
               text=>"Membership roster",                text=>"Membership roster",
               title=>"Display group membership"},);                title=>"Display group membership"},);
         $output .= &Apache::lonhtmlcommon::breadcrumbs(&mt('[_1] membership status - [_2]',$gpterm,$description));          $output .= &Apache::lonhtmlcommon::breadcrumbs(&mt($gpterm.' membership status - [_1]',$description));
     }      }
     return $output;      return $output;
 }  }
Line 212  sub roster_table { Line 214  sub roster_table {
     if (($viewgrps) || ($editgrps) ||       if (($viewgrps) || ($editgrps) || 
         (&Apache::lonnet::allowed('vmd',$env{'request.course.id'}.'/'.$group))) {          (&Apache::lonnet::allowed('vmd',$env{'request.course.id'}.'/'.$group))) {
         if (keys(%{$memberinfo}) == 0) {          if (keys(%{$memberinfo}) == 0) {
             $r->print(&mt('There are no membership data to display for this [_1]',              $r->print(&mt('There are no membership data to display for this '.$gpterm.'.'));  
                       $gpterm));    
             return;                return;  
         }            }  
         $r->print('<br /><form name="rosterstatus" method="post" action="/adm/grouproster">'.&mt('Membership status: ').'<select name="status">');          $r->print('<br /><form name="rosterstatus" method="post" action="/adm/grouproster">'.&mt('Membership status: ').'<select name="status">');
Line 240  sub roster_table { Line 241  sub roster_table {
     if (ref($numitems) eq 'HASH') {      if (ref($numitems) eq 'HASH') {
         foreach my $key (keys(%{$numitems})) {          foreach my $key (keys(%{$numitems})) {
             if ($status eq $key && !$$numitems{$key}) {              if ($status eq $key && !$$numitems{$key}) {
                 $r->print(&mt('There are no [_1]s to display in this [_2].',                  $r->print(&mt('There are no '.$gpterm.'s to display in this [_1].',
                               lc($lt{$key}),$gpterm));                                lc($lt{$key})));
                 return;                  return;
             }              }
         }          }
Removed from v.1.4  
changed lines
  Added in v.1.5

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>