From f2d75b7be78ac2523dc2c8c4647d1bc7ee0ce6ed Mon Sep 17 00:00:00 2001 From: Yoni Rabkin Date: Mon, 12 Oct 2015 19:18:03 -0400 Subject: * 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 -- cgit v1.2.3