--- loncom/interface/statistics/lonstathelpers.pm 2008/09/14 15:16:29 1.55 +++ loncom/interface/statistics/lonstathelpers.pm 2010/02/28 23:58:55 1.60 @@ -1,6 +1,6 @@ # The LearningOnline Network with CAPA # -# $Id: lonstathelpers.pm,v 1.55 2008/09/14 15:16:29 raeburn Exp $ +# $Id: lonstathelpers.pm,v 1.60 2010/02/28 23:58:55 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -158,14 +158,14 @@ sub problem_selector { resptype=>$resptype}); my $checked = ''; if ($env{'form.problemchoice'} eq $value) { - $checked = 'checked '; + $checked = ' checked="checked"'; } my $title = $res->compTitle; if (! defined($title) || $title eq '') { ($title) = ($res->src =~ m:/([^/]*)$:); } $seq_str .= ''. - qq{}. + qq{}. ''. ''; if (scalar(@response_ids) > 1) { @@ -173,7 +173,7 @@ sub problem_selector { } my $link = $res->link.'?symb='.&escape($res->shown_symb); $seq_str .= (' 'x2). - qq{view}; + ''.&mt('view').''; $seq_str .= "\n"; $rb_count++; } @@ -181,12 +181,12 @@ sub problem_selector { } } if ($seq_str ne '') { - $Str .= ' '. + $Str .= ' '. ''.$seq->compTitle.''. "\n".$seq_str; if (defined($sequence_addendum)) { $Str .= ''. - (' 'x2). + (' 'x2). ''.$sequence_addendum.''. "\n"; } @@ -229,15 +229,16 @@ sub MultipleProblemSelector { if (! defined($navmap)) { $navmap = Apache::lonnavmaps::navmap->new(); if (! defined($navmap)) { - $Str .= - '

'.&mt('Error: cannot process course structure').'

'; + $Str .= '
' + .&mt('Error: cannot process course structure') + .'
'; return $Str; } } my $selected = {map { ($_,1) } (&get_selected_symbs($inputname))}; # Header $Str .= <<"END"; -'. ''.