--- parser3/www/htdocs/Attic/_bug.html 2004/03/02 13:37:45 1.22
+++ parser3/www/htdocs/Attic/_bug.html 2004/12/23 14:51:32 1.74
@@ -1,10 +1,41 @@
-$request:charset[koi8-r]
-#$request:charset[windows-1251]
-$request:charset/$response:charset
+@print[title;hash][key;value]
+
$title ^hash.foreach[key;value]{$key}[ | ]
+=$hash.[zzz].rrggbb=
-^connect[$SQL.connect-string]{
-$t[^table::sql{select * from paf}]
-$c[^t.columns[]]
-^c.menu{$c.column
+@main[]
+$table[^table::create{color rrggbb
+red ff0000
+green 00ff00
+blue 0000ff
+_default 000000}
+]
+
+$c_hash[
+ $.red[
+ $.color[red]
+ $.rrggbb[ff0000]
+ ]
+ $.green[
+ $.color[green]
+ $.rrggbb[00ff00]
+ ]
+ $.blue[
+ $.color[blue]
+ $.rrggbb[0000ff]
+ ]
+ $._default[
+ $.color[_default]
+ $.rrggbb[000000]
+ ]
+]
+
+$a_hash[^table.hash[color]]
+^print[a_hash:;$a_hash]
+
+$b_hash[^hash::create[]]
+^table.menu{
+ ^b_hash.add[$.[$table.color][$table.fields]]
}
-}
\ No newline at end of file
+^print[b_hash:;$b_hash]
+
+^print[c_hash:;$c_hash]
\ No newline at end of file