r15241 - /scripts/qa/qareport.cgi
tincho-guest at users.alioth.debian.org
tincho-guest at users.alioth.debian.org
Wed Feb 20 21:15:54 UTC 2008
Author: tincho-guest
Date: Wed Feb 20 21:15:53 2008
New Revision: 15241
URL: http://svn.debian.org/wsvn/?sc=1&rev=15241
Log:
never_uploaded is not ready for upload, it's just not in the archive. Also, upgrade for_upgade (newer upstream) priority.
Modified:
scripts/qa/qareport.cgi
Modified: scripts/qa/qareport.cgi
URL: http://svn.debian.org/wsvn/scripts/qa/qareport.cgi?rev=15241&op=diff
==============================================================================
--- scripts/qa/qareport.cgi (original)
+++ scripts/qa/qareport.cgi Wed Feb 20 21:15:53 2008
@@ -61,14 +61,13 @@
my $dest; # like "destiny" :)
my $status = $data->{status}; # to save some typing
+ $dest ||= \@for_upgrade if($status->{needs_upgrade});
$dest ||= \@wip if($status->{name_mismatch});
- $dest ||= \@for_upgrade if($status->{needs_upgrade});
- $dest ||= \@wip if($status->{not_finished} or
- $status->{invalid_svn_version} or $status->{invalid_tag}
- or $status->{missing_tag});
+ $dest ||= \@wip if($status->{not_finished}
+ or $status->{invalid_svn_version} or $status->{invalid_tag}
+ or $status->{missing_tag} or $status->{never_uploaded});
$dest ||= \@tagged if($status->{tagged_wait});
- $dest ||= \@for_upload if($status->{needs_upload} or
- $status->{never_uploaded});
+ $dest ||= \@for_upload if($status->{needs_upload});
$dest ||= \@weird if($status->{repo_ancient} or $status->{svn_ancient} or
$status->{upstream_ancient});
$dest ||= \@wip if $status->{watch_error};
More information about the Pkg-perl-cvs-commits
mailing list