version 1.36, 2005/02/01 15:15:28
|
version 1.38, 2005/02/23 02:03:42
|
Line 1354 sub manage_caches {
|
Line 1354 sub manage_caches {
|
} |
} |
|
|
sub gather_full_student_data { |
sub gather_full_student_data { |
&Apache::lonnet::logthis('called gather_full_student_data'); |
|
my ($r,$formname,$inputname) = @_; |
my ($r,$formname,$inputname) = @_; |
my $status_type; |
my $status_type; |
if (defined($formname)) { |
if (defined($formname)) { |
Line 1387 sub gather_full_student_data {
|
Line 1386 sub gather_full_student_data {
|
return; |
return; |
} |
} |
|
|
|
#################################################### |
|
#################################################### |
|
|
|
=pod |
|
|
|
=item &submission_report_form |
|
|
|
Input: The originating reportSelected value for the current stats page. |
|
|
|
Output: Scalar containing HTML with needed form elements and a link to |
|
the student submission reports page. |
|
|
|
=cut |
|
|
|
#################################################### |
|
#################################################### |
|
sub submission_report_form { |
|
my ($original_report) = @_; |
|
# Note: In the link below we change the reportSelected value. If |
|
# the user hits the 'back' button on the browser after getting their |
|
# student submissions report, this value may still be around. So we |
|
# output a script block to set it properly. If the $original_report |
|
# value is unset, you are just asking for trouble. |
|
if (! defined($original_report)) { |
|
&Apache::lonnet::logthis |
|
('someone called lonstathelpers::submission_report_form without '. |
|
' enough input.'); |
|
} |
|
my $html = $/. |
|
'<script type="Text/JavaScript">'. |
|
"document.Statistics.reportSelected.value='$original_report';". |
|
'</script>'. |
|
'<input type="hidden" name="correctans" value="true" />'. |
|
'<input type="hidden" name="prob_status" value="true" />'. |
|
'<input type="hidden" name="all_sub" value="true" />'; |
|
my $output_selector = $/.'<select name="output">'.$/; |
|
foreach ('HTML','Excel','CSV') { |
|
$output_selector .= ' <option value="'.lc($_).'"'; |
|
if ($ENV{'form.output'} eq lc($_)) { |
|
$output_selector .= ' selected '; |
|
} |
|
$output_selector .='>'.&mt($_).'</option>'.$/; |
|
} |
|
$output_selector .= '</select>'.$/; |
|
my $link = '<a href="javascript:'. |
|
q{document.Statistics.reportSelected.value='student_submission_reports';}. |
|
'document.Statistics.submit();">'; |
|
$html.= &mt('View data as [_1] [_2]go[_3]',$output_selector, |
|
$link,'</a>').$/; |
|
return $html |
|
} |
|
|
#################################################### |
#################################################### |
#################################################### |
#################################################### |