Commit f3fd8389 authored by Francesc Guasch's avatar Francesc Guasch
Browse files

[#146] check column for volume target at start

parent f9df1d7d
......@@ -85,8 +85,29 @@ sub BUILD {
sub _upgrade_table {
my $self = shift;
my ($table, $field, $definition) = @_;
my $dbh = $CONNECTOR->dbh;
my $sth = $dbh->column_info(undef,undef,$table,$field);
my $row = $sth->fetchrow_hashref;
return if $row;
warn "INFO: adding $field $definition to $table\n";
$dbh->do("alter table $table add $field $definition");
sub _upgrade_tables {
my $self = shift;
$self->_upgrade_table('file_base_images','target','varchar(64) DEFAULT NULL');
sub _connect_dbh {
my $driver= ($CONFIG->{db}->{driver} or 'mysql');;
my $db_user = ($CONFIG->{db}->{user} or getpwnam($>));;
Supports Markdown
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