--- parser3/www/htdocs/Attic/_bug.html 2004/02/26 14:37:31 1.11
+++ parser3/www/htdocs/Attic/_bug.html 2004/03/09 14:49:47 1.29
@@ -1,6 +1,27 @@
@main[]
-$file[^file::load[text;_bug.p]]
-^process[$self]{$file.text}[
- $.file[$file.name]
- $.lineno(-1)
-]
+$request:charset[windows-1251]
+$response:charset[windows-1251]
+$response:content-type[text/html]
+
+^if(def $form:param){
+ ^$form:param=$form:param
+
+ $several[$form:tables.several]
+ ^$form:tables.several=^several.menu{
+ $several.field
+ }[,]
+}{
+
+$f[^file::load[text;http://parser3/_bug.html;
+# $.method[POST]
+ $.form[
+ $.param[pass=ed
+ ]
+ $.several[^table::create[nameless]{1^#0A2}]
+ ]
+ $.any-status(1)
+]]
+
+=$f.text=
+
+}
\ No newline at end of file