Mercurial > urweb

comparison src/monoize.sml @ 1025:7facf72aaf0a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Initial form for paper assignment
author Adam Chlipala <adamc@hcoop.net>
date Sun, 01 Nov 2009 14:26:20 -0500
parents 7a4a55e05081
children c1f49f6ba856
comparison
equal deleted inserted replaced
1024:93415bcf54c0 1025:7facf72aaf0a
3004 (L'.EPrim (Prim.String " enctype=\"multipart/form-data\""), loc)), loc) 3004 (L'.EPrim (Prim.String " enctype=\"multipart/form-data\""), loc)), loc)
3005 else 3005 else
3006 action 3006 action
3007 3007
3008 in 3008 in
3009 ((L'.EStrcat ((L'.EStrcat ((L'.EPrim (Prim.String "<form method=\"post\""), loc), 3009 ((L'.EStrcat ((L'.EStrcat ((L'.EPrim (Prim.String "<form method=\"get\""), loc),
3010 (L'.EStrcat (action, 3010 (L'.EStrcat (action,
3011 (L'.EPrim (Prim.String ">"), loc)), loc)), loc), 3011 (L'.EPrim (Prim.String ">"), loc)), loc)), loc),
3012 (L'.EStrcat (xml, 3012 (L'.EStrcat (xml,
3013 (L'.EPrim (Prim.String "</form>"), loc)), loc)), loc), 3013 (L'.EPrim (Prim.String "</form>"), loc)), loc)), loc),
3014 fm) 3014 fm)