--- parser3/www/htdocs/Attic/_bug.html	2004/08/03 11:18:22	1.61
+++ parser3/www/htdocs/Attic/_bug.html	2004/12/23 14:51:32	1.74
@@ -1,89 +1,41 @@
-# 20040623 paf@design.ru
-
-#neptune: parser upgraded, теперь $.bind[
-#$.name[^taint[uri][москва]] придёт в виде %xx%xx...
-
+@print[title;hash][key;value]
+<p>$title ^hash.foreach[key;value]{$key}[ | ]</p>
+=$hash.[zzz].rrggbb=
 
 @main[]
-^connect[oracle://igs:pwd@oracle]{
-
-
-
-^rem{
-    $vars[
-        $.puserisn(1)
-        $.poper[create]
-        $.pform[name1=value1&name2=value2]
-        $.pPremium(0)
-        $.pid(0)
-        $.pisn(0)
-    ]
-	^void:sql{call iagency.doMotorAgr(
-        :puserisn, -- идентификатор пользователя (страхователя), необходим для создания договора
-        :poper,    -- тип операции calc - расчет премии, create - расчет и создание договора
-        :pform,    -- строка параметров вида параметр=значение&:
-        :pPremium, -- премия по договору
-        :pid,      -- номер договора (после создания)
-        :pisn,     -- системный номер договора (после создания)
-        null,      -- в текущей версии не используется         
-        null       -- в текущей версии не используется         
-	)}[
-		$.bind[$vars]
-	]
-	^show[puserisn]
-	^show[poper]
-	^show[pid]
-	^show[pisn]
-	<hr>
-
-	OK
-}
-
-	$varsl[
-		$.pname[igs]
-		$.pwd[create]
-		$.pisn[x]
-		$.pres[]
-	]
-
-	^void:sql{call iagency.login(
-		:pname,
-		:pwd,
-		:pisn,
-		:pres
-	)}[
-		$.bind[$varsl]
-	]
-	
-	$varsl.pisn<br>
-	$varsl.pres<br>
-
-
-
+$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]]
 }
+^print[b_hash:;$b_hash]
 
-@show[name]
-$name=$vars.$name<br>
-         
-
-@x[]
-	$MotorBrands[
-		$.v[2]
-	]
-
-	$a[^table::sql{
-		SELECT
-			isn,
-			shortname name,
-			nvl(code,'0') code
-		FROM
-			ais.dicti
-		WHERE
-			parentisn=:v
-			and active is not null
-		ORDER BY
-			shortname
-	}[
-		$.bind[$MotorBrands]
-	]
-	]
+^print[c_hash:;$c_hash]
\ No newline at end of file