cvsimport

[hcoop/zz_old/portal.git] / qos.sml

diff --git a/qos.sml b/qos.sml
index cd71246..ccdad10 100644 (file)
--- 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`)},