Author: hhubner Date: 2006-07-22 07:30:36 -0400 (Sat, 22 Jul 2006) New Revision: 1969
Modified: branches/xml-class-rework/projects/quickhoney/src/image.lisp branches/xml-class-rework/projects/quickhoney/src/packages.lisp branches/xml-class-rework/projects/quickhoney/website/templates/index.xml Log: fix wrong input name for client input while uploading images. add rss feed for new images, frontend not yet done.
Modified: branches/xml-class-rework/projects/quickhoney/src/image.lisp =================================================================== --- branches/xml-class-rework/projects/quickhoney/src/image.lisp 2006-07-22 11:29:38 UTC (rev 1968) +++ branches/xml-class-rework/projects/quickhoney/src/image.lisp 2006-07-22 11:30:36 UTC (rev 1969) @@ -1,6 +1,6 @@ (in-package :quickhoney)
-(define-persistent-class quickhoney-image (store-image) +(define-persistent-class quickhoney-image (store-image rss-item) ((client :update :initform "" :index-type hash-index :index-initargs (:test #'equal) :index-reader images-for-client @@ -24,4 +24,16 @@ ((animation :update)))
(defmethod destroy-object :before ((image quickhoney-animation-image)) - (delete-object (quickhoney-animation-image-animation image))) \ No newline at end of file + (delete-object (quickhoney-animation-image-animation image))) + +(defmethod rss-item-channel ((item quickhoney-image)) + "quickhoney") + +(defmethod rss-item-title ((image quickhoney-image)) + (store-image-name image)) + +(defmethod rss-item-description ((image quickhoney-image)) + (format nil "~A~@[ (Client: ~A)~]" (store-image-name image) (quickhoney-image-client image))) + +(defmethod rss-item-link ((image quickhoney-image)) + (format nil "http://quickhoney.com/image/~A" (store-image-name image))) \ No newline at end of file
Modified: branches/xml-class-rework/projects/quickhoney/src/packages.lisp =================================================================== --- branches/xml-class-rework/projects/quickhoney/src/packages.lisp 2006-07-22 11:29:38 UTC (rev 1968) +++ branches/xml-class-rework/projects/quickhoney/src/packages.lisp 2006-07-22 11:30:36 UTC (rev 1969) @@ -29,6 +29,7 @@ :bknr.datastore :bknr.indices :bknr.images + :bknr.rss :quickhoney.config :net.aserve :xhtml-generator)
Modified: branches/xml-class-rework/projects/quickhoney/website/templates/index.xml =================================================================== --- branches/xml-class-rework/projects/quickhoney/website/templates/index.xml 2006-07-22 11:29:38 UTC (rev 1968) +++ branches/xml-class-rework/projects/quickhoney/website/templates/index.xml 2006-07-22 11:30:36 UTC (rev 1969) @@ -147,7 +147,7 @@ </p> <p class="cms"> Client:<br /> - <input type="text" id="upload_client" name="upload_client" value="" /><br /> + <input type="text" id="upload_client" name="client" value="" /><br /> <div id="upload_client_select"> </div> </p> @@ -194,7 +194,7 @@ </p> <p class="cms"> Client:<br /> - <input type="text" id="upload_client" name="upload_client" value="" /><br /> + <input type="text" id="upload_client" name="client" value="" /><br /> <div id="upload_animation_client_select"> </div> </p>