--- loncom/interface/statistics/lonstudentassessment.pm	2009/10/01 16:28:24	1.158
+++ loncom/interface/statistics/lonstudentassessment.pm	2012/02/17 21:49:58	1.162.2.1
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: lonstudentassessment.pm,v 1.158 2009/10/01 16:28:24 bisitz Exp $
+# $Id: lonstudentassessment.pm,v 1.162.2.1 2012/02/17 21:49:58 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -554,7 +554,7 @@ my @OutputDataOptions =
 
 sub HTMLifyOutputDataDescriptions {
     my $Str = '';
-    $Str .= "<h2>'.&mt('Output Data').'</h2>\n";
+    $Str .= '<h2>'.&mt('Output Data').'</h2>'."\n";
     $Str .= "<dl>\n";
     foreach my $option (@OutputDataOptions) {
         $Str .= '    <dt>'.$option->{'name'}.'</dt>';
@@ -671,11 +671,12 @@ sub html_initialize {
     # If we're showing links, show a checkbox to open in new
     # windows.
     if ($show_links ne 'no') {
-        my $labeltext = &mt('Show links in new window:');
+        my $labeltext = &mt('Show links in new window');
         $r->print(<<NEW_WINDOW_CHECKBOX);
 <script type="text/javascript">new_window = true;</script>
-<p><label>$labeltext 
+<p><label> 
 <input type="checkbox" checked="checked" onclick="new_window=this.checked" />
+$labeltext
 </label></p>
 NEW_WINDOW_CHECKBOX
     }
@@ -828,7 +829,7 @@ sub html_outputstudent {
 #       $r->print("</pre><pre>");
         $r->print('</pre>');
         &Apache::lonhtmlcommon::Increment_PrgWin(
-            $r,\%prog_state,'last five students');
+            $r,\%prog_state,'last five students',5);
         $r->rflush();
         $r->print('<pre>');
     }
@@ -840,6 +841,7 @@ sub html_outputstudent {
         if ($field eq 'comments') {
             $title = '<a href="/adm/'.$student->{'domain'}.'/'.$student->{'username'}.'/'.'aboutme#coursecomment">'.&mt('Comments').'</a>';
         }
+        utf8::decode($title);
         my $base = length($title);
         my $width=$Apache::lonstatistics::StudentData{$field}->{'width'};
         $Str .= $title.' 'x($width-$base).$padding;
@@ -1678,7 +1680,7 @@ END
     # Datestamp
     my $description = $env{'course.'.$env{'request.course.id'}.'.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";
     print $outputfile '"'.
         &Apache::loncommon::csv_translate