From d626868da159ec2ad34140d07af42040254c18d0 Mon Sep 17 00:00:00 2001
From: Graham Knop <graham@plainblack.com>
Date: Fri, 28 Mar 2008 23:49:07 +0000
Subject: [PATCH] fixed: Project Manager can't track non-integer durations

---
 docs/changelog/7.x.x.txt             | 1 +
 docs/upgrades/upgrade_7.5.8-7.5.9.pl | 9 +++++++++
 2 files changed, 10 insertions(+)

diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt
index c6e220ac8..2595281f6 100644
--- a/docs/changelog/7.x.x.txt
+++ b/docs/changelog/7.x.x.txt
@@ -9,6 +9,7 @@
  - fixed: subscription group in CS edit not internationalized
  - fixed: profile photos don't obey max image size
  - fixed: Unable to communicate with Spectre under alternate locales
+ - fixed: Project Manager can't track non-integer durations
 
 7.5.8
  - moved Gallery utility methods to WebGUI::Utility::Gallery
diff --git a/docs/upgrades/upgrade_7.5.8-7.5.9.pl b/docs/upgrades/upgrade_7.5.8-7.5.9.pl
index ec18a1111..168ed2cba 100644
--- a/docs/upgrades/upgrade_7.5.8-7.5.9.pl
+++ b/docs/upgrades/upgrade_7.5.8-7.5.9.pl
@@ -25,6 +25,7 @@ my $session = start(); # this line required
 ensureUTF8($session);
 addRichEditInlinePopup($session);
 updateRichEditorButtons($session);
+setPMFloatingDuration($session);
 
 finish($session); # this line required
 
@@ -37,6 +38,14 @@ finish($session); # this line required
 #    print "DONE!\n" unless $quiet;
 #}
 
+#----------------------------------------------------------------------------
+sub setPMFloatingDuration {
+    my $session = shift;
+    print "\tChanging Project manager to use floating numbers for duration... " unless $quiet;
+    $session->db->write('ALTER TABLE `PM_task` MODIFY `duration` FLOAT');
+    print "Done.\n" unless $quiet;
+}
+
 #----------------------------------------------------------------------------
 sub addRichEditInlinePopup {
     my $session = shift;