|  |  |  | @ -121,7 +121,7 @@ | 
		
	
		
			
				|  |  |  |  |    :select select-widget | 
		
	
		
			
				|  |  |  |  |    :mselect multiselect-widget}) | 
		
	
		
			
				|  |  |  |  | 
 | 
		
	
		
			
				|  |  |  |  | (defn widget | 
		
	
		
			
				|  |  |  |  | (defn widget-markup | 
		
	
		
			
				|  |  |  |  |   [id def value req-value validate?] | 
		
	
		
			
				|  |  |  |  |   (let [{:keys [label spec widget options]} def | 
		
	
		
			
				|  |  |  |  |         widget (cond (some? widget) widget | 
		
	
	
		
			
				
					|  |  |  | @ -147,11 +147,11 @@ | 
		
	
		
			
				|  |  |  |  |              (let [{:keys [options to-form]} field-def | 
		
	
		
			
				|  |  |  |  |                    value (field-id values) | 
		
	
		
			
				|  |  |  |  |                    req-value (get-in req [:params field-id])] | 
		
	
		
			
				|  |  |  |  |                (widget field-id | 
		
	
		
			
				|  |  |  |  |                        field-def | 
		
	
		
			
				|  |  |  |  |                        (if to-form (to-form value) value) | 
		
	
		
			
				|  |  |  |  |                        req-value | 
		
	
		
			
				|  |  |  |  |                        validate?))) | 
		
	
		
			
				|  |  |  |  |                (widget-markup field-id | 
		
	
		
			
				|  |  |  |  |                               field-def | 
		
	
		
			
				|  |  |  |  |                               (if to-form (to-form value) value) | 
		
	
		
			
				|  |  |  |  |                               req-value | 
		
	
		
			
				|  |  |  |  |                               validate?))) | 
		
	
		
			
				|  |  |  |  |            (:fields form-def)) | 
		
	
		
			
				|  |  |  |  |           (hform/hidden-field "__form-hash" form-hash) | 
		
	
		
			
				|  |  |  |  |           (anti-forgery-field)))) | 
		
	
	
		
			
				
					|  |  |  | 
 |