Revision 707

Date:
2018/08/15 23:24:42
Author:
ahitrov
Revision Log:
Transaction name by status

Files:

Legend:

 
Added
 
Removed
 
Modified
  • utf8/plugins/payments/lib/payments/Provider/Sber.pm

     
    22 22 );
    23 23
    24 24 our %STATUS = (
    25 0 => 'Ожидание оплаты',
    26 1 => 'Предавторизованная сумма захолдирована',
    27 2 => 'Успешная оплата',
    28 3 => 'Авторизация отменена',
    29 4 => 'По транзакции была проведена операция возврата',
    30 5 => 'Инициирована авторизация через ACS банка-эмитента',
    31 6 => 'Авторизация отклонена',
    25 0 => { name => 'Init', message => 'Ожидание оплаты' },
    26 1 => { name => 'Authorized', message => 'Предавторизованная сумма захолдирована', },
    27 2 => { name => 'Charged', message => 'Успешная оплата', },
    28 3 => { name => 'Rejected', message => 'Авторизация отменена', },
    29 4 => { name => 'Refunded', message => 'По транзакции была проведена операция возврата', },
    30 5 => { name => '3DS', message => 'Инициирована авторизация через ACS банка-эмитента', },
    31 6 => { name => 'Error', message => 'Авторизация отклонена', },
    32 32 );
    33 33
    34 34 sub new {
     
    376 376 return $self unless ref $operation;
    377 377
    378 378 my $transaction = $self->get_transaction_by_order_id( $opts->{orderNumber} );
    379 if ( ref $transaction && $transaction->name eq 'Charge' ) {
    379 if ( ref $transaction && $transaction->name eq 'Charged' ) {
    380 380 $opts->{orderId} = $transaction->session_id;
    381 381 my $order_id = delete $opts->{orderNumber};
    382 382 my $req = $self->_createRequestGet( $method, $opts );
     
    399 399 $transaction->operation_id( $operation->id );
    400 400 $transaction->currency_code( 'RUR' );
    401 401 $transaction->sum( $opts->{amount} );
    402 $transaction->name( 'Refund' );
    402 $transaction->name( 'Refunded' );
    403 403 $transaction->success( 0 );
    404 404 $transaction->store;
    405 405
     
    426 426 }
    427 427
    428 428
    429 sub GetNameByResultStatus {
    430 my ($self, $status) = @_;
    431 if ( exists $STATUS{$status} ) {
    432 return $STATUS{$status}{name};
    433 } else {
    434 return 'Error';
    435 }
    436 }
    429 437
    430
    431 438 sub _createRequestGet {
    432 439 my ($self, $method, $opts) = @_;
    433 440 return unless $method && exists $self->{api}{$method};

Небольшая справка по веткам

cnddist – контейнер, в котором хранятся все дистрибутивы всех библиотек и программных пакетов, которые использовались при построении различных версий Contenido. Если какой-то библиотеки в данном хранилище нет, инсталлятор сделает попытку "подтянуть" ее с веба (например, с CPAN). Если библиотека слишком старая, есть очень большая вероятность, что ее там уже нет. Поэтому мы храним весь хлам от всех сборок. Если какой-то дистрибутив вдруг отсутствует в cnddist - напишите нам, мы положим его туда.

koi8 – отмирающая ветка, чей код, выдача и все внутренние библиотеки заточены на кодировку KOI8-R. Вносятся только те дополнения, которые касаются внешнего вида и функционала админки, баги ядра, обязательные обновления портов и мелочи, которые легко скопипастить. В дальнейшем планируется полная остановка поддержки по данной ветке.

utf8 – актуальная ветка, заточенная под UTF-8.

Внутри каждой ветки: core – исходники ядра; install – скрипт установки инсталляции; plugins – плагины; samples – "готовые к употреблению" проекты, которые можно поставить, запустить и посмотреть, как они работают.