--- parser3/www/htdocs/Attic/_bug.html	2004/08/03 11:18:22	1.61
+++ parser3/www/htdocs/Attic/_bug.html	2005/11/16 14:18:06	1.84.4.7
@@ -1,89 +1,41 @@
-# 20040623 paf@design.ru
-
-#neptune: parser upgraded, теперь $.bind[
-#$.name[^taint[uri][москва]] придёт в виде %xx%xx...
-
+@opt[]
+$result[
+	$.encloser["]
+#	$.separator[^#09]
+]
 
 @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
+$filename[/t.cfg]
+$options2[
+	$.encloser["]
+#	$.separator[^#09]
+]
+
+$t1[^table::create{a	b
+1	"
+2	""
+3	"""}]
+
+^t1.save[$filename][$options2]
+
+# if we try load with $options - we receive error
+$t2[^table::load[$filename][$options2]]
+#$t2[^table::load[$filename][^opt[]]]
+#$t2[^table::load[$filename][$.encloser["]]]
+
+
+<table border="1">
+<tr>
+	<td>t1</td>
+	<td>t2</td>
+	<td>eq?</td>
+</tr>
+^t1.menu{
+	<tr>
+		<td>$t1.b</td>
+		<td>$t2.b</td>
+		<td>^if($t1.b eq $t2.b){YES}{NO}</td>
+	</tr>
+	^t2.offset(1)
 }
-
-	$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>
-
-
-
-}
-
-@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]
-	]
-	]
+</table>