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.'&'.$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}))) { |