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

Diff for /loncom/interface/grouproster.pm between versions 1.2 and 1.3

version 1.2, 2006/07/08 00:59:22 version 1.3, 2006/07/17 15:07:26
Line 52  sub handler { Line 52  sub handler {
         return HTTP_NOT_ACCEPTABLE;          return HTTP_NOT_ACCEPTABLE;
     }      }
   
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['group']);       &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['group','ref']); 
   
     my $gpterm  = &Apache::loncommon::group_term();      my $gpterm  = &Apache::loncommon::group_term();
     my $ucgpterm = $gpterm;      my $ucgpterm = $gpterm;
Line 91  sub handler { Line 91  sub handler {
                                             '/'.$group);                                              '/'.$group);
     my $view_details = &Apache::lonnet::allowed('vmd',$env{'request.course.id'}.'/'.$group);      my $view_details = &Apache::lonnet::allowed('vmd',$env{'request.course.id'}.'/'.$group);
   
     my $viewgrps = &Apache::lonnet::allowed('vcg',$env{'request.course.id'});      my $viewgrps = &Apache::lonnet::allowed('vcg',$env{'request.course.id'}.($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''));
     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)) {
Line 118  sub handler { Line 118  sub handler {
   
 sub roster_header {  sub roster_header {
     my ($cdom,$cnum,$group,$description,$gpterm,$ucgpterm) = @_;      my ($cdom,$cnum,$group,$description,$gpterm,$ucgpterm) = @_;
       my $refarg;
       if (exists($env{'form.ref'})) {
           $refarg = 'ref='.$env{'form.ref'};
           &Apache::lonhtmlcommon::add_breadcrumb
               ({href=>"/adm/coursegroups",
                 text=>"Groups",
                 title=>"View course groups"});
       }
     my $jscript = qq|      my $jscript = qq|
 function changeSort(caller) {  function changeSort(caller) {
     document.grouproster.sortby.value = caller;      document.grouproster.sortby.value = caller;
Line 128  function changeSort(caller) { Line 136  function changeSort(caller) {
                                        '<script type="text/javascript">'.                                         '<script type="text/javascript">'.
                                        $jscript.'</script>');                                         $jscript.'</script>');
     &Apache::lonhtmlcommon::add_breadcrumb      &Apache::lonhtmlcommon::add_breadcrumb
         ({href=>"/adm/$cdom/$cnum/$group/smppg",          ({href=>"/adm/$cdom/$cnum/$group/smppg?$refarg",
           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",           {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('[_1] membership status - [_2]',$gpterm,$description));
Line 144  sub roster_table { Line 152  sub roster_table {
   
     my $fixedprivs = &Apache::longroup::get_fixed_privs();      my $fixedprivs = &Apache::longroup::get_fixed_privs();
   
     my ($memberinfo,$hastools,$addtools,$numitems) =       my ($memberinfo,$numitems,$hastools,$addtools) = 
         &Apache::longroup::group_memberlist($cdom,$cnum,$group,$fixedprivs,          &Apache::longroup::group_memberlist($cdom,$cnum,$group,$fixedprivs,
                                             $available);                                              $available);
     my (%tooltype,$toolprivs);      my (%tooltype,$toolprivs);
Line 196  sub roster_table { Line 204  sub roster_table {
                   '<input type="submit" name="statusbutton" value="'.                    '<input type="submit" name="statusbutton" value="'.
                   $lt{'updi'}.'"><input type="hidden" name="sortby" value="'.                    $lt{'updi'}.'"><input type="hidden" name="sortby" value="'.
                   $env{'form.sortby'}.'"/>'.                    $env{'form.sortby'}.'"/>'.
                   '<input type="hidden" name="group" value="'.$group.                    '<input type="hidden" name="group" value="'.$group.'"/>');
                   '"/></form><br /><br />');          if (exists($env{'form.ref'})) {
               $r->print('<input type="hidden" name="ref" value="'.$env{'form.ref'}.
                         '" />');
           }
           $r->print('</form><br /><br />');
   
     }      }
     if (ref($numitems) eq 'HASH') {      if (ref($numitems) eq 'HASH') {
Line 214  sub roster_table { Line 226  sub roster_table {
  <input type="hidden" name="group" value="'.$group.'" />   <input type="hidden" name="group" value="'.$group.'" />
  <input type="hidden" name="sortby" value="'.$env{'form.sortby'}.'" />   <input type="hidden" name="sortby" value="'.$env{'form.sortby'}.'" />
 ');  ');
       if (exists($env{'form.ref'})) {
           $r->print('<input type="hidden" name="ref" value="'.$env{'form.ref'}.
                     '" />');
       }
     my %Sortby = ();      my %Sortby = ();
     my $usercount = 0;      my $usercount = 0;
     foreach my $user (sort(keys(%{$memberinfo}))) {      foreach my $user (sort(keys(%{$memberinfo}))) {
Removed from v.1.2  
changed lines
  Added in v.1.3

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