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
2d5ff61c
Commit
2d5ff61c
authored
Nov 10, 2011
by
Leo Gordon
Browse files
these four methods were neither used by Hive nor by Compara code
parent
e02eef61
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
0 additions
and
41 deletions
+0
-41
modules/Bio/EnsEMBL/Hive/AnalysisStats.pm
modules/Bio/EnsEMBL/Hive/AnalysisStats.pm
+0
-12
modules/Bio/EnsEMBL/Hive/DBSQL/AnalysisStatsAdaptor.pm
modules/Bio/EnsEMBL/Hive/DBSQL/AnalysisStatsAdaptor.pm
+0
-29
No files found.
modules/Bio/EnsEMBL/Hive/AnalysisStats.pm
View file @
2d5ff61c
...
...
@@ -69,18 +69,6 @@ sub update_status {
$self
->
status
(
$status
);
}
sub
decrease_hive_capacity
{
my
(
$self
)
=
@_
;
return
unless
(
$self
->
adaptor
);
$self
->
adaptor
->
decrease_hive_capacity
(
$self
->
analysis_id
);
}
sub
increase_hive_capacity
{
my
(
$self
)
=
@_
;
return
unless
(
$self
->
adaptor
);
$self
->
adaptor
->
increase_hive_capacity
(
$self
->
analysis_id
);
}
sub
analysis_id
{
my
$self
=
shift
;
$self
->
{'
_analysis_id
'}
=
shift
if
(
@
_
);
...
...
modules/Bio/EnsEMBL/Hive/DBSQL/AnalysisStatsAdaptor.pm
View file @
2d5ff61c
...
...
@@ -285,35 +285,6 @@ sub interval_update_work_done {
}
sub
decrease_hive_capacity
{
my
$self
=
shift
;
my
$analysis_id
=
shift
;
my
$sql
=
"
UPDATE analysis_stats
"
.
"
SET hive_capacity = hive_capacity - 1,
"
.
"
num_required_workers = (CASE WHEN num_required_workers > 0 THEN num_required_workers - 1 ELSE 0 END)
"
.
"
WHERE analysis_id='
$analysis_id
' and hive_capacity > 1
";
$self
->
dbc
->
do
(
$sql
);
}
sub
increase_hive_capacity
{
my
$self
=
shift
;
my
$analysis_id
=
shift
;
my
$sql
=
"
UPDATE analysis_stats
"
.
"
SET hive_capacity = hive_capacity + 1, num_required_workers = 1
"
.
"
WHERE analysis_id='
$analysis_id
' and hive_capacity <= 500 and num_required_workers = 0
";
$self
->
dbc
->
do
(
$sql
);
}
sub
increase_running_workers
{
my
$self
=
shift
;
...
...
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