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

Diff for /loncom/interface/loncoursegroups.pm between versions 1.1 and 1.2

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
Removed from v.1.1  
changed lines
  Added in v.1.2

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