--- parser3/www/htdocs/Attic/_bug.html	2004/08/03 11:18:22	1.61
+++ parser3/www/htdocs/Attic/_bug.html	2004/12/23 14:40:54	1.73
@@ -1,89 +1,25 @@
-# 20040623 paf@design.ru
-
-#neptune: parser upgraded, теперь $.bind[
-#$.name[^taint[uri][москва]] придёт в виде %xx%xx...
-
-
 @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>
-
 
+$cH[^cH[]]
 
+^if($cH.this is "junction"){
+		$result[^cH.this[$cH.th_par]]
+}{
+		$result[0]
 }
 
-@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]
-	]
-	]
+@cH[]
+$result[
+		$.this[$mThis]
+		$.th_par[
+				$.a(2)
+				$.b(3)
+		]
+]
+####################################################################################################################
+
+@mThis[lparams][params]
+$params[^hash::create[$lparams]]
+$result[^eval($params.a * $params.b)]