Mercurial > urweb
comparison 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 |
comparison
equal
deleted
inserted
replaced
738:7fa4871e8272 | 739:4bb7e1c0550a |
---|---|
1 sequence s | 1 sequence s |
2 table t : { Id : int, Nam : option string, Data : blob, Desc : string } | 2 table t : { Id : int, Nam : option string, Data : blob, Desc : string } |
3 | 3 |
4 fun save r = | 4 fun save r = |
5 if numFiles r.Data <> 1 then | 5 id <- nextval s; |
6 error <xml>Please submit exactly one file.</xml> | 6 dml (INSERT INTO t (Id, Nam, Data, Desc) VALUES ({[id]}, {[fileName r.Data]}, {[fileData r.Data]}, {[r.Desc]})); |
7 else | 7 main () |
8 let | |
9 val f = fileNum r.Data 0 | |
10 in | |
11 id <- nextval s; | |
12 dml (INSERT INTO t (Id, Nam, Data, Desc) VALUES ({[id]}, {[fileName f]}, {[fileData f]}, {[r.Desc]})); | |
13 main () | |
14 end | |
15 | 8 |
16 and main () = return <xml><body> | 9 and main () = return <xml><body> |
17 <form> | 10 <form> |
18 <textbox{#Desc}/> | 11 <textbox{#Desc}/> |
19 <upload{#Data}/> | 12 <upload{#Data}/> |