[Move image-selector-field to admin-common
clinton@unknownlamer.org**20090521195538
 Ignore-this: 57a5ba37a57369cec486f27da95267d5
] hunk ./src/admin-common.lisp 21
+
+(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 57
-(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))))
-