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

@@ -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)))