From 36f396b0da4f681054f100202cadf407f75ec217 Mon Sep 17 00:00:00 2001 From: Craig Oates Date: Sat, 15 Oct 2022 20:41:57 +0100 Subject: [PATCH] add publish month and year arg's to create-archive-entry func. This update is in the nera package. It is part of a refactoring of functionality to have a seperate 'Publish' date and a 'Created At' date within this site's database. The 'Created at' date refers to when the entry was added to the database. The 'Publish' date is the date of the artwork. --- src/nera.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/nera.lisp b/src/nera.lisp index 97fd383..321d489 100644 --- a/src/nera.lisp +++ b/src/nera.lisp @@ -330,13 +330,15 @@ slug is updated based on `NEW-FILE-NAME'." (sxql:order-by (:asc :title))))) (defun create-archive-entry - (title search-id slug thumbnail-slug thumbnail-file-type keywords) + (title search-id slug pub-month pub-year thumbnail-slug thumbnail-file-type keywords) "Add a new `ARCHIVE-ENTRY' to the database." (with-connection (db) (mito:create-dao 'archive:archive-entry :title title :search-id search-id :slug slug + :month pub-month + :year pub-year :thumbnail-slug thumbnail-slug :thumbnail-file-type thumbnail-file-type :keywords keywords)))