parser3/www/htdocs/_bug.html - diff

Return to _bug.html CVS log

Up to [parser3project] / parser3 / www / htdocs

Diff for /parser3/www/htdocs/Attic/_bug.html between versions 1.23 and 1.61

-version 1.23, 2004/03/02 14:56:42
+version 1.61, 2004/08/03 11:18:22
  Line 1
- $request:charset[windows-1251]
+ # 20040623 paf@design.ru
- $response:charset[windows-1251]
- ^connect[$SQL.connect-string]{
+ #neptune: parser upgraded, теперь $.bind[
- #$f[^file::sql{select 2*2 from dual}]
+ #$.name[^taint[uri][москва]] придёт в виде %xx%xx...
- #^f.save[binary;file_sql.dat]
- $f[^file::load[binary;_bug.gif]]
- =^f.sql-string[]=
+ @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>
+ }
+ @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]
+         ]
+         ]

E-mail:

Removed from v.1.23
changed lines
	Added in v.1.61