--- parser3/www/htdocs/Attic/index.html	2002/08/13 16:31:31	1.108
+++ parser3/www/htdocs/Attic/index.html	2002/08/15 10:26:05	1.113
@@ -6,6 +6,8 @@ $selffilespec[$filespec]
 #$form:here
 #$request:charset[UTF-8]
 #$response:charset[windows-1251]
+#$request:charset[windows-1251]
+#$response:charset[UTF-8]
 #$response:content-type[$.value[text/html]$.charset[$response:charset]]
 
 #@postprocess[body]
@@ -22,7 +24,7 @@ $selffilespec[$filespec]
 ##	$.default{2}
 #	]<br>
 #    ^string:sql{select news_id from news where news_id=-1}[$.default{2}]
-#	^file::load[text;^string:sql{select '^^hello[]' }]
+#	^file::load[text;^string:sql{select 'from sql server' }]
 #	^string:sql{select '^^hello[]' }] $ORIGINS(1)
 #	^process{	^^h[]}
 #	^process{^string:sql{select '1
@@ -209,11 +211,18 @@ $selffilespec[$filespec]
 #^monthdays(8)
 #^xdoctypetest[]
 #^xtabletest[]
-^staticstest[]
+#^staticstest[]
 #^staticstest2[]
+^rbodytest[]
 <hr>
 OK
 
+@rbodytest[]
+$request:body=
+<form method=post>
+<input type=submit name=paf value=123>
+</form>
+
 @staticstest2[]
 ^$derived:derived_var=$derived:derived_var<br>
 ^$derived:a=$derived:a<br>
@@ -221,12 +230,18 @@ $derived:a[changed] ^$derived:a=$derived
 $derived:derived_var[changed] 
 ^$derived:derived_var=$derived:derived_var<br>
 
-
 @staticstest[]
 $derived[^derived::create[]]
 ^derived.test[]
+<hr>
 ^$derived.a=$derived.a<br>
 ^$derived.x=$derived.x<br>
+<hr>
+^if($derived is derived){derived is derived}{error: derived is not derived}<br>
+^if($derived is table){derived is table}{error:derived is not table}<br>
+<hr>
+^^eval(^$derived)=^eval($derived)<br>
+^^if(^$derived)=^if($derived){y}{n}<br>
 
 
 @xdoctypetest[]