From 07d365ce392bc5c38ad1f3dfc7348819b7017438 Mon Sep 17 00:00:00 2001
From: Ryan Poplin <rpoplin@broadinstitute.org>
Date: Mon, 12 Sep 2011 09:01:34 -0400
Subject: [PATCH] Fixing units in queue job report Gantt plots

---
 public/R/queueJobReport.R | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/public/R/queueJobReport.R b/public/R/queueJobReport.R
index a24d269c9..31916361e 100644
--- a/public/R/queueJobReport.R
+++ b/public/R/queueJobReport.R
@@ -140,6 +140,8 @@ print(paste("Project          :", inputFileName))
 convertUnits <- function(gatkReportData) {
   convertGroup <- function(g) {
     g$runtime = g$runtime * ORIGINAL_UNITS_TO_SECONDS
+    g$startTime = g$startTime * ORIGINAL_UNITS_TO_SECONDS
+    g$doneTime = g$doneTime * ORIGINAL_UNITS_TO_SECONDS
     g
   }
   lapply(gatkReportData, convertGroup)