version 1.94, 2004/02/26 18:28:33
|
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,&mt('Chart')); |
$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 402 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 1586 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; |
|
|