[Lxr-commits] CVS: lxr/lib/LXR Common.pm,1.40,1.41 Lang.pm,1.28,1.29

[Malcolm B. <mb...@us...>]

Update of /cvsroot/lxr/lxr/lib/LXR
In directory usw-pr-cvs1:/tmp/cvs-serv26092/lib/LXR

Modified Files:
	Common.pm Lang.pm 
Log Message:
Apply patch 530997 from Ville Skyttä to improve the HTML produced.


Index: Common.pm
===================================================================
RCS file: /cvsroot/lxr/lxr/lib/LXR/Common.pm,v
retrieving revision 1.40
retrieving revision 1.41
diff -u -d -r1.40 -r1.41
--- Common.pm	18 Mar 2002 14:44:23 -0000	1.40
+++ Common.pm	18 Mar 2002 14:55:43 -0000	1.41
@@ -289,7 +289,7 @@
 
 		my ($btype, $frag) = &LXR::SimpleParse::nextfrag;
 
-		#&$outfun("<pre class=file>\n");
+		#&$outfun("<pre class=\"file\">\n");
 		&$outfun(join($line++, @ltag)) if defined($frag);
 		
 		while (defined($frag)) {
@@ -327,7 +327,7 @@
 		#&$outfun("</pre>");
 	} 
 	elsif ($pathname =~ /$config->graphicfile/) {
-		&$outfun("<ul><table><tr><th valign=center><b>Image: </b></th>");
+		&$outfun("<ul><table><tr><th valign=\"center\"><b>Image: </b></th>");
 		&$outfun("<img src=\"$config->{virtroot}/source".
 				 $pathname.&urlargs("raw=1").
 				 "\" border=\"0\" alt=\"$pathname\">\n");
@@ -367,7 +367,7 @@
 			
 		} 
 		else {
-			#&$outfun("<pre class=file>\n");
+			#&$outfun("<pre class=\"file\">\n");
 			do {
 				&LXR::SimpleParse::untabify($_);
 				&markspecials($_);
@@ -585,7 +585,7 @@
 			$fpath .= $_;
 
 			# jwz: put a space after each / in the banner so that it's
-			# possible for the pathnames to wrap.  The <WBR> tag ought
+			# possible for the pathnames to wrap.  The <wbr> tag ought
 			# to do this, but it is ignored when sizing table cells,
 			# so we have to use a real space.  It's somewhat ugly to
 			# have these spaces be visible, but not as ugly as getting
@@ -594,7 +594,7 @@
 		} 
 		$furl =~ s|/</a>|</a>/|gi;
 		
-		return "<span class=banner>$furl</span>";
+		return "<span class=\"banner\">$furl</span>";
 	}
 	else {
 		return '';
@@ -685,7 +685,7 @@
 		push(@mlist, "<span class='modes-sel'>freetext search</span>");
 	} 
 	else {
-		push(@mlist, "<a class=modes ".
+		push(@mlist, "<a class=\"modes\" ".
 			 "href=\"$config->{virtroot}/search".
 			 urlargs."\">freetext search</a>");
 	}
@@ -694,7 +694,7 @@
 		push(@mlist, "<span class='modes-sel'>file search</span>");
 	} 
 	else {
-		push(@mlist, "<a class='modes'".
+		push(@mlist, "<a class='modes' ".
 			 "href=\"$config->{virtroot}/find".
 			 urlargs."\">file search</a>");
 	}
@@ -719,7 +719,7 @@
 	$oldval = $config->variable($var);
 	foreach $val ($config->varrange($var)) {
 		if ($val eq $oldval) {
-			$vallink = "<span class=var-sel>$val</span>";
+			$vallink = "<span class=\"var-sel\">$val</span>";
 		} 
 		else {
 			if ($who eq 'source' || $who eq 'sourcedir') {
@@ -737,13 +737,13 @@
 				$vallink = &idref($val, "varlink", $identifier, "$var=$val");
 			} 
 			elsif ($who eq 'search') {
-				$vallink = "<a class=varlink href=\"$config->{virtroot}/search".
+				$vallink = "<a class=\"varlink\" href=\"$config->{virtroot}/search".
 					&urlargs("$var=$val",
 							 "string=".$HTTP->{'param'}->{'string'}).
 								 "\">$val</a>";
 			} 
 			elsif ($who eq 'find') {
-				$vallink = "<a class=varlink href=\"$config->{virtroot}/find".
+				$vallink = "<a class=\"varlink\" href=\"$config->{virtroot}/find".
 					&urlargs("$var=$val",
 							 "string=".$HTTP->{'param'}->{'string'}).
 								 "\">$val</a>";

Index: Lang.pm
===================================================================
RCS file: /cvsroot/lxr/lxr/lib/LXR/Lang.pm,v
retrieving revision 1.28
retrieving revision 1.29
diff -u -d -r1.28 -r1.29
--- Lang.pm	5 Feb 2002 10:34:43 -0000	1.28
+++ Lang.pm	18 Mar 2002 14:55:43 -0000	1.29
@@ -81,8 +81,8 @@
 sub processcomment {
 	my ($self, $frag) = @_;
 
-	$$frag = "<span class='comment'>$$frag</span>";
-	$$frag =~ s#\n#</span>\n<span class=comment>#g; 	
+	$$frag = "<span class=\"comment\">$$frag</span>";
+	$$frag =~ s#\n#</span>\n<span class=\"comment\">#g;
 }
 
 sub referencefile {