summaryrefslogtreecommitdiff
path: root/rt-liberation-report.el
diff options
context:
space:
mode:
Diffstat (limited to 'rt-liberation-report.el')
-rw-r--r--rt-liberation-report.el8
1 files changed, 5 insertions, 3 deletions
diff --git a/rt-liberation-report.el b/rt-liberation-report.el
index efb958b..203ae8a 100644
--- a/rt-liberation-report.el
+++ b/rt-liberation-report.el
@@ -57,7 +57,7 @@ return `nil'."
"Convert TICKET-ALIST to set format."
(let ((date-resolved (cdr (assoc "Resolved" ticket-alist)))
(owner (cdr (assoc "Owner" ticket-alist))))
- `(,(format-time-string "%d-%m-%Y" (date-to-time date-resolved))
+ `(,(format-time-string "%s" (date-to-time date-resolved))
. ,owner)))
(defun rt-liber-report-scan-interval (interval)
@@ -115,8 +115,10 @@ return `nil'."
(defun rt-liber-report (rt-queue start-date end-date)
"Print tickets resolved between START-DATE and END-DATE."
(let ((tickets (rt-liber-report-scan-interval
- (rt-liber-report-get-interval
- rt-queue start-date end-date)))
+ ;; (rt-liber-report-get-interval
+ ;; rt-queue start-date end-date)
+ __foo
+ ))
by-date by-owner
by-date-out
by-owner-out