- 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}++; $items[$ci]{fc}++;
} }
if ($treeindex == 3 && if (($treeindex == 3 || $treeindex == 5) &&
$element eq "tags") { $element eq "tags") {
$tag = ""; $tag = "";
} }
@ -98,6 +98,11 @@ sub xml_end {
@{$items[$ci]{tags}} = split(/,/, $tag); @{$items[$ci]{tags}} = split(/,/, $tag);
addtags($tag); addtags($tag);
} }
if ($treeindex == 5 &&
$element eq "tags") {
@{$items[$ci]{files}{$items[$ci]{fc}}{tags}} = split(/,/, $tag);
addtags($tag);
}
$values[$treeindex] = (); $values[$treeindex] = ();
$treeindex--; $treeindex--;
@ -179,9 +184,7 @@ sub xml_char {
return; return;
} }
if ($tree[5] eq "tags") { if ($tree[5] eq "tags") {
@{$items[$ci]{files}{$items[$ci]{fc}}{tags}} = split(/,/, $value); $tag .= $value;
addtags($value);
addtags("", $items[$ci]{tags});
return; return;
} }
goto error; goto error;
@ -432,7 +435,7 @@ sub print_htmlitem {
} }
my $size = 20; my $size = 20;
my $c = 0; my $c = 0;
foreach my $tag (sort size(keys(%tags))) { foreach my $tag (sort size keys(%tags)) {
my $ftag = $tag; my $ftag = $tag;
$ftag =~ s/ /_/g; $ftag =~ s/ /_/g;
print $fhtml "<font style=\"font-size:${size}pt\"><a href=\"tag-$ftag.html\">$tag</a></font>\n"; print $fhtml "<font style=\"font-size:${size}pt\"><a href=\"tag-$ftag.html\">$tag</a></font>\n";