loncom/interface/lontrackstudent.pm - diff

Return to lontrackstudent.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.20, 2006/05/30 12:46:09	version 1.21, 2006/12/06 22:22:37
Line 537 sub handler {	Line 537 sub handler {
# For now, just show all the data, in the future allow selection of	# For now, just show all the data, in the future allow selection of
# a student	# a student
my ($sname,$sdom) = split(':',$env{'form.selected_student'});	my ($sname,$sdom) = split(':',$env{'form.selected_student'});
if ($sname =~ /^\w$/ && $sdom =~ /^\w$/) {	if ($sname =~ /^$LONCAPA::username_re$/
	&& $sdom =~ /^$LONCAPA::domain_re$/) {
$r->print('<h2>'.	$r->print('<h2>'.
&mt('Recent activity of [_1]@[_2]',$sname,$sdom).	&mt('Recent activity of [_1]:[_2]',$sname,$sdom).
'</h2>');	'</h2>');
$r->print('<p>'.&mt(<<END).'</p>');	$r->print('<p>'.&mt(<<END).'</p>');
Compiling student activity data can take a long time.	Compiling student activity data can take a long time.
Line 548 END	Line 549 END
&get_data($r,\%prog_state,$navmap,	&get_data($r,\%prog_state,$navmap,
'student:'.$env{'form.selected_student'});	'student:'.$env{'form.selected_student'});
} else {	} else {
$r->print('<h2>'.&mt('Unable to process for [_1]@[_2]',	$r->print('<h2>'.&mt('Unable to process for [_1]:[_2]',
$sname,$sdom).'</h2>');	$sname,$sdom).'</h2>');
}	}
} else {	} else {