Page History

=head1 PSCB
  New module for %ИМЯ МОДУЛЯ%

  Documentaion: %ССЫЛКА НА ДОКУМЕНТАЦИЮ%

  Date: %ДАТА ПОСЛЕДНЕГО ИЗМЕНЕНИЯ%

  Version: %ВЕРСИЯ МОДУЛЯ%
=cut


use strict;
use warnings;

use Abills::Base qw(_bp );
use Abills::Misc qw();
require Paysys::Paysys_Base;

package Paysys::systems::PSCB;

use Digest::MD5 qw[md5];
use Paysys;


our $PAYSYSTEM_NAME = 'PAYSYS';
our $PAYSYSTEM_SHORT_NAME = 'PS';
our $PAYSYSTEM_ID = 1;



our $PAYSYSTEM_VERSION = '7.00';

# Этот хеш используется для настройки системы в меню настроек
our %PAYSYSTEM_CONF = (
  PAYSYS_PAYSYS_LOGIN => '',
);

#**********************************************************
=head2 new($db, $admin, $CONF)

  Arguments:
    $db    - ссылка на обьект базы данных    (required)
    $admin - ссылка на обьект администратора (required)
    $CONF  - ссылка на хеш %conf             (required)
    $attr  - {
		в атрибутах передаем дополнительные параметры
    }

  Returns:
    $self - обьект класса платежной системы

=cut
#**********************************************************
sub new {
  my $class = shift;

  my ($db, $admin, $CONF, $attr) = @_;

  my $self = {
    db    => $db,
    admin => $admin,
    conf  => $CONF,
    DEBUG => $CONF->{PAYSYS_DEBUG} || 0,
  };


  bless($self, $class);

  return $self;
}