version 1.90, 2004/02/12 21:15:47
|
version 1.96, 2004/03/08 17:31:37
|
Line 306 the chart page.
|
Line 306 the chart page.
|
####################################################### |
####################################################### |
sub CreateInterface { |
sub CreateInterface { |
my $Str = ''; |
my $Str = ''; |
|
$Str .= &Apache::lonhtmlcommon::breadcrumbs(undef,'Chart'); |
# $Str .= &CreateLegend(); |
# $Str .= &CreateLegend(); |
$Str .= '<table cellspacing="5">'."\n"; |
$Str .= '<table cellspacing="5">'."\n"; |
$Str .= '<tr>'; |
$Str .= '<tr>'; |
Line 401 my @OutputOptions =
|
Line 402 my @OutputOptions =
|
}, |
}, |
{ name => 'CSV', |
{ name => 'CSV', |
value => 'csv', |
value => 'csv', |
description => 'Output a comma seperated values file suitable for '. |
description => 'Output a comma separated values file suitable for '. |
'import into a spreadsheet program. Using this method as opposed '. |
'import into a spreadsheet program. Using this method as opposed '. |
'to Excel output allows you to organize your data before importing'. |
'to Excel output allows you to organize your data before importing'. |
' it into a spreadsheet program.', |
' it into a spreadsheet program.', |
Line 642 sub html_initialize {
|
Line 643 sub html_initialize {
|
# Use 3 digits for the total |
# Use 3 digits for the total |
$sequence->{'width_sum'}+=3; |
$sequence->{'width_sum'}+=3; |
} |
} |
|
# |
if ($chosen_output->{'every_problem'}) { |
if ($chosen_output->{'every_problem'}) { |
# one problem per digit |
# one problem per digit |
$sequence->{'width_problem'} = $sequence->{'num_assess_parts'}; |
$sequence->{'width_problem'} = $sequence->{'num_assess_parts'}; |
Line 650 sub html_initialize {
|
Line 652 sub html_initialize {
|
} |
} |
$sequence->{'width_total'} = $sequence->{'width_problem'} + |
$sequence->{'width_total'} = $sequence->{'width_problem'} + |
$sequence->{'width_sum'}; |
$sequence->{'width_sum'}; |
if ($sequence->{'width_total'} < length($sequence->{'title'})) { |
if ($sequence->{'width_total'} < length(&HTML::Entities::decode($sequence->{'title'}))) { |
$sequence->{'width_total'} = length($sequence->{'title'}); |
$sequence->{'width_total'} = length(&HTML::Entities::decode($sequence->{'title'})); |
$sequence->{'width_problem'} = |
|
$sequence->{'width_total'} - $sequence->{'width_sum'}; |
|
} |
} |
# |
# |
# Output the sequence titles |
# Output the sequence titles |
Line 727 sub html_outputstudent {
|
Line 727 sub html_outputstudent {
|
# |
# |
if (! $chosen_output->{'every_problem'}) { |
if (! $chosen_output->{'every_problem'}) { |
$performance = ''; |
$performance = ''; |
|
$performance_length=0; |
} |
} |
$performance .= ' 'x($seq->{'width_problem'}-$performance_length). |
$performance .= ' 'x($seq->{'width_total'}-$performance_length-$seq->{'width_sum'}). |
$ratio; |
$ratio; |
# |
# |
$Str .= $performance.$padding; |
$Str .= $performance.$padding; |
Line 970 END
|
Line 971 END
|
# File::Temp is used to determine the temporary directory. |
# File::Temp is used to determine the temporary directory. |
$excel_workbook->set_tempdir($Apache::lonnet::tmpdir); |
$excel_workbook->set_tempdir($Apache::lonnet::tmpdir); |
# |
# |
|
my $format = &Apache::loncommon::define_excel_formats($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); |
# |
# |
# Define some potentially useful formats |
|
my $format; |
|
$format->{'header'} = $excel_workbook->add_format(bold => 1, |
|
bottom => 1, |
|
align => 'center'); |
|
$format->{'bold'} = $excel_workbook->add_format(bold=>1); |
|
$format->{'h1'} = $excel_workbook->add_format(bold=>1, size=>18); |
|
$format->{'h2'} = $excel_workbook->add_format(bold=>1, size=>16); |
|
$format->{'h3'} = $excel_workbook->add_format(bold=>1, size=>14); |
|
$format->{'date'} = $excel_workbook->add_format(num_format=> |
|
'mmm d yyyy hh:mm AM/PM'); |
|
# |
|
# 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'}, |
Line 1595 sub csv_finish {
|
Line 1586 sub csv_finish {
|
# |
# |
# Tell the user where to get their csv file |
# Tell the user where to get their csv file |
$r->print('<br />'. |
$r->print('<br />'. |
'<a href="'.$filename.'">Your csv file.</a>'."\n"); |
'<a href="'.$filename.'">'.&mt('Your csv file.').'</a>'."\n"); |
$r->rflush(); |
$r->rflush(); |
return; |
return; |
|
|