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_binpackage.id)],
- join => {bin_ver =>
+ {columns => [qw(bug_binpackages.bug)],
+ join => {bin =>
{bin_pkg =>
- 'bug_binpackage'
+ 'bug_binpackages'
}},
result_class => 'DBIx::Class::ResultClass::HashRefInflator',
},
)->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_srcpackage.id)],
- join => {src_ver =>
+ {columns => [qw(bug_srcpackages.bug)],
+ join => {source =>
{src_pkg =>
- 'bug_srcpackage'
+ 'bug_srcpackages'
}},
result_class => 'DBIx::Class::ResultClass::HashRefInflator',
},