cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

- prevented inserting a duplicate row into search results folder.

This commit is contained in:
cage 2024-06-15 14:02:03 +02:00
parent 0b73087e4d
commit c4aa8850a7
1 changed files with 13 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
src/program-events.lisp
View File

@ -2034,16 +2034,19 @@
(defmethod process-event ((object fediverse-local-query-event)) (defmethod process-event ((object fediverse-local-query-event))
(with-accessors ((payload payload)) object (with-accessors ((payload payload)) object
(loop for status-results in (fediverse-post-local-search:parse-search-statuses payload) (loop for status-results in (fediverse-post-local-search:parse-search-statuses payload) do
do (let* ((status-id (db:row-message-status-id status-results))
(let ((status-row (db:find-status-id (db:row-message-status-id status-results)))) (status-row (db:find-status-id status-id)))
(setf (getf status-row :folder) (when (not (db::find-status-id-folder-timeline status-id
(query-results-folder-name)) (query-results-folder-name)
(setf (getf status-row :timeline) db:+home-timeline+))
db:+home-timeline+) (setf (getf status-row :folder)
(multiple-value-bind (query column-values) (query-results-folder-name))
(db-utils:insert-query db:+table-status+ status-row) (setf (getf status-row :timeline)
(db-utils:query-low-level query column-values)))) db:+home-timeline+)
(multiple-value-bind (query column-values)
(db-utils:insert-query db:+table-status+ status-row)
(db-utils:query-low-level query column-values)))))
(let ((refresh-event (make-instance 'refresh-thread-windows-event (let ((refresh-event (make-instance 'refresh-thread-windows-event
:new-folder (query-results-folder-name) :new-folder (query-results-folder-name)
:new-timeline db:+home-timeline+))) :new-timeline db:+home-timeline+)))