X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Freason.pm;h=5311ec5aa6892d3772ce8e6e4d5b85f1e4a4c76c;hb=e84081ace9a19bd8007a74e8c062f4bc8d573e5d;hp=5ce1848fbacff65bf7ea395b124f83c9c881ac83;hpb=7add8407312ec79831adafc06caa01c0fa60f76e;p=freeside.git diff --git a/FS/FS/reason.pm b/FS/FS/reason.pm index 5ce1848fb..5311ec5aa 100644 --- a/FS/FS/reason.pm +++ b/FS/FS/reason.pm @@ -137,7 +137,9 @@ sub _upgrade_data { # class method $column = dbdef->table($self->table)->column('reason'); my $columndef = $column->line($dbh); $columndef =~ s/varchar\(\d+\)/text/i; + if ( $dbh->{Driver}->{Name} eq 'Pg' ) { + my $notnull = $columndef =~ s/not null//i; push @sql,"ALTER TABLE $table RENAME reason TO freeside_upgrade_reason"; push @sql,"ALTER TABLE $table ADD $columndef"; @@ -145,9 +147,14 @@ sub _upgrade_data { # class method push @sql,"ALTER TABLE $table ALTER reason SET NOT NULL" if $notnull; push @sql,"ALTER TABLE $table DROP freeside_upgrade_reason"; - }elsif( $dbh->{Driver}->{Name} =~ /^mysql/i ){ - push @sql,"ALTER TABLE $table MODIFY reason ". $column->line($dbh); - }else{ + + } elsif ( $dbh->{Driver}->{Name} =~ /^mysql/i ){ + + #crap, this isn't working + #push @sql,"ALTER TABLE $table MODIFY reason ". $column->line($dbh); + warn "WARNING: reason table upgrade not yet supported for mysql, sorry"; + + } else { die "watchu talkin' 'bout, Willis? (unsupported database type)"; }