preparing for 6.7.3 bugfix cycle

docs/upgrades/upgrade_6.7.2-6.7.3.pl

@@ -0,0 +1,37 @@
+use lib "../../lib";
+use strict;
+use Getopt::Long;
+use WebGUI::Session;
+use WebGUI::SQL;
+
+my $toVersion = "6.7.3";
+my $configFile;
+my $quiet;
+
+start();
+
+finish();
+
+#-------------------------------------------------
+#sub fixSomething {
+#        print "\tFixing ....\n" unless ($quiet);
+
+
+
+#-------------------------------------------------
+sub start {
+	$|=1; #disable output buffering
+	GetOptions(
+    		'configFile=s'=>\$configFile,
+        	'quiet'=>\$quiet
+	);
+	WebGUI::Session::open("../..",$configFile);
+	WebGUI::Session::refreshUserInfo(3);
+	WebGUI::SQL->write("insert into webguiVersion values (".quote($toVersion).",'upgrade',".time().")");
+}
+
+#-------------------------------------------------
+sub finish {
+	WebGUI::Session::close();
+}
+

lib/WebGUI.pm

@@ -1,6 +1,6 @@
 package WebGUI;
-our $VERSION = "6.7.2";
+our $VERSION = "6.7.3";
-our $STATUS = "beta";
+our $STATUS = "gamma";
 
 #-------------------------------------------------------------------
 # WebGUI is Copyright 2001-2005 Plain Black Corporation.