Megatest

Diff
Login

Differences From Artifact [efcc75596f]:

To Artifact [24c2262144]:


115
116
117
118
119
120
121







122

123
124
125
126
	    (set! res (append res (list item)))
	    (loop (+ indx 1)
		  '()
		  #f)))
      res)))
            ;; Nope, not now, return null as of 6/6/2011
		







  

;; (pp (item-assoc->item-list itemdat))


	







>
>
>
>
>
>
>
|
>




115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
	    (set! res (append res (list item)))
	    (loop (+ indx 1)
		  '()
		  #f)))
      res)))
            ;; Nope, not now, return null as of 6/6/2011
		
(define (check-valid-items class item)
  (let ((valid-values (let ((s (config-lookup *configdat* "validvalues" class)))
			(if s (string-split s) #f))))
    (if valid-values
	(if (member item valid-values)
	    item #f)
	item)))


;; (pp (item-assoc->item-list itemdat))