[freeside-commits] freeside/FS/bin freeside-upgrade, 1.5.2.4, 1.5.2.5

[Jeff Finucane,420,,]

Update of /home/cvs/cvsroot/freeside/FS/bin
In directory wavetail:/tmp/cvs-serv22683/FS/bin

Modified Files:
      Tag: FREESIDE_1_7_BRANCH
	freeside-upgrade 
Log Message:
change credit reasons from freetext to new reason/reason type system (#2777)

Index: freeside-upgrade
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/bin/freeside-upgrade,v
retrieving revision 1.5.2.4
retrieving revision 1.5.2.5
diff -u -d -r1.5.2.4 -r1.5.2.5
--- freeside-upgrade	28 Oct 2007 12:52:00 -0000	1.5.2.4
+++ freeside-upgrade	4 Dec 2007 18:19:07 -0000	1.5.2.5
@@ -9,6 +9,7 @@
 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 @@
   }
 }
 
+upgrade()
+  unless $DRY_RUN;
+
 $dbh->commit or die $dbh->errstr;
 
 dbdef_create($dbh, $dbdef_file);