Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
ensembl-gh-mirror
ensembl-hive
Commits
34bb2acd
Commit
34bb2acd
authored
Jan 20, 2011
by
Leo Gordon
Browse files
more visual result of sync
parent
7b84ec87
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
10 additions
and
8 deletions
+10
-8
modules/Bio/EnsEMBL/Hive/AnalysisStats.pm
modules/Bio/EnsEMBL/Hive/AnalysisStats.pm
+8
-6
modules/Bio/EnsEMBL/Hive/Queen.pm
modules/Bio/EnsEMBL/Hive/Queen.pm
+2
-2
No files found.
modules/Bio/EnsEMBL/Hive/AnalysisStats.pm
View file @
34bb2acd
...
...
@@ -345,9 +345,9 @@ sub check_blocking_control_rules {
my
$ctrl_rules
=
$self
->
adaptor
->
db
->
get_AnalysisCtrlRuleAdaptor
->
fetch_by_ctrled_analysis_id
(
$self
->
analysis_id
);
if
(
scalar
@$ctrl_rules
)
{
# there are blocking ctrl_rules to check
my
$all_ctrl_rules_done
=
1
;
my
$all_ctrl_rules_done
=
1
;
if
(
scalar
@$ctrl_rules
)
{
# there are blocking ctrl_rules to check
foreach
my
$ctrl_rule
(
@$ctrl_rules
)
{
#use this method because the condition_analysis objects can be
...
...
@@ -358,11 +358,11 @@ sub check_blocking_control_rules {
my
$condition_analysis_stats_status
=
$condition_analysis_stats
&&
$condition_analysis_stats
->
status
;
my
$condition_analysis_stats_cbe
=
$condition_analysis_stats
&&
$condition_analysis_stats
->
can_be_empty
;
unless
(
(
$condition_analysis_stats_status
eq
'
DONE
')
or
(
$condition_analysis_stats_cbe
and
(
$condition_analysis_stats_status
eq
'
READY
'))
)
{
my
$unblocked_condition
=
(
$condition_analysis_stats_status
eq
'
DONE
')
||
(
$condition_analysis_stats_cbe
&&
(
$condition_analysis_stats_status
eq
'
READY
'));
unless
(
$unblocked_condition
)
{
$all_ctrl_rules_done
=
0
;
last
;
}
}
...
...
@@ -374,6 +374,8 @@ sub check_blocking_control_rules {
$self
->
update_status
('
BLOCKED
');
}
}
return
$all_ctrl_rules_done
;
}
...
...
modules/Bio/EnsEMBL/Hive/Queen.pm
View file @
34bb2acd
...
...
@@ -443,8 +443,8 @@ sub synchronize_hive {
print
STDERR
"
Checking blocking control rules:
\n
";
foreach
my
$analysis
(
@$list_of_analyses
)
{
$analysis
->
stats
->
check_blocking_control_rules
();
print
STDERR
'
.
'
;
my
$open
=
$analysis
->
stats
->
check_blocking_control_rules
();
print
STDERR
(
$open
?
'
o
'
:
'
x
')
;
}
print
STDERR
"
\n
";
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment