|
|
@@ -361,7 +361,7 @@
|
|
|
(def-message-cmd-handler handler-charts (:charts)
|
|
|
(telegram-send-chat-action *chat-id* "upload_photo")
|
|
|
(let* ((args (mapcar 'string-downcase *args*))
|
|
|
- (all-symbols (db/get-chat-symbols))
|
|
|
+ (all-symbols (db/get-chat-symbols *chat-id*))
|
|
|
(symbols (or (intersection (mapcar #'get-label-symbol args) all-symbols :test 'equal) all-symbols))
|
|
|
(day-range (some #'(lambda (a) (aget a +chart-ranges+)) args))
|
|
|
(number (some #'(lambda (a) (parse-integer a :junk-allowed t)) args))
|
