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

Diff for /loncom/interface/loncreateuser.pm between versions 1.113 and 1.114

version 1.113, 2006/05/08 21:40:20 version 1.114, 2006/05/09 14:38:10
Line 302  sub print_user_modification_page { Line 302  sub print_user_modification_page {
     my $dc_setcourse_code = '';      my $dc_setcourse_code = '';
     my $nondc_setsection_code = '';      my $nondc_setsection_code = '';
     my %loaditem;      my %loaditem;
     my (%curr_groups,$groupslist,$numgroups);  
     if (exists($env{'request.course.id'})) {      my $groupslist;
         my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};      my %curr_groups = &Apache::loncommon::coursegroups();
         my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};      if (%curr_groups) {
         $numgroups = &Apache::loncommon::coursegroups(\%curr_groups,$cdom,  
                                                          $cnum);  
     }  
     if ($numgroups > 0) {  
         $groupslist = join('","',sort(keys(%curr_groups)));          $groupslist = join('","',sort(keys(%curr_groups)));
         $groupslist = '"'.$groupslist.'"';             $groupslist = '"'.$groupslist.'"';   
     }      }
   
     if ($env{'request.role'} =~ m-^dc\./(\w+)/$-) {      if ($env{'request.role'} =~ m-^dc\./(\w+)/$-) {
         my $dcdom = $1;          my $dcdom = $1;
         $loaditem{'onload'} = "document.cu.coursedesc.value=''";          $loaditem{'onload'} = "document.cu.coursedesc.value=''";
Line 1209  END Line 1206  END
         }          }
     }      }
     ##      ##
     my %curr_groups;  
     my $now=time;      my $now=time;
     $r->print('<h3>'.&mt('Modifying Roles').'</h3>');      $r->print('<h3>'.&mt('Modifying Roles').'</h3>');
     foreach (keys (%env)) {      foreach (keys (%env)) {
Line 1310  END Line 1306  END
                 if ($num_sections == 0) {                  if ($num_sections == 0) {
                     $r->print(&commit_customrole($udom,$uname,$url,$three,$four,$five,$start,$end));                      $r->print(&commit_customrole($udom,$uname,$url,$three,$four,$five,$start,$end));
                 } else {                  } else {
                     my $numgrp=&Apache::loncommon::coursegroups(\%curr_groups,      my %curr_groups =
                                                                 $one,$two);   &Apache::loncommon::coursegroups($one,$two);
                     foreach my $sec (sort {$a cmp $b} keys %sections) {                      foreach my $sec (sort {$a cmp $b} keys %sections) {
                         if (($sec eq 'none') || ($sec eq 'all') ||                           if (($sec eq 'none') || ($sec eq 'all') || 
                             exists($curr_groups{$sec})) {                              exists($curr_groups{$sec})) {
Line 1340  END Line 1336  END
                 if ($num_sections == 0) {                  if ($num_sections == 0) {
                     $r->print(&commit_standardrole($udom,$uname,$url,$three,$start,$end,$one,$two,''));                      $r->print(&commit_standardrole($udom,$uname,$url,$three,$start,$end,$one,$two,''));
                 } else {                  } else {
                     my $numgrp=&Apache::loncommon::coursegroups(\%curr_groups,                      my %curr_groups = 
                                                                 $one,$two);   &Apache::loncommon::coursegroups($one,$two);
                     my $emptysec = 0;                      my $emptysec = 0;
                     foreach my $sec (sort {$a cmp $b} keys %sections) {                      foreach my $sec (sort {$a cmp $b} keys %sections) {
                         $sec =~ s/\W//g;                          $sec =~ s/\W//g;
Removed from v.1.113  
changed lines
  Added in v.1.114

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