version 1.273, 2005/09/14 21:25:52
|
version 1.274, 2005/09/16 16:01:18
|
Line 2946 sub get_users_function {
|
Line 2946 sub get_users_function {
|
|
|
=pod |
=pod |
|
|
|
=item check_user_status |
|
|
|
Determines current status of supplied role for a |
|
specific user. Roles can be active, previous or future. |
|
|
|
Inputs: |
|
user's domain, user's username, course's domain, |
|
course's number, optional section/group. |
|
|
|
Outputs: |
|
role status: active, previous or future. |
|
|
|
=cut |
|
|
|
sub check_user_status { |
|
my ($udom,$uname,$cdom,$crs,$role,$secgrp) = @_; |
|
my %userinfo = &Apache::lonnet::dump('roles',$udom,$uname); |
|
my @uroles = keys %userinfo; |
|
my $srchstr; |
|
my $active_chk = 'none'; |
|
if (@uroles > 0) { |
|
if (($role eq 'cc') || ($secgrp eq '') || (!defined($secgrp))) { |
|
$srchstr = '/'.$cdom.'/'.$crs.'_'.$role; |
|
} else { |
|
$srchstr = '/'.$cdom.'/'.$crs.'/'.$secgrp.'_'.$role; } |
|
if (grep/^$srchstr$/,@uroles) { |
|
my $role_end = 0; |
|
my $role_start = 0; |
|
$active_chk = 'active'; |
|
if ($userinfo{$srchstr} =~ m/^($role)_(\d+)/) { |
|
$role_end = $2; |
|
if ($userinfo{$srchstr} =~ m/^($role)_($role_end)_(\d+)$/) { |
|
$role_start = $3; |
|
} |
|
} |
|
if ($role_start > 0) { |
|
if (time < $role_start) { |
|
$active_chk = 'future'; |
|
} |
|
} |
|
if ($role_end > 0) { |
|
if (time > $role_end) { |
|
$active_chk = 'previous'; |
|
} |
|
} |
|
} |
|
} |
|
return $active_chk; |
|
} |
|
|
|
############################################### |
|
|
|
=pod |
|
|
=item get_sections |
=item get_sections |
|
|
Determines all the sections for a course including |
Determines all the sections for a course including |
Line 2998 sub get_sections {
|
Line 3052 sub get_sections {
|
return $numsections; |
return $numsections; |
} |
} |
|
|
|
############################################### |
|
|
|
|
sub get_posted_cgi { |
sub get_posted_cgi { |
my $r=shift; |
my $r=shift; |