version 1.159, 2010/01/14 17:20:51
|
version 1.162, 2010/06/09 14:55:27
|
Line 554 my @OutputDataOptions =
|
Line 554 my @OutputDataOptions =
|
|
|
sub HTMLifyOutputDataDescriptions { |
sub HTMLifyOutputDataDescriptions { |
my $Str = ''; |
my $Str = ''; |
$Str .= "<h2>'.&mt('Output Data').'</h2>\n"; |
$Str .= '<h2>'.&mt('Output Data').'</h2>'."\n"; |
$Str .= "<dl>\n"; |
$Str .= "<dl>\n"; |
foreach my $option (@OutputDataOptions) { |
foreach my $option (@OutputDataOptions) { |
$Str .= ' <dt>'.$option->{'name'}.'</dt>'; |
$Str .= ' <dt>'.$option->{'name'}.'</dt>'; |
Line 829 sub html_outputstudent {
|
Line 829 sub html_outputstudent {
|
# $r->print("</pre><pre>"); |
# $r->print("</pre><pre>"); |
$r->print('</pre>'); |
$r->print('</pre>'); |
&Apache::lonhtmlcommon::Increment_PrgWin( |
&Apache::lonhtmlcommon::Increment_PrgWin( |
$r,\%prog_state,'last five students'); |
$r,\%prog_state,'last five students',5); |
$r->rflush(); |
$r->rflush(); |
$r->print('<pre>'); |
$r->print('<pre>'); |
} |
} |
Line 1679 END
|
Line 1679 END
|
# 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(&Apache::lonlocal::locallocaltime(time))).'"'. |
"\n"; |
"\n"; |
print $outputfile '"'. |
print $outputfile '"'. |
&Apache::loncommon::csv_translate |
&Apache::loncommon::csv_translate |