r12767 - in /scripts/qa: DebianQA/Svn.pm templates/by_category

tincho-guest at users.alioth.debian.org tincho-guest at users.alioth.debian.org
Tue Jan 15 13:12:33 UTC 2008


Author: tincho-guest
Date: Tue Jan 15 13:12:33 2008
New Revision: 12767

URL: http://svn.debian.org/wsvn/?sc=1&rev=12767
Log:
Svn.pm: Add section and subsection keys.
templates/: Highlight non-main packages, and non-unstable versions.

Modified:
    scripts/qa/DebianQA/Svn.pm
    scripts/qa/templates/by_category

Modified: scripts/qa/DebianQA/Svn.pm
URL: http://svn.debian.org/wsvn/scripts/qa/DebianQA/Svn.pm?rev=12767&op=diff
==============================================================================
--- scripts/qa/DebianQA/Svn.pm (original)
+++ scripts/qa/DebianQA/Svn.pm Tue Jan 15 13:12:33 2008
@@ -146,6 +146,10 @@
         ($short, $long) = split_description($ctrl_data->[1]{description});
 
         $svn{$dir}{pkgname} = $ctrl_data->[0]{source};
+        my @section = split(/\s*\/\s*/, $ctrl_data->[0]{section});
+        unshift @section, "main" unless(@section > 1);
+        $svn{$dir}{section} = $section[0];
+        $svn{$dir}{subsection} = $section[1];
         $svn{$dir}{uploaders} = $ctrl_data->[0]{uploaders};
         $svn{$dir}{maintainer} = $ctrl_data->[0]{maintainer};
         $svn{$dir}{std_version} = $ctrl_data->[0]{'standards-version'};

Modified: scripts/qa/templates/by_category
URL: http://svn.debian.org/wsvn/scripts/qa/templates/by_category?rev=12767&op=diff
==============================================================================
--- scripts/qa/templates/by_category (original)
+++ scripts/qa/templates/by_category Tue Jan 15 13:12:33 2008
@@ -46,6 +46,7 @@
 
 [% BLOCK package %]
     [% SET arch_ver = pkg.archive.most_recent %]
+    [% SET arch_src = pkg.archive.most_recent_src %]
     [% SET svn_ver = pkg.svn.version %]
     [% SET svn_un_ver = pkg.svn.un_version %]
     <tr>
@@ -53,6 +54,9 @@
                     class="balloon" style="margin-left:0">[% 
                     pkg.notes.join(', ')
                     %]</span></span>[% ELSE %]$pkg.name[% END %]
+            [% IF pkg.svn.section AND pkg.svn.section != "main" %]
+            <span class="$pkg.svn.section">[$pkg.svn.section]</span>
+            [% END #IF %]
             [% IF pkg.svn.binaries and pkg.svn.binaries.size > 1 or (
                 pkg.svn.binaries.size and pkg.svn.binaries.first != pkg.name
                 ) %]<br/><span style="font-size: smaller">([%
@@ -78,7 +82,13 @@
                         | html %]</a></span></span>[% END #IF %]
         </td>
 
-        <td[% IF pkg.hilight.archive %] class="todo"[% END %]>[% IF arch_ver %]<a href="http://packages.qa.debian.org/$pkg.name">$arch_ver</a>[% END #IF %]</td>
+        <td[% IF pkg.hilight.archive %] class="todo"[% END %]>
+            [% IF arch_ver %]<a href="http://packages.qa.debian.org/$pkg.name"
+                >$arch_ver</a>[% END #IF %]
+            [% IF arch_ver_src AND arch_ver_src != "unstable" %]
+            ($arch_ver_src)
+            [% END #IF %]
+        </td>
 
         <td>[% INCLUDE bts_link pkg=pkg %]</td>
 
@@ -150,6 +160,8 @@
         .todo {
             background: #ADDBE6;    /* lightblue */
         }
+        .section-non-free { color: red; }
+        .section-contrib { color: maroon; }
         .bts-wishlist {
             color: green;
         }




More information about the Pkg-perl-cvs-commits mailing list