version 1.6, 2008/06/30 17:04:11
|
version 1.7, 2008/07/08 01:55:52
|
Line 92 sub handler {
|
Line 92 sub handler {
|
foreach my $key (keys(%env)) { |
foreach my $key (keys(%env)) { |
if ($key =~ m-^user\.role\.st\./$cdom/$cnum/?(\w*)$-) { |
if ($key =~ m-^user\.role\.st\./$cdom/$cnum/?(\w*)$-) { |
my $sec = $1; |
my $sec = $1; |
if ($sec eq '') { |
|
$sec = &mt('none'); |
|
} |
|
my ($start,$end) = split(/\./,$env{$key}); |
my ($start,$end) = split(/\./,$env{$key}); |
my $status = 'active'; |
my $status = 'active'; |
if (($end) && ($end<=$now)) { |
if (($end) && ($end<=$now)) { |
Line 106 sub handler {
|
Line 103 sub handler {
|
if ($status eq 'active' || $status eq 'future') { |
if ($status eq 'active' || $status eq 'future') { |
$curr_role{'status'} = $status; |
$curr_role{'status'} = $status; |
$curr_role{'section'} = $sec; |
$curr_role{'section'} = $sec; |
|
if ($curr_role{'section'} eq '') { |
|
$curr_role{'section'} = &mt('none'); |
|
} |
$curr_role{'start'} = &Apache::lonlocal::locallocaltime($start); |
$curr_role{'start'} = &Apache::lonlocal::locallocaltime($start); |
$curr_role{'role'} = 'st./'.$cdom.'/'.$cnum; |
$curr_role{'role'} = 'st./'.$cdom.'/'.$cnum; |
if ($sec ne '') { |
if ($sec ne '') { |