[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.9

version 1.4, 2006/08/17 23:36:05 version 1.9, 2010/03/22 20:11:22
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 139  sub roster_header { Line 141  sub roster_header {
     }      }
     my $args;      my $args;
     if ($env{'form.ref'} eq 'popup') {      if ($env{'form.ref'} eq 'popup') {
         $args = {           $args = { 'no_nav_bar'    => 1, };
                   'no_nav_bar'    => 1,  
                   'no_inline_link' => 1,  
                 };  
     }      }
     my $jscript = qq|      my $jscript = qq|
 function changeSort(caller) {  function changeSort(caller) {
Line 163  function changeSort(caller) { Line 162  function changeSort(caller) {
               text=>"$ucgpterm: $description",                text=>"$ucgpterm: $description",
               title=>"Go to group's home page"},                title=>"Go to group's home page"},
              {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 211  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 238  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;
             }              }
         }          }
Line 349  sub members_table_row { Line 347  sub members_table_row {
             $privlist =~ s/, $//;              $privlist =~ s/, $//;
             $output .= '<td>'.$privlist.'</td>';              $output .= '<td>'.$privlist.'</td>';
         } elsif ($view_details) {          } elsif ($view_details) {
             $output .= '<td><nobr>'.join('&nbsp;&nbsp;&nbsp;',              $output .= '<td><span class="LC_nobreak">'.join('&nbsp;&nbsp;&nbsp;',
                       @{$$userinfo{'currtools'}}).'</nobr></td>';                        @{$$userinfo{'currtools'}}).'</span></td>';
         }          }
     }      }
     $output .= &Apache::loncommon::end_data_table_row();      $output .= &Apache::loncommon::end_data_table_row();
Removed from v.1.4  
changed lines
  Added in v.1.9

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