[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.35 and 1.61

version 1.35, 2004/03/25 11:51:19 version 1.61, 2004/08/03 11:18:22
Line 1 Line 1
 @auto[]  # 20040623 paf@design.ru
 $request:charset[windows-1251]  
 $response:charset[windows-1251]  
   
   #neptune: parser upgraded, теперь $.bind[
   #$.name[^taint[uri][москва]] придёт в виде %xx%xx...
   
 @main[]  
 $table[^table::create{pet  
 cat     milk}]  
 $hash[^table.hash[pet]]  
 ^display[$hash]  
   
 @main[]  @main[]
 ^connect[mysql://root@localhost/paf]{  ^connect[oracle://igs:pwd@oracle]{
   
 $hash[^hash::sql{select 'cat' as pet  
 #, 'milk' as food  
 }]  
 ^display_hash[$hash]  
   
   
 }  
   
 @main[]  ^rem{
 ^connect[mysql://root@localhost/paf]{      $vars[
         $participants[^hash::sql{select 'feodor' as participant }]          $.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
 $participantsZ[  
         $.alex(1)  
         $.boris(1)  
 ]  
   
 #:из которого можно эффективно извлекать информацию, например, так:  
 $person[feodor]  
 $person ^if($participants.$person){участвует}{не участвует} в мероприятии  
 }  }
   
           $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>
   
 @display_hash[hash]  
 #$hash.a.a  
 ^hash.foreach[k;v]{hash $k=(  
 ^if($v is hash){^display_hash[$v]}{  
 ^if($v is bool){bool ^if($v){true;false}}{string $v}  
 }  
 }[,]  
   
 )^#0A}]  
   
   }
   
 @main[]  @show[name]
 $name[ Вася ]  $name=$vars.$name<br>
 "$name"           
 "^name.trim[]"  
   @x[]
 $path[/section/subsection/]          $MotorBrands[
 ^path.trim[end;/]                  $.v[2]
           ]
 @main[]  
 $xdoc[^xdoc::create{<?xml version="1.0"?>          $a[^table::sql{
 <document xmlns:s="urn:special">                  SELECT
         <s:code>string</s:code>                          isn,
 </document>                          shortname name,
 }]                          nvl(code,'0') code
 $xdoc.search-namespaces.s[urn:special]                  FROM
 ^xdoc.selectString[string(//s:code)]                          ais.dicti
                   WHERE
                           parentisn=:v
                           and active is not null
                   ORDER BY
                           shortname
           }[
                   $.bind[$MotorBrands]
           ]
           ]
Removed from v.1.35  
changed lines
  Added in v.1.61

E-mail: