branch: externals/rt-liberation
commit f2d75b7be78ac2523dc2c8c4647d1bc7ee0ce6ed
Author: Yoni Rabkin <[email protected]>
Commit: Yoni Rabkin <[email protected]>
* rt-liberation-report.el: pass to main machine.
---
rt-liberation-report.el | 8 +++++---
1 file 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
