version 1.17, 2004/07/06 16:01:48
|
version 1.18, 2005/02/28 20:16:03
|
Line 85 sub BuildSubmissionTimePage {
|
Line 85 sub BuildSubmissionTimePage {
|
&mt('Graph Problem Submission Times').'" />'); |
&mt('Graph Problem Submission Times').'" />'); |
$r->print(' 'x5); |
$r->print(' 'x5); |
$r->print('<h3>'.&mt('Please select a problem to analyze').'</h3>'); |
$r->print('<h3>'.&mt('Please select a problem to analyze').'</h3>'); |
$r->print(&Apache::lonstathelpers::ProblemSelector('.')); |
$r->print(&Apache::lonstathelpers::problem_selector('.')); |
} else { |
} else { |
foreach my $button (@SubmitButtons) { |
foreach my $button (@SubmitButtons) { |
$r->print('<input type="submit" name="'.$button->{'name'}.'" '. |
$r->print('<input type="submit" name="'.$button->{'name'}.'" '. |
Line 101 sub BuildSubmissionTimePage {
|
Line 101 sub BuildSubmissionTimePage {
|
my $current_problem = &Apache::lonstathelpers::get_target_from_id |
my $current_problem = &Apache::lonstathelpers::get_target_from_id |
($ENV{'form.problemchoice'}); |
($ENV{'form.problemchoice'}); |
# |
# |
my ($prev,$curr,$next) = |
my ($navmap,$prev,$curr,$next) = |
&Apache::lonstathelpers::get_prev_curr_next($current_problem, |
&Apache::lonstathelpers::get_prev_curr_next($current_problem, |
'.', |
'.', |
'part'); |
'part'); |
Line 126 sub BuildSubmissionTimePage {
|
Line 126 sub BuildSubmissionTimePage {
|
if (! defined($resource)) { |
if (! defined($resource)) { |
$r->print('resource is undefined'); |
$r->print('resource is undefined'); |
} else { |
} else { |
$r->print('<h1>'.$resource->{'title'}.'</h1>'); |
$r->print('<h1>'.$resource->compTitle.'</h1>'); |
$r->print('<h3>'.$resource->{'src'}.'</h3>'); |
$r->print('<h3>'.$resource->src.'</h3>'); |
$r->rflush(); |
$r->rflush(); |
$r->print(&Apache::lonstathelpers::render_resource($resource)); |
$r->print(&Apache::lonstathelpers::render_resource($resource)); |
$r->print('<br />'); |
$r->print('<br />'); |
$r->rflush(); |
$r->rflush(); |
$r->print(&analyze_times($r,$resource,\@Students, |
$r->print(&analyze_times($r,$resource->symb,\@Students, |
$current_problem->{'part'})); |
$current_problem->{'part'})); |
} |
} |
$r->print('<hr />'); |
$r->print('<hr />'); |
Line 158 sub get_week_start {
|
Line 158 sub get_week_start {
|
} |
} |
|
|
sub analyze_times { |
sub analyze_times { |
my ($r,$resource,$students,$part) = @_; |
my ($r,$symb,$students,$part) = @_; |
my $htmltable; |
my $htmltable; |
# |
# |
# Convenience arrays |
# Convenience arrays |
Line 170 sub analyze_times {
|
Line 170 sub analyze_times {
|
my $html; # holds results of analysis |
my $html; # holds results of analysis |
# Get the data |
# Get the data |
my $SubData = &Apache::loncoursedata::get_response_time_data |
my $SubData = &Apache::loncoursedata::get_response_time_data |
($students,$resource->{'symb'},$part); |
(\@Apache::lonstatistics::SelectedSections, |
|
$Apache::lonstatistics::enrollment_status, |
|
$symb,$part); |
if (! defined($SubData) || ! ref($SubData)) { |
if (! defined($SubData) || ! ref($SubData)) { |
$html.= '<h2>There is no submission data for this problem</h2>'; |
$html.= '<h2>There is no submission data for this problem at all</h2>'; |
return $html; |
return $html; |
} |
} |
my $NumSub = scalar(@{$SubData}); |
my $NumSub = scalar(@{$SubData}); |