vcs.maemo.org Git - maemian/blob - nokia-lintian/reporting/templates/tag.tmpl

   1 { head("Lintian Tag: $tag", 1) }
   2   <h1><span class="type-{$code}">{$code}</span> {$tag}</h1>
   3
   4   <p>
   5     All reports of {$tag} for the archive. The extended description of this
   6     tag is:
   7   </p>
   8
   9   <blockquote class="type-{$code}">
  10 {$description}
  11   </blockquote>
  12
  13   <p>
  14     The package names link to the relevant maintainer page and the
  15     corresponding report for the source package.  The links go to the full
  16     maintainer report page, which includes info and experimental tags and
  17     overridden tags, rather than the default page that shows only errors
  18     and warnings.
  19   </p>
  20 {
  21     # We get a list of tag data.  We create a separate paragraph for each
  22     # package name.
  23     my ($last, $tag, $has_nonoverridden);
  24     for my $info (sort { $a->{package} cmp $b->{package} } @tags) {
  25         if (!$last
  26             or "$info->{package} $info->{type}" ne "$last->{package} $last->{type}") {
  27             if ($last) {
  28                 my $overridden = $has_nonoverridden ? '' : qq{ <span class="type-O">overridden</span>};
  29                 $OUT .= qq(  <h2 class="tag"><a href="../full/$last->{xref}">);
  30                 $OUT .= "$last->{package}</a> ($last->{type})$overridden</h2>\n";
  31                 $OUT .= qq(  <ul class="tag">\n);
  32                 $OUT .= $tag;
  33                 $OUT .= "</ul>\n";
  34             }
  35             $last = $info;
  36             $tag = '';
  37             $has_nonoverridden = 0;
  38         }
  39         $has_nonoverridden = 1 if $info->{code} ne 'O';
  40         if ($info->{extra}) {
  41             $tag .= qq{    <li class="type-$info->{code}">};
  42             $tag .= qq{<span class="type-O">O</span> } if $info->{code} eq 'O';
  43             $tag .= "$info->{extra}</li>\n";
  44         }
  45     }
  46     my $overridden = $has_nonoverridden ? '' : qq{ <span class="type-O">overridden</span>};
  47     $OUT .= qq(  <h2 class="tag"><a href="../full/$last->{xref}">);
  48     $OUT .= "$last->{package}</a> ($last->{type})$overridden</h2>\n";
  49     $OUT .= qq(  <ul class="tag">\n);
  50     $OUT .= $tag;
  51     $OUT .= "</ul>\n";
  52 }
  53 { foot() }