change credit reasons from freetext to new reason/reason type system (#2777)

1 files changed, 4 insertions, 0 deletions

diff --git a/FS/bin/freeside-upgrade b/FS/bin/freeside-upgrade
index b05d6f0a8..020d5fec6 100755
--- a/FS/bin/freeside-upgrade
+++ b/FS/bin/freeside-upgrade
@@ -9,6 +9,7 @@ use FS::UID qw(adminsuidsetup checkeuid datasrc );  #getsecrets);
 use FS::CurrentUser;
 use FS::Schema qw( dbdef dbdef_dist reload_dbdef );
 use FS::Misc::prune qw(prune_applications);
+use FS::Upgrade qw( upgrade );
 
 die "Not running uid freeside!" unless checkeuid();
 
@@ -83,6 +84,9 @@ if ( $dbh->{Driver}->{Name} =~ /^mysql/i ) {
   }
 }
 
+upgrade()
+  unless $DRY_RUN;
+
 $dbh->commit or die $dbh->errstr;
 
 dbdef_create($dbh, $dbdef_file);