version 1.10, 2004/01/19 21:31:08
|
version 1.14, 2004/03/01 16:39:19
|
Line 45 my $plotcolors = ['#33ff00',
|
Line 45 my $plotcolors = ['#33ff00',
|
]; |
]; |
|
|
my @SubmitButtons = ( |
my @SubmitButtons = ( |
{ name => 'ProblemAnalyis', |
{ name => 'PrevProblemAnalysis', |
|
text => 'Previous Problem' }, |
|
{ name => 'ProblemAnalysis', |
text => 'Analyze Problem Again' }, |
text => 'Analyze Problem Again' }, |
|
{ name => 'NextProblemAnalysis', |
|
text => 'Next Problem' }, |
{ name => 'SelectAnother', |
{ name => 'SelectAnother', |
text => 'Choose a different resource' }, |
text => 'Choose a different Problem' }, |
); |
); |
|
|
sub BuildSubmissionTimePage { |
sub BuildSubmissionTimePage { |
Line 63 sub BuildSubmissionTimePage {
|
Line 67 sub BuildSubmissionTimePage {
|
# |
# |
&Apache::lonstatistics::PrepareClasslist(); |
&Apache::lonstatistics::PrepareClasslist(); |
# |
# |
$r->print('<h2>'.&mt('Submission Time Plots').'</h2>'); |
|
$r->print(&CreateInterface()); |
$r->print(&CreateInterface()); |
# |
# |
my @Students = @Apache::lonstatistics::Students; |
my @Students = @Apache::lonstatistics::Students; |
Line 92 sub BuildSubmissionTimePage {
|
Line 95 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(&ProblemSelector()); |
$r->print(&Apache::lonstathelpers::ProblemSelector('.')); |
} 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'}.'" '. |
'value="'.&mt($button->{'text'}).'" />'); |
'value="'.&mt($button->{'text'}).'" />'); |
$r->print(' 'x5); |
$r->print(' 'x5); |
} |
} |
|
# |
|
# Determine which problem we are to analyze |
|
my $current_problem = &Apache::lonstathelpers::get_target_from_id |
|
($ENV{'form.problemchoice'}); |
|
# |
|
my ($prev,$curr,$next) = |
|
&Apache::lonstathelpers::get_prev_curr_next($current_problem, |
|
'.', |
|
'part'); |
|
if (exists($ENV{'form.PrevProblemAnalysis'}) && defined($prev)) { |
|
$current_problem = $prev; |
|
} elsif (exists($ENV{'form.NextProblemAnalysis'}) && defined($next)) { |
|
$current_problem = $next; |
|
} else { |
|
$current_problem = $curr; |
|
} |
|
# |
|
# Store the current problem choice and send it out in the form |
|
$ENV{'form.problemchoice'} = |
|
&Apache::lonstathelpers::make_target_id($current_problem); |
$r->print('<input type="hidden" name="problemchoice" value="'. |
$r->print('<input type="hidden" name="problemchoice" value="'. |
$ENV{'form.problemchoice'}.'" />'); |
$ENV{'form.problemchoice'}.'" />'); |
# |
# |
$r->print('<hr />'); |
$r->print('<hr />'); |
# |
|
my ($symb,$part) = &get_problem_symb( |
|
&Apache::lonnet::unescape($ENV{'form.problemchoice'})); |
|
$r->rflush(); |
$r->rflush(); |
# |
# |
my $resource = &get_resource_from_symb($symb); |
my $resource = $current_problem->{'resource'}; |
if (! defined($resource)) { |
if (! defined($resource)) { |
$r->print('resource is undefined'); |
$r->print('resource is undefined'); |
} else { |
} else { |
Line 117 sub BuildSubmissionTimePage {
|
Line 137 sub BuildSubmissionTimePage {
|
$r->rflush(); |
$r->rflush(); |
$r->print(&Apache::lonstathelpers::render_resource($resource)); |
$r->print(&Apache::lonstathelpers::render_resource($resource)); |
$r->rflush(); |
$r->rflush(); |
$r->print(&analyze_times($r,$resource,\@Students,$part)); |
$r->print(&analyze_times($r,$resource,\@Students, |
|
$current_problem->{'part'})); |
} |
} |
$r->print('<hr />'); |
$r->print('<hr />'); |
} |
} |
Line 312 sub CreateInterface {
|
Line 333 sub CreateInterface {
|
## |
## |
## Build the menu |
## Build the menu |
my $Str = ''; |
my $Str = ''; |
|
$Str .= &Apache::lonhtmlcommon::breadcrumbs(undef,'Submission Time Plots'); |
$Str .= '<table cellspacing="5">'."\n"; |
$Str .= '<table cellspacing="5">'."\n"; |
$Str .= '<tr>'; |
$Str .= '<tr>'; |
$Str .= '<td align="center"><b>'.&mt('Sections').'</b></td>'; |
$Str .= '<td align="center"><b>'.&mt('Sections').'</b></td>'; |
Line 345 sub CreateInterface {
|
Line 367 sub CreateInterface {
|
return $Str; |
return $Str; |
} |
} |
|
|
sub ProblemSelector { |
|
my $Str; |
|
$Str = "<table>\n"; |
|
foreach my $seq (&Apache::lonstatistics::Sequences_with_Assess()) { |
|
next if ($seq->{'num_assess'}<1); |
|
my $seq_str = ''; |
|
foreach my $res (@{$seq->{'contents'}}) { |
|
next if ($res->{'type'} ne 'assessment'); |
|
if (@{$res->{'parts'}} == 1) { |
|
my $value = &Apache::lonnet::escape($res->{'symb'}.':'. |
|
$res->{'parts'}->[0]); |
|
my $checked; |
|
if ($ENV{'form.problemchoice'} eq $value) { |
|
$checked = 'checked '; |
|
} |
|
my $title = $res->{'title'}; |
|
if (! defined($title) || $title eq '') { |
|
($title) = ($res->{'src'} =~ m:/([^/]*)$:); |
|
} |
|
# &Apache::lonnet::logthis('title = :'.$title.':'); |
|
$seq_str .= '<tr><td>'. |
|
'<input type="radio" name="problemchoice" value="'.$value.'" '.$checked.'/>'. |
|
'</td><td>'. |
|
'<a href="'.$res->{'src'}.'">'.$title.'</a> '; |
|
} else { |
|
my $title = $res->{'title'}; |
|
if (! defined($title) || $title eq '') { |
|
($title) = ($res->{'src'} =~ m:/([^/]*)$:); |
|
} |
|
$seq_str .= '<tr><td>'. |
|
' '.'</td><td>'. |
|
'<a href="'.$res->{'src'}.'">'.$title.'</a>'. |
|
"</td></tr>\n"; |
|
foreach my $part (@{$res->{'parts'}}) { |
|
my $value = &Apache::lonnet::escape |
|
($res->{'symb'}.':'.$part); |
|
my $checked; |
|
if ($ENV{'form.problemchoice'} eq $value) { |
|
$checked = 'checked '; |
|
} |
|
$seq_str .= '<tr><td>'. |
|
'<input type="radio" name="problemchoice" value="'.$value.'" '.$checked.'/>'. |
|
'</td><td>'.(' 'x5).'part '.$part."</td></tr>\n"; |
|
} |
|
} |
|
} |
|
if ($seq_str ne '') { |
|
$Str .= '<tr><td> </td><td><b>'.$seq->{'title'}.'</b></td>'. |
|
"</tr>\n".$seq_str; |
|
} |
|
} |
|
$Str .= "</table>\n"; |
|
return $Str; |
|
} |
|
|
|
######################################################### |
|
######################################################### |
|
## |
|
## Misc functions (ought to be put in a module) |
|
## |
|
######################################################### |
|
######################################################### |
|
sub get_problem_symb { |
|
my $problemstring = shift(); |
|
my ($symb,$partid) = ($problemstring=~ /^(.*):([^:]*)$/); |
|
return ($symb,$partid); |
|
} |
|
|
|
sub get_resource_from_symb { |
|
my ($symb) = @_; |
|
foreach my $seq (&Apache::lonstatistics::Sequences_with_Assess()) { |
|
foreach my $res (@{$seq->{'contents'}}) { |
|
if ($res->{'symb'} eq $symb) { |
|
return $res; |
|
} |
|
} |
|
} |
|
return undef; |
|
} |
|
|
|
1; |
1; |
|
|
__END__ |
__END__ |