diff options
| author | Yoni Rabkin <yrk@gnu.org> | 2015-10-12 19:18:03 -0400 |
|---|---|---|
| committer | Yoni Rabkin <yrk@gnu.org> | 2015-10-12 19:18:03 -0400 |
| commit | f2d75b7be78ac2523dc2c8c4647d1bc7ee0ce6ed (patch) | |
| tree | d9b086f6ca3d25ee749695e54948decb96207af8 | |
| parent | e7779ce1381fe6e00c73f8e506b2870fff170e30 (diff) | |
* rt-liberation-report.el: pass to main machine.
| -rw-r--r-- | rt-liberation-report.el | 8 |
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 |