loncom/interface/lonuserutils.pm - diff

Return to lonuserutils.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.71, 2008/10/07 19:40:39	version 1.72, 2008/10/15 13:00:24
Line 1477 sub print_userlist {	Line 1477 sub print_userlist {
$permission,$env{'form.Status'},\%userlist,$keylist);	$permission,$env{'form.Status'},\%userlist,$keylist);
}	}
if (!$usercount) {	if (!$usercount) {
$r->print('<br />'.&mt('There are no users matching the search criteria.'));	$r->print('<br /><span class="LC_warning">'
	.&mt('There are no users matching the search criteria.')
	.'</span>'
	);
}	}
}	}
$r->print('<input type="hidden" name="phase" value="'.	$r->print('<input type="hidden" name="phase" value="'.
Line 1901 sub aggregate_user_info {	Line 1904 sub aggregate_user_info {
sub process_date_info {	sub process_date_info {
my ($userdata) = @_;	my ($userdata) = @_;
my $now = time;	my $now = time;
$userdata->{'status'} = 'Active';	$userdata->{'status'} = &mt('Active');
if ($userdata->{'start'} > 0) {	if ($userdata->{'start'} > 0) {
if ($now < $userdata->{'start'}) {	if ($now < $userdata->{'start'}) {
$userdata->{'status'} = 'Future';	$userdata->{'status'} = &mt('Future');
}	}
}	}
if ($userdata->{'end'} > 0) {	if ($userdata->{'end'} > 0) {
if ($now > $userdata->{'end'}) {	if ($now > $userdata->{'end'}) {
$userdata->{'status'} = 'Expired';	$userdata->{'status'} = &mt('Expired');
}	}
}	}
return;	return;