[bknr-cvs] r1969 - in branches/xml-class-rework/projects/quickhoney: src website/templates

[bknr at bknr.net]

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>