Mercurial > urweb
annotate tests/blob.ur @ 739:4bb7e1c0550a
Only allow single-file upload per control
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Sat, 25 Apr 2009 14:35:49 -0400 |
parents | d049d31a1966 |
children | b302b6e35f93 |
rev | line source |
---|---|
adamc@737 | 1 sequence s |
adamc@737 | 2 table t : { Id : int, Nam : option string, Data : blob, Desc : string } |
adamc@737 | 3 |
adamc@737 | 4 fun save r = |
adamc@739 | 5 id <- nextval s; |
adamc@739 | 6 dml (INSERT INTO t (Id, Nam, Data, Desc) VALUES ({[id]}, {[fileName r.Data]}, {[fileData r.Data]}, {[r.Desc]})); |
adamc@739 | 7 main () |
adamc@737 | 8 |
adamc@737 | 9 and main () = return <xml><body> |
adamc@737 | 10 <form> |
adamc@737 | 11 <textbox{#Desc}/> |
adamc@737 | 12 <upload{#Data}/> |
adamc@737 | 13 <submit action={save}/> |
adamc@737 | 14 </form> |
adamc@737 | 15 </body></xml> |