1 |
492 |
vperunova |
package payments::Card; |
2 |
|
|
|
3 |
|
|
use base "Contenido::Document"; |
4 |
|
|
sub extra_properties |
5 |
|
|
{ |
6 |
|
|
return ( |
7 |
|
|
{ 'attr' => 'status', 'type' => 'status', 'rusname' => 'Статус карты оплаты', |
8 |
|
|
'cases' => [ |
9 |
|
|
[0, 'Карта не активна'], |
10 |
|
|
[1, 'Карта активна'], |
11 |
|
|
[2, 'Истек срок действия карты'], |
12 |
|
|
[3, 'Карта заблокирована'], |
13 |
|
|
], |
14 |
|
|
}, |
15 |
|
|
{ 'attr' => 'type', 'type' => 'status', 'rusname' => 'Тип карты оплаты', |
16 |
|
|
'cases' => [ |
17 |
|
|
[0, 'MasterCard'], |
18 |
|
|
[1, 'Visa'], |
19 |
|
|
], |
20 |
|
|
}, |
21 |
|
|
) |
22 |
|
|
} |
23 |
|
|
|
24 |
|
|
sub class_name |
25 |
|
|
{ |
26 |
|
|
return 'Payments: Банковская карта'; |
27 |
|
|
} |
28 |
|
|
|
29 |
|
|
sub class_description |
30 |
|
|
{ |
31 |
|
|
return 'Payments: Карта'; |
32 |
|
|
} |
33 |
|
|
|
34 |
|
|
sub class_table |
35 |
|
|
{ |
36 |
|
|
return 'payments::SQL::CardsTable'; |
37 |
|
|
} |
38 |
|
|
|
39 |
|
|
1; |