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

version 1.4, 2006/08/17 23:36:05 version 1.11, 2020/09/08 23:54:40
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 31  use Apache::loncommon; Line 33  use Apache::loncommon;
 use Apache::lonhtmlcommon;  use Apache::lonhtmlcommon;
 use Apache::lonlocal;  use Apache::lonlocal;
 use Apache::longroup;  use Apache::longroup;
   use Apache::lonnavmaps;
 use LONCAPA;  use LONCAPA;
 use Apache::Constants qw(:common :http);  use Apache::Constants qw(:common :http);
 use lib '/home/httpd/lib/perl/';  use lib '/home/httpd/lib/perl/';
Line 65  sub handler { Line 68  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 83  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 109  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 142  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 158  function changeSort(caller) { Line 158  function changeSort(caller) {
         $output .= '<h3>'.&mt('Group membership status - [_1]',$description).          $output .= '<h3>'.&mt('Group membership status - [_1]',$description).
                    '</h3>';                     '</h3>';
     } else {      } else {
           my $view_permission =
               &Apache::lonnet::allowed('vcg',$env{'request.course.id'}.($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''));
           my $navmap=Apache::lonnavmaps::navmap->new();
           my $grouppagelink = &Apache::longroup::get_group_link($cdom,$cnum,$group,$navmap,$view_permission,$refarg);
           if ($grouppagelink) {
               &Apache::lonhtmlcommon::add_breadcrumb
               ({href=>$grouppagelink,
                 text=>&mt('Group').": $description",
                 title=>&mt("Go to group's home page"),
                 no_mt=>1},);
           } else {
               &Apache::lonhtmlcommon::add_breadcrumb
               ({text=>&mt('Group').": $description",
                 no_mt=>1});
           }
         &Apache::lonhtmlcommon::add_breadcrumb          &Apache::lonhtmlcommon::add_breadcrumb
             ({href=>"/adm/$cdom/$cnum/$group/smppg?$refarg",               ({href=>'/adm/grouproster?group='.$group.'&amp;'.$refarg,
               text=>"$ucgpterm: $description",                text=>"Membership Roster",
               title=>"Go to group's home page"},  
              {href=>'/adm/grouproster?group='.$group.'&amp;'.$refarg,  
               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('Group membership status - [_1]',$description),
                                                          undef,undef,undef,undef,1);
     }      }
     return $output;      return $output;
 }  }
Line 212  sub roster_table { Line 225  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 252  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 361  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.11

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