[elpa] externals/rt-liberation f2d75b7 55/72: * rt-liberation-report.el: pass to main machine.

[Stefan Monnier]

branch: externals/rt-liberation
commit f2d75b7be78ac2523dc2c8c4647d1bc7ee0ce6ed
Author: Yoni Rabkin <yrk@gnu.org>
Commit: Yoni Rabkin <yrk@gnu.org>

    * 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