--- loncom/interface/lontrackstudent.pm 2007/02/12 23:58:42 1.22 +++ loncom/interface/lontrackstudent.pm 2008/12/11 14:55:15 1.24 @@ -1,6 +1,6 @@ # The LearningOnline Network with CAPA # -# $Id: lontrackstudent.pm,v 1.22 2007/02/12 23:58:42 albertel Exp $ +# $Id: lontrackstudent.pm,v 1.24 2008/12/11 14:55:15 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -316,10 +316,11 @@ sub output_results { $title = $nav_res->compTitle(); $src = $nav_res->src(); } else { - if ($src =~ m|^/res|) { - $title = $src; - } elsif ($values =~ /^\s*$/ && - (! defined($src) || $src =~ /^\s*$/)) { + $src = $symb; + if ($src !~ m{/adm}) { + $title = &Apache::lonnet::gettitle($src); + } elsif ($values =~ /^\s*$/ && + (! defined($src) || $src =~ /^\s*$/)) { next; } elsif ($values =~ /^\s*$/) { $values = $src; @@ -359,14 +360,14 @@ sub output_results { my $tablerow = qq{<tr class="$class"><td>}.($count+1).qq{</td>}; if ($src =~ m|^/adm/|) { $tablerow .= - '<td valign="top"><nobr>'.$title.'</nobr></td>'; + '<td valign="top"><span class="LC_nobreak">'.$title.'</span></td>'; } else { $tablerow .= - '<td valign="top"><nobr>'. + '<td valign="top"><span class="LC_nobreak">'. '<a href="'.$src.'">'.$title.'</a>'. - '</nobr></td>'; + '</span></td>'; } - $tablerow .= '<td valign="top"><nobr>'.$timestamp.'</nobr></td>'; + $tablerow .= '<td valign="top"><span class="LC_nobreak">'.$timestamp.'</span></td>'; if ($mode eq 'full_class') { $tablerow.='<td valign="top">'.$student.'</td>'; } @@ -397,8 +398,11 @@ sub display_values { } $result.='</table>'; } elsif ($action eq 'POST') { - my %values= - map {split('=',&unescape($_),-1)} split(/\&/,$values); + my %values; + foreach my $pair (split(/\&/,$values)) { + my ($key,$value) = split('=',&unescape($pair),-1); + $values{$key} = $value; + } foreach my $key (sort(keys(%values))) { if ($key eq 'counter') { next; } $result.='<tr><td align="right">'.$key.'</td>'.