Mercurial > urweb
diff 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 |
line wrap: on
line diff
--- a/tests/blob.ur Sat Apr 25 14:04:38 2009 -0400 +++ b/tests/blob.ur Sat Apr 25 14:35:49 2009 -0400 @@ -2,16 +2,9 @@ table t : { Id : int, Nam : option string, Data : blob, Desc : string } fun save r = - if numFiles r.Data <> 1 then - error <xml>Please submit exactly one file.</xml> - else - let - val f = fileNum r.Data 0 - in - id <- nextval s; - dml (INSERT INTO t (Id, Nam, Data, Desc) VALUES ({[id]}, {[fileName f]}, {[fileData f]}, {[r.Desc]})); - main () - end + id <- nextval s; + dml (INSERT INTO t (Id, Nam, Data, Desc) VALUES ({[id]}, {[fileName r.Data]}, {[fileData r.Data]}, {[r.Desc]})); + main () and main () = return <xml><body> <form>