X-Git-Url: http://git.hcoop.net/hcoop/portal.git/blobdiff_plain/f7cc3697745f2cc57e314f21357ed62ecdbed416..5e6afd1afad649716c54d0776da7539f097dcaa4:/qos.sml

diff --git a/qos.sml b/qos.sml
index cd71246..ccdad10 100644
--- a/qos.sml
+++ b/qos.sml
@@ -62,18 +62,18 @@ fun reportCard days =
 	fun gradeRow s = mkGradeRow (C.oneRow db s)
 
 	fun default tab =
-	    gradeRow ($`SELECT COUNT(*), AVG(cstamp - stamp)
+	    gradeRow ($`SELECT COUNT(*), EXTRACT(MINUTE FROM AVG(cstamp - stamp))
 		          FROM ^tab
 			  WHERE stamp >= CURRENT_TIMESTAMP - interval '^(C.intToSql days) DAYS'
                             AND cstamp IS NOT NULL`)
     in
 	{misc = {pending = gradeRow
-		 ($`SELECT COUNT(*), AVG(COALESCE(pstamp, cstamp) - stamp)
+		 ($`SELECT COUNT(*), EXTRACT(MINUTE FROM AVG(COALESCE(pstamp, cstamp) - stamp))
 	              FROM SupIssue
                       WHERE stamp >= CURRENT_TIMESTAMP - interval '^(C.intToSql days) DAYS'
                         AND COALESCE(pstamp, cstamp) IS NOT NULL`),
 	         closed = gradeRow
-		 ($`SELECT COUNT(*), AVG(cstamp - stamp)
+		 ($`SELECT COUNT(*), EXTRACT(MINUTE FROM AVG(cstamp - stamp))
 	              FROM SupIssue
 		      WHERE stamp >= CURRENT_TIMESTAMP - interval '^(C.intToSql days) DAYS'
                         AND cstamp IS NOT NULL`)},