Overview
Comment:Oops. Use the string result.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 8c0e13bea5695c7eb13da103640bdd70f35b432f
User & Date: matt on 2016-09-21 04:34:49
Other Links: manifest | tags
Context
2016-09-22
06:28
Added safe handling for params check-in: 4bccacb50f user: matt tags: trunk
2016-09-21
04:34
Oops. Use the string result. check-in: 8c0e13bea5 user: matt tags: trunk
04:31
Trim \n sillyness from escaped strings check-in: 8b94f6cb84 user: matt tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified session.scm from [50b203d5ca] to [05707f5346].

︙
749
750
751
752
753
754
755
756

757
758
759

760
761
762
763
764
765
766

749
750
751
752
753
754
755

756
757
758

759
760
761
762
763
764
765
766








-
+


-
+








			  (begin
			    (session:log self "ERROR: bad key " key)
			    #f)))))
    (case dtype
      ((raw)     res)
      ((number)  (if (string? res)(string->number res) #f))
      ((escaped) (if (string? res)
		     (s:html-filter res tags)
		     (s:html-filter->string res tags)
		     res))
      (else      (if (string? res)
		     (s:html-filter res '())
		     (s:html-filter->string res '())
		     res)))))

;; This one will get the first value found regardless of form
(define (session:get-input-keys self)
  (let* ((formdat (sdat-get-formdat self)))
    (if (not formdat) #f
	(if (and (vector? formdat)(eq? (vector-length formdat) 1)(hash-table? (vector-ref formdat 0)))
︙