loncom/interface/lonstatistics.pm - diff

Return to lonstatistics.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.106, 2004/06/24 19:32:37	version 1.108, 2004/07/15 21:08:45
Line 229 sub PrepareClasslist {	Line 229 sub PrepareClasslist {
}	}
#	#
# Set up %StudentData	# Set up %StudentData
@StudentDataOrder = qw/fullname username domain id section status/;	@StudentDataOrder = qw/fullname username domain id section status comments/;
foreach my $field (@StudentDataOrder) {	foreach my $field (@StudentDataOrder) {
$StudentData{$field}->{'title'} = $field;	$StudentData{$field}->{'title'} = &mt($field);
$StudentData{$field}->{'base_width'} = length($field);	$StudentData{$field}->{'base_width'} = length(&mt($field));
$StudentData{$field}->{'width'} =	$StudentData{$field}->{'width'} =
$StudentData{$field}->{'base_width'};	$StudentData{$field}->{'base_width'};
}	}
Line 941 sub Gather_Full_Student_Data {	Line 941 sub Gather_Full_Student_Data {
##################################################	##################################################
sub DisplayClasslist {	sub DisplayClasslist {
my ($r)=@_;	my ($r)=@_;
	&Apache::lonhtmlcommon::add_breadcrumb
	({text=>'Select One Student'});
#	#
# Output some of the standard interface components	# Output some of the standard interface components
my $Str;	my $Str;
	$Str .= &Apache::lonhtmlcommon::breadcrumbs(undef,'Select One Student');
$Str .= '<p><table cellspacing="5">'."\n";	$Str .= '<p><table cellspacing="5">'."\n";
$Str .= '<tr>';	$Str .= '<tr>';
$Str .= '<th align="center"><b>'.&mt('Sections').'</b></th>';	$Str .= '<th align="center"><b>'.&mt('Sections').'</b></th>';