[Generalize image-selector-field
clinton@unknownlamer.org**20090520160513
 Ignore-this: d2674936e4b4282e4dd7e086c5216877
] hunk ./src/web-admin.lisp 57
-(defclass image-selector-field (alist-select-field)
-  ()
-  (:default-initargs
-      :data-set (mapcar (lambda (p)
-			  (cons (format nil "~A.~A" (pathname-name p)
-					            (pathname-type p))
-				(format nil "~A.~A" (pathname-name p)
-					            (pathname-type p))))
-			(directory
-			 (format nil "~A~A"
-				 beesknees.site-control::*bee-data-root*
-				 "wwwroot/img/backgrounds/*.*")))
-    :test-fn #'string=))
+(defclass image-selector-field (select-field)
+  ((path :initarg :image-directory :accessor image-directory-path))
+  (:default-initargs :test-fn #'string=))
+
+(defmethod ucw-forms:data-set ((field image-selector-field))
+  (mapcar (lambda (p)
+	    (format nil "~A.~A" (pathname-name p)
+		    (pathname-type p)))
+	  (directory (image-directory-path field))))
hunk ./src/web-admin.lisp 71
+		:image-directory (merge-pathnames
+				  "wwwroot/img/backgrounds/*.*"
+				  beesknees.site-control::*bee-data-root*)