r8919 - in /scripts/qa: DebianQA/Archive.pm qareport

[tincho-guest at users.alioth.debian.org]

Author: tincho-guest
Date: Tue Nov  6 11:56:21 2007
New Revision: 8919

URL: http://svn.debian.org/wsvn/?sc=1&rev=8919
Log:
Show archive suite in report

Modified:
    scripts/qa/DebianQA/Archive.pm
    scripts/qa/qareport

Modified: scripts/qa/DebianQA/Archive.pm
URL: http://svn.debian.org/wsvn/scripts/qa/DebianQA/Archive.pm?rev=8919&op=diff
==============================================================================
--- scripts/qa/DebianQA/Archive.pm (original)
+++ scripts/qa/DebianQA/Archive.pm Tue Nov  6 11:56:21 2007
@@ -95,8 +95,8 @@
         my @recent = sort( {
                 deb_compare($g->{$pkg}{$a}, $g->{$pkg}{$b})
             } keys(%{$g->{$pkg}}));
-        $g->{$_}{most_recent} = $g->{$pkg}{$recent[-1]};
-        $g->{$_}{most_recent_src} = $recent[-1];
+        $g->{$pkg}{most_recent} = $g->{$pkg}{$recent[-1]};
+        $g->{$pkg}{most_recent_src} = $recent[-1];
     }
     $data = update_cache("consolidated", $g, "archive", 1, 0);
     unlock_cache("archive");

Modified: scripts/qa/qareport
URL: http://svn.debian.org/wsvn/scripts/qa/qareport?rev=8919&op=diff
==============================================================================
--- scripts/qa/qareport (original)
+++ scripts/qa/qareport Tue Nov  6 11:56:21 2007
@@ -46,6 +46,7 @@
     my $m_dver = $data->{svn}{$pkg}{mangled_ver} || 0;
     my $undver = $data->{svn}{$pkg}{un_version};
     my $archver = $data->{archive}{$pkg}{most_recent} || 0;
+    my $archsuit = $data->{archive}{$pkg}{most_recent_src} || 0;
     my $uver = $data->{watch}{$pkg}{upstream_ver};
     my $m_uver = $data->{watch}{$pkg}{upstream_mangled};
     my @bugs = @{$data->{bts}{$pkg}};
@@ -76,6 +77,7 @@
         print " (mangled: ", $m_dver || "none", ")";
         print " (unreleased: $undver)" if($undver);
         print " Archive: ", $archver || "Not uploaded";
+        print " ($archsuit)" if($archsuit);
         print " Upstream: ", $uver || "Unknown";
         print " (mangled: ", $m_uver || "Unknown", ")\n";
     }