[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.117

version 1.61, 2004/08/03 11:18:22 version 1.117, 2006/04/09 13:38:48
Line 1 Line 1
 # 20040623 paf@design.ru  
   
 #neptune: parser upgraded, теперь $.bind[  $hash[
 #$.name[^taint[uri][москва]] придёт в виде %xx%xx...          $.1(1)
           $.2(2)
   ]
 @main[]  ^hash.foreach[k;v]{
 ^connect[oracle://igs:pwd@oracle]{          k=$k,v=$v^break[];!
   
   
   
 ^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[  $table[^table::create{a
                 $.pname[igs]  1
                 $.pwd[create]  2
                 $.pisn[x]  3}]
                 $.pres[]  ^table.menu{
         ]          <$table.a^if($table.a==2){^break[]!}>
   }[,]
         ^void:sql{call iagency.login(  -------------
                 :pname,  
                 :pwd,  ^while(1<2){
                 :pisn,          $i($i+1)
                 :pres          ^if(1<3){
         )}[          {
                 $.bind[$varsl]          <$i^if($i==3){^break[]}>
         ]          }
                   }
         $varsl.pisn<br>  
         $varsl.pres<br>  
   
   
   
 }  }
   
 @show[name]  ^for[i](1;3){
 $name=$vars.$name<br>          $i before
                    ^if($i==2){^continue[]}
           after
 @x[]  }[,]
         $MotorBrands[  
                 $.v[2]  $response:paf[test]
         ]  $response:paf[]
   ---
         $a[^table::sql{  $hashfile[^hashfile::open[hf]]
                 SELECT  $hashfile.1(1)
                         isn,  $hashfile.2(2)
                         shortname name,  ^hashfile.foreach[k;v]{
                         nvl(code,'0') code          k=$k,v=$v^break[];!
                 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.117

E-mail: