Mercurial > repos > mahtabm > ensembl
annotate variant_effect_predictor/Bio/EnsEMBL/Variation/Pipeline/RebuildIndexes.pm @ 3:d30fa12e4cc5 default tip
Merge heads 2:a5976b2dce6f and 1:09613ce8151e which were created as a result of a recently fixed bug.
| author | devteam <devteam@galaxyproject.org> |
|---|---|
| date | Mon, 13 Jan 2014 10:38:30 -0500 |
| parents | 1f6dce3d34e0 |
| children |
| rev | line source |
|---|---|
| 0 | 1 package Bio::EnsEMBL::Variation::Pipeline::RebuildIndexes; |
| 2 | |
| 3 use strict; | |
| 4 use warnings; | |
| 5 | |
| 6 use base qw(Bio::EnsEMBL::Variation::Pipeline::BaseVariationProcess); | |
| 7 | |
| 8 sub run { | |
| 9 | |
| 10 my $self = shift; | |
| 11 | |
| 12 my $tables = $self->param('tables'); | |
| 13 | |
| 14 my $var_dba = $self->get_species_adaptor('variation'); | |
| 15 | |
| 16 my $dbc = $var_dba->dbc; | |
| 17 | |
| 18 for my $table (@$tables) { | |
| 19 $dbc->do("ALTER TABLE $table ENABLE KEYS") | |
| 20 or warn "Failed to enable keys on $table"; | |
| 21 } | |
| 22 } | |
| 23 | |
| 24 1; | |
| 25 |