my ($hive_dba) = @_;
my $analyses = $hive_dba->get_AnalysisAdaptor->fetch_all();
my $incoming = $hive_dba->get_DataflowRuleAdaptor->fetch_HASHED_FROM_to_analysis_url_TO_dataflow_rule_id();
my $job_adaptor = $hive_dba->get_AnalysisJobAdaptor;
print "\nYou haven't specified neither -logic_name nor -analysis_id of the analysis being seeded.\n";
print "\nSeedable analyses without incoming dataflow:\n";
foreach my $analysis (@$analyses) {
my $logic_name = $analysis->logic_name;
unless($incoming->{$logic_name}) {
my $analysis_id = $analysis->dbID;
my ($example_job) = @{ $job_adaptor->fetch_some_by_analysis_id_limit( $analysis_id, 1 ) };
print "\t$logic_name ($analysis_id)\t\t".($example_job ? "Example input_id: '".$example_job->input_id."'" : "[not populated yet]")."\n";
}
}
}
Code:
1.8.6 
