[BACK]Return to _bug.html CVS log [TXT] [DIR] Up to [parser3project] / parser3 / www / htdocs

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

version 1.32, 2004/03/19 12:23:04 version 1.61, 2004/08/03 11:18:22
Line 1 Line 1
   # 20040623 paf@design.ru
   
   #neptune: parser upgraded, теперь $.bind[
   #$.name[^taint[uri][москва]] придёт в виде %xx%xx...
   
   
 @main[]  @main[]
 $soft(1)  ^connect[oracle://igs:pwd@oracle]{
 ^cache[/cache/soft-$soft.id](86400){  
 ^math:random(1000);  
 }  
 #^xdoc::load[a.xml]  
   
 @main2[]  ^rem{
 ^connect[odbc://DSN=test_dbf]{      $vars[
 ^int:sql{select count(*) from test}          $.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
 }  }
   
 @mainx[]          $varsl[
 $request:charset[windows-1251]                  $.pname[igs]
 $response:charset[windows-1251]                  $.pwd[create]
 $response:content-type[text/html]                  $.pisn[x]
                   $.pres[]
 $xdoc[^xdoc::load[_bug.xml]]          ]
 #^xdoc.string[]  
 $xdoc.search-namespaces.x[http://pif.design.ru/]          ^void:sql{call iagency.login(
 $nodes[^xdoc.select[//x:second]]                  :pname,
 ^nodes._count[]                  :pwd,
                   :pisn,
                   :pres
           )}[
                   $.bind[$varsl]
           ]
           
           $varsl.pisn<br>
           $varsl.pres<br>
   
 @main[]  
 ^bug.bug[]  
   
 @main[]  
 $d[^date::unix-timestamp(1079695550.808)]  
 #$d[^date::unix-timestamp(1079695983.321)]  
   
 ^d.sql-string[]  }
   
 @main[]  
 ^date::now[]  
   
   @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]
           ]
           ]
Removed from v.1.32  
changed lines
  Added in v.1.61

E-mail: