Commit 5f8e0c10 authored by Keith Jolley's avatar Keith Jolley

Version 1.14.1.

parent 406eb35b
......@@ -21,7 +21,7 @@
package BIGSdb::main;
use strict;
use warnings;
use version; our $VERSION = qv('v1.14.0');
use version; our $VERSION = qv('v1.14.1');
use 5.010;
###########Local configuration################################
......
......@@ -943,6 +943,9 @@ sub create_temp_scheme_table {
}
push @table_fields, 'profile text[]';
my $locus_indices = $scheme->get_locus_indices;
use Data::Dumper;
$logger->error(Dumper $locus_indices);
eval {
$self->{'db'}->do( 'DELETE FROM scheme_warehouse_indices WHERE scheme_id=?', undef, $id );
foreach my $profile_locus ( keys %$locus_indices ) {
......
......@@ -38,6 +38,7 @@ sub _initiate {
my $sql = $self->{'db'}->prepare('SELECT locus,index FROM scheme_warehouse_indices WHERE scheme_id=?');
if ( $self->{'dbase_table'} =~ /scheme_(\d+)$/x ) {
my $scheme_id = $1;
$logger->error($scheme_id);
eval { $sql->execute($scheme_id); };
$logger->error($@) if $@;
my $data = $sql->fetchall_arrayref;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment