The following commit has been merged in the master branch:
commit 20309781366fbe0bfc73a566bb5d07a5ef5a2b97
Author: Niels Thykier <ni...@thykier.net>
Date: Tue Jan 31 21:48:33 2012 +0100
html_reports: Index only source packages in packages_$i.html
This reduces the amount of packages in each "packages_$i.html" a
bit.
Signed-off-by: Niels Thykier <ni...@thykier.net>
diff --git a/debian/changelog b/debian/changelog
index eeafd60..0568368 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -243,6 +243,7 @@ lintian (2.5.5) UNRELEASED; urgency=low
Lintian::Profile.
+ [NT] Pass a profile to the templates (as $profile) instead of the
old %all hash.
+ + [NT] List only source packages on the "packages_X.html" pages.
* reporting/templates/tags-all.tmpl:
+ [NT] Use $profile instead of the %all hash.
diff --git a/reporting/html_reports b/reporting/html_reports
index 36f8269..6661387 100755
--- a/reporting/html_reports
+++ b/reporting/html_reports
@@ -333,7 +333,7 @@ undef $source_info;
# a summary page of errors and warnings for each maintainer, output a full
# page that includes info, experimental, and overriden tags, and assemble the
# maintainer index and the QA package list as we go.
-my (%qa, %maintainers, %packages);
+my (%qa, %maintainers, %sources);
my @maintainers;
{
my %unique;
@@ -355,7 +355,9 @@ for my $maintainer (@maintainers) {
my $tags = $by_maint{$maintainer}{$source}{$version};
for my $tag (@$tags) {
$count{$tag->{code}}++;
- $packages{$tag->{package}} = $tag->{xref};
+ }
+ if (@$tags) {
+ $sources{$source} = $tags->[0]->{xref};
}
}
$qa{$source} = \%count;
@@ -506,7 +508,7 @@ $list{'0-9, A-F'} = [];
$list{'G-L'} = [];
$list{'M-R'} = [];
$list{'S-Z'} = [];
-for my $package (sort keys %packages) {
+for my $package (sort keys %sources) {
my $first = uc substr($package, 0, 1);
if ($first le 'F') { push(@{ $list{'0-9, A-F'} }, $package) }
elsif ($first le 'L') { push(@{ $list{'G-L'} }, $package) }
@@ -514,7 +516,7 @@ for my $package (sort keys %packages) {
else { push(@{ $list{'S-Z'} }, $package) }
}
%data = (
- packages => \%packages,
+ sources => \%sources,
);
my $i = 1;
for my $section (sort keys %list) {
diff --git a/reporting/templates/packages.tmpl
b/reporting/templates/packages.tmpl
index 31c6ef2..db67979 100644
--- a/reporting/templates/packages.tmpl
+++ b/reporting/templates/packages.tmpl
@@ -2,7 +2,7 @@
<h1>Package Index: {$section}</h1>
<p>
- This is a list of all source or binary packages that have at least one
+ This is a list of all source packages that have at least one
lintian tag. This includes all tags, even experimental and info tags
and tags that were overridden. The list is huge, so it's broken into
four separate pages. This page covers package names starting with
@@ -26,7 +26,7 @@
$OUT .= qq( <h2>$first</h2>\n\n <p>\n);
$letter = $first;
}
- $OUT .= qq( <a href="full/$packages{$package}">$package</a>\n);
+ $OUT .= qq( <a href="full/$sources{$package}">$package</a>\n);
}
} </p>
{ foot() }
--
Debian package checker
--
To UNSUBSCRIBE, email to debian-lint-maint-requ...@lists.debian.org
with a subject of "unsubscribe". Trouble? Contact listmas...@lists.debian.org
Archive: http://lists.debian.org/e1rskss-0001ja...@vasks.debian.org
