version 1.106, 2004/06/24 19:32:37
|
version 1.109, 2004/09/02 21:05:24
|
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>'; |
Line 1152 sub handler {
|
Line 1155 sub handler {
|
'SelectedStudent']); |
'SelectedStudent']); |
# |
# |
# Give the LON-CAPA page header |
# Give the LON-CAPA page header |
|
my $style = <<ENDSTYLE; |
|
<style type="text/css"> |
|
ul.sub_studentans { list-style-type: none } |
|
ul.sub_correctans { list-style-type: none } |
|
</style> |
|
ENDSTYLE |
$r->print('<html><head><title>'. |
$r->print('<html><head><title>'. |
&mt('Course Statistics and Charts'). |
&mt('Course Statistics and Charts'). |
"</title></head>\n". |
'</title>'.$style. |
|
"</head>\n". |
&Apache::loncommon::bodytag('Course Statistics and Charts')); |
&Apache::loncommon::bodytag('Course Statistics and Charts')); |
$r->rflush(); |
$r->rflush(); |
# |
# |