annotate tests/ascdesc.ur @ 1752:675ce534e3ec

New optional suffice for 'rewrite' in .urp files: [-]
author Adam Chlipala <adam@chlipala.net>
date Sun, 06 May 2012 15:27:30 -0400
parents 6f046b4bad24
children
rev   line source
adam@1543 1 table t : { A : int }
adam@1543 2
adam@1543 3 fun sortEm b =
adam@1543 4 queryX1 (SELECT * FROM t ORDER BY t.A {if b then sql_asc else sql_desc})
adam@1543 5 (fn r => <xml>{[r.A]}; </xml>)
adam@1543 6
adam@1543 7 fun main () : transaction page = return <xml><body>
adam@1543 8 <a link={sortEm True}>Ascending</a><br/>
adam@1543 9 <a link={sortEm False}>Descending</a>
adam@1543 10 </body></xml>