svn commit: r38973 - head/en_US.ISO8859-1/htdocs/multimedia

[Hiroki Sato]

Author: hrs
Date: Mon Jun  4 02:27:26 2012
New Revision: 38973
URL: http://svn.freebsd.org/changeset/doc/38973

Log:
  - Fix <tags> handling in <files>.
  - Fix counting of the number of tags for font-size: property in the tag list.

Modified:
  head/en_US.ISO8859-1/htdocs/multimedia/multimedia.pl

Modified: head/en_US.ISO8859-1/htdocs/multimedia/multimedia.pl
==============================================================================
--- head/en_US.ISO8859-1/htdocs/multimedia/multimedia.pl	Sun Jun  3 19:52:21 2012	(r38972)
+++ head/en_US.ISO8859-1/htdocs/multimedia/multimedia.pl	Mon Jun  4 02:27:26 2012	(r38973)
@@ -83,7 +83,7 @@ sub xml_start {
 	$items[$ci]{fc}++;
     }
 
-    if ($treeindex == 3 &&
+    if (($treeindex == 3 || $treeindex == 5) &&
 	$element eq "tags") {
 	$tag = "";
     }
@@ -98,6 +98,11 @@ sub xml_end {
 	@{$items[$ci]{tags}} = split(/,/, $tag);
 	addtags($tag);
     }
+    if ($treeindex == 5 &&
+	$element eq "tags") {
+	@{$items[$ci]{files}{$items[$ci]{fc}}{tags}} = split(/,/, $tag);
+	addtags($tag);
+    }
 
     $values[$treeindex] = ();
     $treeindex--;
@@ -179,9 +184,7 @@ sub xml_char {
 			    return;
 			}
 			if ($tree[5] eq "tags") {
-			    @{$items[$ci]{files}{$items[$ci]{fc}}{tags}} = split(/,/, $value);
-			    addtags($value);
-			    addtags("", $items[$ci]{tags});
+			    $tag .= $value;
 			    return;
 			}
 			goto error;
@@ -432,7 +435,7 @@ sub print_htmlitem {
     }
     my $size = 20;
     my $c = 0;
-    foreach my $tag (sort size(keys(%tags))) {
+    foreach my $tag (sort size keys(%tags)) {
 	my $ftag = $tag;
 	$ftag =~ s/ /_/g;
 	print $fhtml "<font style=\"font-size:${size}pt\"><a href=\"tag-$ftag.html\">$tag</a></font>\n";