bagder: curl-www last20threads.pl,1.16,1.17

Update of /cvsroot/curl/curl-www
In directory labb:/tmp/cvs-serv5791

Modified Files:
	last20threads.pl 
Log Message:
provide a "fancy" title for the links that contains the full subject!


Index: last20threads.pl
===================================================================
RCS file: /cvsroot/curl/curl-www/last20threads.pl,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -d -r1.16 -r1.17
--- last20threads.pl	22 Sep 2005 07:17:12 -0000	1.16
+++ last20threads.pl	25 Aug 2008 20:03:43 -0000	1.17
@@ -113,11 +113,12 @@
         my $line=$c&1?"odd":"even";
 
         my $subj = $subject{$_};
+        my $title= CGI::escapeHTML($subj);
         if(length($subj) > 40) {
             $subj = substr($subj, 0, 40)."...";
         }
 
-        my $subjectline=sprintf("<tr class=\"%s\"><td><a href=\"%s\">%s</a></td>\n",
+        my $subjectline=sprintf("<tr class=\"%s\"><td><a title=\"$title\" href=\"%s\">%s</a></td>\n",
                                 $line,
                                 file2url($_),
                                 $subj?&CGI::escapeHTML($subj):"(no subject)");