version 1.111, 2006/12/06 22:22:38
|
version 1.114, 2008/10/23 09:07:51
|
Line 636 sub CreateInterface {
|
Line 636 sub CreateInterface {
|
$Str .= '</td></tr>'."\n"; |
$Str .= '</td></tr>'."\n"; |
$Str .= '</table>'."\n"; |
$Str .= '</table>'."\n"; |
# |
# |
$Str .= '<p>'.&mt('Status: [_1]', |
$Str .= '<p><span class="LC_nobreak">' |
'<input type="text" '. |
.&mt('Status: [_1]', |
'name="stats_status" size="60" value="" />' |
'<input type="text" name="stats_status"' |
). |
.' size="60" value="" readonly="readonly" />') |
'</nobr></p>'; |
.'</span></p>'; |
# |
# |
$Str .= '<input type="submit" name="GenerateStatistics" value="'. |
$Str .= '<input type="submit" name="GenerateStatistics" value="'. |
&mt('Generate Statistics').'" />'; |
&mt('Generate Statistics').'" />'; |
Line 714 sub BuildProblemStatisticsPage {
|
Line 714 sub BuildProblemStatisticsPage {
|
'</h3><p>'. |
'</h3><p>'. |
&mt('It may take some time to update the student data '. |
&mt('It may take some time to update the student data '. |
'for the first analysis. Future analysis this session '. |
'for the first analysis. Future analysis this session '. |
' will not have this delay.'). |
'will not have this delay.'). |
'</p>'); |
'</p>'); |
&clean_up(); |
&clean_up(); |
return; |
return; |
Line 728 sub BuildProblemStatisticsPage {
|
Line 728 sub BuildProblemStatisticsPage {
|
($navmap,@sequences) = |
($navmap,@sequences) = |
&Apache::lonstatistics::selected_sequences_with_assessments(); |
&Apache::lonstatistics::selected_sequences_with_assessments(); |
if (! ref($navmap)) { |
if (! ref($navmap)) { |
$r->print('<h1>'.&mt('A course-wide error occured.').'</h1>'. |
$r->print('<h1>'.&mt('A course-wide error occurred.').'</h1>'. |
'<h3>'.$navmap.'</h3>'); |
'<h3>'.$navmap.'</h3>'); |
&clean_up(); |
&clean_up(); |
return; |
return; |
Line 1593 sub get_statistics {
|
Line 1593 sub get_statistics {
|
($data->{'num_solved'}+0.1); |
($data->{'num_solved'}+0.1); |
# |
# |
# Get the due date for research purposes (commented out most of the time) |
# Get the due date for research purposes (commented out most of the time) |
# $data->{'duedate'} = |
# my $duedate = &Apache::lonnet::EXT('resource.'.$part.'.duedate',$symb);; |
# &Apache::lonnet::EXT('resource.'.$part.'.duedate',$symb); |
# my $opendate = &Apache::lonnet::EXT('resource.'.$part.'.opendate',$symb); |
# $data->{'opendate'} = |
# my $maxtries = &Apache::lonnet::EXT('resource.'.$part.'.maxtries',$symb); |
# &Apache::lonnet::EXT('resource.'.$part.'.opendate',$symb); |
# my $hinttries = &Apache::lonnet::EXT('resource.'.$part.'.hinttries',$symb); |
# $data->{'maxtries'} = |
my $weight = &Apache::lonnet::EXT('resource.'.$part.'.weight',$symb); |
# &Apache::lonnet::EXT('resource.'.$part.'.maxtries',$symb); |
$data->{'weight'} = $weight; |
# $data->{'hinttries'} = |
# $data->{'duedate'} = $duedate; |
# &Apache::lonnet::EXT('resource.'.$part.'.hinttries',$symb); |
# $data->{'opendate'} = $opendate; |
$data->{'weight'} = |
# $data->{'maxtries'} = $maxtries; |
&Apache::lonnet::EXT('resource.'.$part.'.weight',$symb); |
# $data->{'hinttries'} = $hinttries; |
# $data->{'resptypes'} = join(',',@{$resource->{'partdata'}->{$part}->{'ResponseTypes'}}); |
# $data->{'resptypes'} = join(',',@{$resource->{'partdata'}->{$part}->{'ResponseTypes'}}); |
return $data; |
return $data; |
} |
} |