Mercurial > urweb

comparison tests/blob.ur @ 739:4bb7e1c0550a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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}/>