use Debbugs::DB;
use DateTime;
use File::stat;
-use List::MoreUtils qw(natatime);
+use List::MoreUtils qw(natatime uniq);
use POSIX qw(ceil);
my %options =
# select all bugs which are in packages which have had a binary
# association modified
push @bugs,
- map {$_->{'bug_binpackages.id'}}
+ map {$_->{bug_binpackages}{bug}}}
$s->resultset('BinAssociation')->
search_rs({'me.modified' => {'>=',$last_query_time},
},
- {columns => [qw(bug_binpackages.id)],
- join => {bin_vers =>
+ {columns => [qw(bug_binpackages.bug)],
+ join => {bin =>
{bin_pkg =>
'bug_binpackages'
}},
)->all();
# or a source association modified
push @bugs,
- map {$_->{'bug_srcpackages.id'}}
+ map {$_->{bug_srcpackages}{bug}}
$s->resultset('SrcAssociation')->
search_rs({'me.modified' => {'>=',$last_query_time},
},
- {columns => [qw(bug_srcpackages.id)],
- join => {src_vers =>
+ {columns => [qw(bug_srcpackages.bug)],
+ join => {source =>
{src_pkg =>
'bug_srcpackages'
}},