- Fix <tags> handling in <files>.

- Fix counting of the number of tags for font-size: property in the tag list.
This commit is contained in:
Hiroki Sato 2012-06-04 02:27:26 +00:00
parent 68862162a7
commit fd80d8a80e
Notes: svn2git 2020-12-08 03:00:23 +00:00
svn path=/head/; revision=38973

View file

@ -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";