version 1.925.2.8, 2010/01/16 15:57:51
|
version 1.925.2.9, 2010/01/16 19:56:54
|
Line 10703 sub new_roles_update {
|
Line 10703 sub new_roles_update {
|
next unless ($envkey =~ /^user\.role\./); |
next unless ($envkey =~ /^user\.role\./); |
$rolecount ++; |
$rolecount ++; |
} |
} |
|
my $newrolecount = 0; |
if (!$rolecount) { |
if (!$rolecount) { |
my %userenv; |
my %userenv; |
foreach my $crstype ('official','unofficial','community') { |
foreach my $crstype ('official','unofficial','community') { |
Line 10726 sub new_roles_update {
|
Line 10727 sub new_roles_update {
|
&Apache::lonnet::set_arearole($role,$where,$tstart,$tend, |
&Apache::lonnet::set_arearole($role,$where,$tstart,$tend, |
$env{'user.domain'},$env{'user.name'}); |
$env{'user.domain'},$env{'user.name'}); |
$userroles{'user.role.'.$spec} = $tstart.'.'.$tend; |
$userroles{'user.role.'.$spec} = $tstart.'.'.$tend; |
|
$newrolecount ++; |
unless (grep(/^\Q$role\E$/,@newroles)) { |
unless (grep(/^\Q$role\E$/,@newroles)) { |
push(@newroles,$role); |
push(@newroles,$role); |
} |
} |
Line 10746 sub new_roles_update {
|
Line 10748 sub new_roles_update {
|
} |
} |
&Apache::lonnet::appenv(\%userenv); |
&Apache::lonnet::appenv(\%userenv); |
} |
} |
return; |
return $newrolecount; |
} |
} |
|
|
# --- Get the symbolic name of a problem and the url |
# --- Get the symbolic name of a problem and the url |