--- parser3/www/htdocs/Attic/_bug.html 2004/03/23 09:43:44 1.33
+++ parser3/www/htdocs/Attic/_bug.html 2004/10/07 09:23:44 1.69
@@ -1,17 +1,10 @@
-@main2[]
-^switch[2]{
- ^case(1){one}
- ^case[DEFAULT]{def}
+^connect[oracle://iagency:pwd@oracle]{
+ ^string:sql{select 2*2 from dual}
+ ^try{
+ ^string:sql{select 2*2x from dual}
+ }{
+ $exception.handled(1)
+ exception($exception.comment) handled
+ }
+ ^string:sql{select 2*2 from dual}
}
-
-
-@get[]
-$result[
- $._default{^math:random(10)}
-]
-#end @getBasketData[]
-
-@main[]
-$h[^get[]]
-
-=$h.1=
\ No newline at end of file