version 1.1, 2005/10/27 23:32:27
|
version 1.2, 2005/10/27 23:42:17
|
Line 104 ENDHEAD
|
Line 104 ENDHEAD
|
|
|
sub print_main_menu { |
sub print_main_menu { |
my ($r,$manage_permission,$view_permission)=@_; |
my ($r,$manage_permission,$view_permission)=@_; |
my ($cdom,$cnum) = split/_/,$env{'request.course.id'}; |
|
my @menu = |
my @menu = |
( |
( |
{ text => 'Create a new group', |
{ text => 'Create a new group', |
Line 161 ENDFOOT
|
Line 160 ENDFOOT
|
|
|
sub first_creation_form { |
sub first_creation_form { |
my ($r) = @_; |
my ($r) = @_; |
|
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
|
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
my %lt = &Apache::lonlocal::texthash( |
my %lt = &Apache::lonlocal::texthash( |
'gmem' => 'Group membership options', |
'gmem' => 'Group membership options', |
'picr' => 'Pick the criteria to use to build a list of course users from which you will select members of the new group', |
'picr' => 'Pick the criteria to use to build a list of course users from which you will select members of the new group', |
Line 184 sub first_creation_form {
|
Line 185 sub first_creation_form {
|
my @sections = (); |
my @sections = (); |
my $section_sel = ''; |
my $section_sel = ''; |
my $numvisible; |
my $numvisible; |
my $numsections = &Apache::loncommon::get_sections($env{'course.'.$env{'request.course.id'}.'.domain'},$env{'course.'.$env{'request.course.id'}.'.num'},\%sectioncount); |
my $numsections = &Apache::loncommon::get_sections($cdom,$cnum, |
|
\%sectioncount); |
|
|
@sections = sort {$a cmp $b} keys(%sectioncount); |
@sections = sort {$a cmp $b} keys(%sectioncount); |
unshift(@sections,'all'); # Put 'all' at the front of the list |
unshift(@sections,'all'); # Put 'all' at the front of the list |