version 1.119, 2005/03/14 20:28:22
|
version 1.122, 2005/04/07 07:34:52
|
Line 153 sub BuildStudentAssessmentPage {
|
Line 153 sub BuildStudentAssessmentPage {
|
&Apache::lonstatistics::PrepareClasslist(); |
&Apache::lonstatistics::PrepareClasslist(); |
# |
# |
$single_student_mode = 0; |
$single_student_mode = 0; |
$single_student_mode = 1 if ($ENV{'form.SelectedStudent'}); |
$single_student_mode = 1 if ($env{'form.SelectedStudent'}); |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
['selectstudent']); |
['selectstudent']); |
if ($ENV{'form.selectstudent'}) { |
if ($env{'form.selectstudent'}) { |
&Apache::lonstatistics::DisplayClasslist($r); |
&Apache::lonstatistics::DisplayClasslist($r); |
return; |
return; |
} |
} |
Line 167 sub BuildStudentAssessmentPage {
|
Line 167 sub BuildStudentAssessmentPage {
|
$r->print(&CreateInterface()); |
$r->print(&CreateInterface()); |
$r->print('<input type="hidden" name="notfirstrun" value="true" />'); |
$r->print('<input type="hidden" name="notfirstrun" value="true" />'); |
$r->print('<input type="hidden" name="sort" value="'. |
$r->print('<input type="hidden" name="sort" value="'. |
$ENV{'form.sort'}.'" />'); |
$env{'form.sort'}.'" />'); |
$r->rflush(); |
$r->rflush(); |
# |
# |
if (! exists($ENV{'form.notfirstrun'}) && ! $single_student_mode) { |
if (! exists($env{'form.notfirstrun'}) && ! $single_student_mode) { |
return; |
return; |
} |
} |
$r->print('<h4>'. |
$r->print('<h4>'. |
Line 234 sub BuildStudentAssessmentPage {
|
Line 234 sub BuildStudentAssessmentPage {
|
sub next_and_previous_buttons { |
sub next_and_previous_buttons { |
my $Str = ''; |
my $Str = ''; |
$Str .= '<input type="hidden" name="SelectedStudent" value="'. |
$Str .= '<input type="hidden" name="SelectedStudent" value="'. |
$ENV{'form.SelectedStudent'}.'" />'; |
$env{'form.SelectedStudent'}.'" />'; |
# |
# |
# Build the previous student link |
# Build the previous student link |
my $previous = &Apache::lonstatistics::previous_student(); |
my $previous = &Apache::lonstatistics::previous_student(); |
Line 353 sub CreateInterface {
|
Line 353 sub CreateInterface {
|
&mt('Clear Caches').'" />'; |
&mt('Clear Caches').'" />'; |
$Str .= ' 'x5; |
$Str .= ' 'x5; |
$Str .= |
$Str .= |
&mt('Status[_1]', |
&mt('Status [_1]', |
'<input type="text" name="stats_status" size="60" value="" />'); |
'<input type="text" name="stats_status" size="60" value="" />'); |
$Str .= '<br />'; |
$Str .= '<br />'; |
return $Str; |
return $Str; |
Line 430 sub CreateAndParseOutputSelector {
|
Line 430 sub CreateAndParseOutputSelector {
|
[$elementname]); |
[$elementname]); |
# |
# |
# Format for output options is 'mode, restrictions'; |
# Format for output options is 'mode, restrictions'; |
my $selected = 'html, without links'; |
my $selected = (&Apache::loncommon::get_env_multiple('form.'.$elementname))[0]; |
if (exists($ENV{'form.'.$elementname})) { |
$selected = 'html, without links' if (!$selected); |
if (ref($ENV{'form.'.$elementname} eq 'ARRAY')) { |
|
$selected = $ENV{'form.'.$elementname}->[0]; |
|
} else { |
|
$selected = $ENV{'form.'.$elementname}; |
|
} |
|
} |
|
# |
# |
# Set package variables describing output mode |
# Set package variables describing output mode |
$show_links = 'no'; |
$show_links = 'no'; |
Line 551 sub CreateAndParseOutputDataSelector {
|
Line 546 sub CreateAndParseOutputDataSelector {
|
my $Str = ''; |
my $Str = ''; |
my $elementname = 'chartoutputdata'; |
my $elementname = 'chartoutputdata'; |
# |
# |
my $selected = 'scores'; |
my $selected = (&Apache::loncommon::get_env_multiple('form.'.$elementname))[0]; |
if (exists($ENV{'form.'.$elementname})) { |
$selected = 'scores' if (!$selected); |
if (ref($ENV{'form.'.$elementname} eq 'ARRAY')) { |
|
$selected = $ENV{'form.'.$elementname}->[0]; |
|
} else { |
|
$selected = $ENV{'form.'.$elementname}; |
|
} |
|
} |
|
# |
# |
$chosen_output = $OutputDataOptions[0]; |
$chosen_output = $OutputDataOptions[0]; |
foreach my $option (@OutputDataOptions) { |
foreach my $option (@OutputDataOptions) { |
Line 652 sub html_initialize {
|
Line 642 sub html_initialize {
|
'</h3>'); |
'</h3>'); |
} |
} |
# |
# |
$r->print("<h3>".$ENV{'course.'.$ENV{'request.course.id'}.'.description'}. |
$r->print("<h3>".$env{'course.'.$env{'request.course.id'}.'.description'}. |
" ".localtime(time)."</h3>"); |
" ".localtime(time)."</h3>"); |
# |
# |
if ($chosen_output->{'base'} !~ /^final table/) { |
if ($chosen_output->{'base'} !~ /^final table/) { |
Line 747 sub html_outputstudent {
|
Line 737 sub html_outputstudent {
|
my %StudentsData; |
my %StudentsData; |
my @tmp = &Apache::loncoursedata::get_current_state |
my @tmp = &Apache::loncoursedata::get_current_state |
($student->{'username'},$student->{'domain'},undef, |
($student->{'username'},$student->{'domain'},undef, |
$ENV{'request.course.id'}); |
$env{'request.course.id'}); |
if ((scalar @tmp > 0) && ($tmp[0] !~ /^error:/)) { |
if ((scalar @tmp > 0) && ($tmp[0] !~ /^error:/)) { |
%StudentsData = @tmp; |
%StudentsData = @tmp; |
} |
} |
Line 1039 sub excel_initialize {
|
Line 1029 sub excel_initialize {
|
return if (! defined($excel_workbook)); |
return if (! defined($excel_workbook)); |
# |
# |
# Add a worksheet |
# Add a worksheet |
my $sheetname = $ENV{'course.'.$ENV{'request.course.id'}.'.description'}; |
my $sheetname = $env{'course.'.$env{'request.course.id'}.'.description'}; |
$sheetname = &Apache::loncommon::clean_excel_name($sheetname); |
$sheetname = &Apache::loncommon::clean_excel_name($sheetname); |
$excel_sheet = $excel_workbook->addworksheet($sheetname); |
$excel_sheet = $excel_workbook->addworksheet($sheetname); |
# |
# |
# Put the course description in the header |
# Put the course description in the header |
$excel_sheet->write($header_row,$cols_output++, |
$excel_sheet->write($header_row,$cols_output++, |
$ENV{'course.'.$ENV{'request.course.id'}.'.description'}, |
$env{'course.'.$env{'request.course.id'}.'.description'}, |
$format->{'h1'}); |
$format->{'h1'}); |
$cols_output += 3; |
$cols_output += 3; |
# |
# |
# Put a description of the sections listed |
# Put a description of the sections listed |
my $sectionstring = ''; |
my $sectionstring = ''; |
my @Sections = &Apache::lonstatistics::get_selected_sections(); |
my @Sections = &Apache::lonstatistics::get_selected_sections(); |
if (scalar(@Sections) > 1) { |
$excel_sheet->write($header_row,$cols_output++, |
if (scalar(@Sections) > 2) { |
&Apache::lonstatistics::section_and_enrollment_description('plain text'), |
my $last = pop(@Sections); |
|
$sectionstring = "Sections ".join(', ',@Sections).', and '.$last; |
|
} else { |
|
$sectionstring = "Sections ".join(' and ',@Sections); |
|
} |
|
} else { |
|
if ($Sections[0] eq 'all') { |
|
$sectionstring = "All sections"; |
|
} else { |
|
$sectionstring = "Section ".$Sections[0]; |
|
} |
|
} |
|
$excel_sheet->write($header_row,$cols_output++,$sectionstring, |
|
$format->{'h3'}); |
$format->{'h3'}); |
$cols_output += scalar(@Sections); |
|
# |
# |
# Put the date in there too |
# Put the date in there too |
$excel_sheet->write($header_row,$cols_output++, |
$excel_sheet->write($header_row,$cols_output++, |
Line 1328 sub excel_initialize {
|
Line 1304 sub excel_initialize {
|
# |
# |
# Let the user know what we are doing |
# Let the user know what we are doing |
my $studentcount = scalar(@Apache::lonstatistics::Students); |
my $studentcount = scalar(@Apache::lonstatistics::Students); |
if ($ENV{'form.SelectedStudent'}) { |
if ($env{'form.SelectedStudent'}) { |
$studentcount = '1'; |
$studentcount = '1'; |
} |
} |
if ($studentcount > 1) { |
if ($studentcount > 1) { |
Line 1375 sub excel_outputstudent {
|
Line 1351 sub excel_outputstudent {
|
my @tmp = &Apache::loncoursedata::get_current_state($student->{'username'}, |
my @tmp = &Apache::loncoursedata::get_current_state($student->{'username'}, |
$student->{'domain'}, |
$student->{'domain'}, |
undef, |
undef, |
$ENV{'request.course.id'}); |
$env{'request.course.id'}); |
if ((scalar @tmp > 0) && ($tmp[0] !~ /^error:/)) { |
if ((scalar @tmp > 0) && ($tmp[0] !~ /^error:/)) { |
%StudentsData = @tmp; |
%StudentsData = @tmp; |
} |
} |
Line 1559 END
|
Line 1535 END
|
'inline',undef,'Statistics','stats_status'); |
'inline',undef,'Statistics','stats_status'); |
# |
# |
# Open a file |
# Open a file |
$filename = '/prtspool/'. |
($outputfile,$filename) = &Apache::loncommon::create_text_file($r,'csv'); |
$ENV{'user.name'}.'_'.$ENV{'user.domain'}.'_'. |
if (! defined($outputfile)) { return ''; } |
time.'_'.rand(1000000000).'.csv'; |
|
unless ($outputfile = Apache::File->new('>/home/httpd'.$filename)) { |
|
$r->log_error("Couldn't open $filename for output $!"); |
|
$r->print("Problems occured in writing the csv file. ". |
|
"This error has been logged. ". |
|
"Please alert your LON-CAPA administrator."); |
|
$outputfile = undef; |
|
} |
|
# |
# |
# Datestamp |
# Datestamp |
my $description = $ENV{'course.'.$ENV{'request.course.id'}.'.description'}; |
my $description = $env{'course.'.$env{'request.course.id'}.'.description'}; |
print $outputfile '"'.&Apache::loncommon::csv_translate($description).'",'. |
print $outputfile '"'.&Apache::loncommon::csv_translate($description).'",'. |
'"'.&Apache::loncommon::csv_translate(scalar(localtime(time))).'"'. |
'"'.&Apache::loncommon::csv_translate(scalar(localtime(time))).'"'. |
"\n"; |
"\n"; |
|
print $outputfile '"'. |
|
&Apache::loncommon::csv_translate |
|
(&Apache::lonstatistics::section_and_enrollment_description()). |
|
'"'."\n"; |
foreach my $item ('shortdesc','non_html_notes') { |
foreach my $item ('shortdesc','non_html_notes') { |
next if (! exists($chosen_output->{$item})); |
next if (! exists($chosen_output->{$item})); |
print $outputfile |
print $outputfile |
Line 1657 sub csv_outputstudent {
|
Line 1629 sub csv_outputstudent {
|
my @tmp = &Apache::loncoursedata::get_current_state($student->{'username'}, |
my @tmp = &Apache::loncoursedata::get_current_state($student->{'username'}, |
$student->{'domain'}, |
$student->{'domain'}, |
undef, |
undef, |
$ENV{'request.course.id'}); |
$env{'request.course.id'}); |
if ((scalar @tmp > 0) && ($tmp[0] !~ /^error:/)) { |
if ((scalar @tmp > 0) && ($tmp[0] !~ /^error:/)) { |
%StudentsData = @tmp; |
%StudentsData = @tmp; |
} |
} |