From: Mark Wells Date: Tue, 30 Aug 2016 19:55:54 +0000 (-0700) Subject: fix password_history schema upgrade from pre-3.8 versions, #72265 X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=d3e61b9cde2f31b7f5de990ec7fb182a70603a6e fix password_history schema upgrade from pre-3.8 versions, #72265 --- diff --git a/FS/FS/password_history.pm b/FS/FS/password_history.pm index a34f6169b..13d16010d 100644 --- a/FS/FS/password_history.pm +++ b/FS/FS/password_history.pm @@ -161,9 +161,14 @@ sub password_equals { } sub _upgrade_schema { + my $class = shift; + # if the table doesn't exist yet then nothing needs to happen here + my $dbdef_table = $class->dbdef_table + or return; + # clean up history records where linked_acct has gone away my @where; - for my $fk ( grep /__/, __PACKAGE__->dbdef_table->columns ) { + for my $fk ( grep /__/, $dbdef_table->columns ) { my ($table, $key) = split(/__/, $fk); push @where, " ( $fk IS NOT NULL AND NOT EXISTS(SELECT 1 FROM $table WHERE $table.$key = $fk) )";