Return to _bug.html CVS log

Up to [parser3project] / parser3 / www / htdocs

Annotation of parser3/www/htdocs/_bug.html, revision 1.61

1.61    ! paf         1: # 20040623 paf@design.ru
1.58      paf         2: 
1.61    ! paf         3: #neptune: parser upgraded, теперь $.bind[
        !             4: #$.name[^taint[uri][москва]] придёт в виде %xx%xx...
        !             5: 
        !             6: 
        !             7: @main[]
        !             8: ^connect[oracle://igs:pwd@oracle]{
        !             9: 
        !            10: 
        !            11: 
        !            12: ^rem{
        !            13:     $vars[
        !            14:         $.puserisn(1)
        !            15:         $.poper[create]
        !            16:         $.pform[name1=value1&name2=value2]
        !            17:         $.pPremium(0)
        !            18:         $.pid(0)
        !            19:         $.pisn(0)
        !            20:     ]
        !            21:        ^void:sql{call iagency.doMotorAgr(
        !            22:         :puserisn, -- идентификатор пользователя (страхователя), необходим для создания договора
        !            23:         :poper,    -- тип операции calc - расчет премии, create - расчет и создание договора
        !            24:         :pform,    -- строка параметров вида параметр=значение&:
        !            25:         :pPremium, -- премия по договору
        !            26:         :pid,      -- номер договора (после создания)
        !            27:         :pisn,     -- системный номер договора (после создания)
        !            28:         null,      -- в текущей версии не используется         
        !            29:         null       -- в текущей версии не используется         
        !            30:        )}[
        !            31:                $.bind[$vars]
        !            32:        ]
        !            33:        ^show[puserisn]
        !            34:        ^show[poper]
        !            35:        ^show[pid]
        !            36:        ^show[pisn]
        !            37:        <hr>
        !            38: 
        !            39:        OK
        !            40: }
        !            41: 
        !            42:        $varsl[
        !            43:                $.pname[igs]
        !            44:                $.pwd[create]
        !            45:                $.pisn[x]
        !            46:                $.pres[]
        !            47:        ]
        !            48: 
        !            49:        ^void:sql{call iagency.login(
        !            50:                :pname,
        !            51:                :pwd,
        !            52:                :pisn,
        !            53:                :pres
        !            54:        )}[
        !            55:                $.bind[$varsl]
        !            56:        ]
        !            57:        
        !            58:        $varsl.pisn<br>
        !            59:        $varsl.pres<br>
        !            60: 
        !            61: 
        !            62: 
        !            63: }
        !            64: 
        !            65: @show[name]
        !            66: $name=$vars.$name<br>
        !            67:          
        !            68: 
        !            69: @x[]
        !            70:        $MotorBrands[
        !            71:                $.v[2]
        !            72:        ]
        !            73: 
        !            74:        $a[^table::sql{
        !            75:                SELECT
        !            76:                        isn,
        !            77:                        shortname name,
        !            78:                        nvl(code,'0') code
        !            79:                FROM
        !            80:                        ais.dicti
        !            81:                WHERE
        !            82:                        parentisn=:v
        !            83:                        and active is not null
        !            84:                ORDER BY
        !            85:                        shortname
        !            86:        }[
        !            87:                $.bind[$MotorBrands]
        !            88:        ]
        !            89:        ]