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; |