loncom/interface/selfenroll.pm - diff

Return to selfenroll.pm CVS log

Up to [LON-CAPA] / loncom / interface

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 '') {