[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.61 and 1.84.4.3

version 1.61, 2004/08/03 11:18:22 version 1.84.4.3, 2005/08/09 08:19:04
Line 1 Line 1
 # 20040623 paf@design.ru  $request:charset
   $response:charset
   
 #neptune: parser upgraded, теперь $.bind[  $f[^file::exec[_bug.pl;
 #$.name[^taint[uri][москва]] придёт в виде %xx%xx...      $.charset[koi8-r]
           $.QUERY_STRING[тест=работает];параметр]]
   $f.text
 @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]  
         ]  
         ]  
Removed from v.1.61  
changed lines
  Added in v.1.84.4.3

E-mail: