Revision 424

Date:
2014/03/05 11:42:50
Author:
ahitrov
Revision Log:
Discounts workaround
Files:

Legend:

 
Added
 
Removed
 
Modified

  • utf8/plugins/webshop/lib/webshop/Discount.pm

     
    1 package webshop::Discount;
    2
    3 use strict;
    4 use warnings 'all';
    5
    6 use Contenido::Globals;
    7 use base "Contenido::Document";
    8 use Data::Dumper;
    9
    10 sub extra_properties
    11 {
    12 return (
    13 { 'attr' => 'class', 'column' => undef },
    14 { 'attr' => 'status', 'type' => 'status', 'rusname' => 'Статус',
    15 'cases' => [
    16 [0, 'Скидка не активна'],
    17 [1, 'Скидка активна'],
    18 ],
    19 },
    20 { 'attr' => 'uid', 'type' => 'status', 'rusname' => 'Доступность для пользователей',
    21 'cases' => [
    22 [0, 'Скидка доступна всем пользователям'],
    23 [1, 'Скидка доступна только зарегистрированным пользователям'],
    24 ],
    25 },
    26 { 'attr' => 'groups', 'rusname' => 'Группы товаров',
    27 lookup_opts => { class => $state->{webshop}->{item_section_class}, },
    28 allow_null => 1,
    29 rem => 'Список разделов, на содержимое которых распространяется скидка по купону',
    30 },
    31 { 'attr' => 'discount', 'type' => 'string', 'rusname' => 'Скидка на сумму заказа (число или процент)', shortname => 'Скидка',
    32 default => 0, column => 2 },
    33 { 'attr' => 'min_sum', 'type' => 'string', 'rusname' => 'Минимальная сумма, на которую действует скидка', default => 0 },
    34 )
    35 }
    36
    37 sub class_name
    38 {
    39 return 'Webshop: скидка';
    40 }
    41
    42 sub class_description
    43 {
    44 return 'Webshop: скидка';
    45 }
    46
    47 sub class_table
    48 {
    49 return 'webshop::SQL::CouponsTable';
    50 }
    51
    52 sub contenido_status_style
    53 {
    54 my $self = shift;
    55 if ( $self->status == 3 ) {
    56 return 'color:black;';
    57 } elsif ( $self->status == 2 ) {
    58 return 'color:red;';
    59 } elsif ( $self->status == 4 ) {
    60 return 'color:olive;';
    61 }
    62 }
    63
    64 sub table_links
    65 {
    66 return [
    67 # { name => 'Купоны', class => 'webshop::Coupon', filter => 'pid', field => 'pid' },
    68 ];
    69 }
    70
    71
    72 sub get_discount
    73 {
    74 my $self = shift;
    75
    76 my (%opts) = @_;
    77 my $basket = delete $opts{basket};
    78 return 0 unless exists $opts{uid} && $opts{uid} || exists $opts{session} && $opts{session};
    79 return 0 unless $self->discount;
    80
    81 $basket ||= $keeper->{webshop}->get_basket ( %opts );
    82 return 0 unless ref $basket eq 'ARRAY' && @$basket;
    83
    84 my ($number, $sum_total) = (0, 0);
    85 map { $number += $_->number; $sum_total += $_->number * $_->price } @$basket;
    86 warn "BASKET: $number Items of $sum_total Value\n";
    87
    88 my $discount_counted = 0;
    89 my $items;
    90 if ( $self->groups ) {
    91 $items = $self->keeper->get_documents (
    92 s => [$self->groups],
    93 class => $state->{webshop}->{item_document_class},
    94 light => 1,
    95 return_mode => 'array_ref',
    96 );
    97 } else {
    98 $items = $self->keeper->get_documents (
    99 class => $state->{webshop}->{item_document_class},
    100 lclass => 'webshop::DiscountItemLink',
    101 lsource => $self->id,
    102 light => 1,
    103 return_mode => 'array_ref',
    104 );
    105 }
    106
    107 if ( ref $items eq 'ARRAY' && @$items ) {
    108 my $found_sum = 0;
    109 foreach my $bi ( @$basket ) {
    110 warn "BASKET: Item id [".$bi->item_id."]\n" if $DEBUG;
    111 next if $bi->special_price;
    112 foreach my $item ( @$items) {
    113 if ( $bi->item_id == $item->id ) {
    114 warn "BASKET: Item [".$item->name."] id [".$item->id."]\n" if $DEBUG;
    115 $found_sum += $bi->number * $bi->price;
    116 last;
    117 }
    118 }
    119 }
    120 warn "Sum found: [$found_sum]\n" if $DEBUG;
    121 return $self->can_discount( $found_sum );
    122 } elsif ( $self->groups ) {
    123 return 0;
    124 } else {
    125 my $found_sum = 0;
    126 foreach my $bi ( @$basket ) {
    127 warn "BASKET: Item id [".$bi->item_id."]\n" if $DEBUG;
    128 next if $bi->special_price;
    129 $found_sum += $bi->number * $bi->price;
    130 }
    131 warn "Sum found: [$found_sum]\n" if $DEBUG;
    132 return $self->can_discount( $found_sum );
    133 }
    134 return 0;
    135 }
    136
    137
    138 sub can_discount
    139 {
    140 my $self = shift;
    141 my $sum = shift;
    142 return 0 unless $sum;
    143
    144 my $discount = $self->discount;
    145 my $min_sum = $self->min_sum || 0;
    146 my $count = 0;
    147 if ( $discount =~ /([\d\.]+)%/ ) {
    148 my $proc = $1;
    149 return 0 unless $proc;
    150 $count = $sum / 100 * $proc;
    151 } else {
    152 $count = $discount;
    153 }
    154 my $rest = $sum - $count;
    155 $count = 0 if $rest < $min_sum || $rest == 0;
    156 return $count;
    157 }
    158
    159
    160
    161 sub pre_store
    162 {
    163 my $self = shift;
    164
    165 my $default_section = $project->s_alias->{webshop_discounts} if ref $project->s_alias eq 'HASH';
    166 if ( $default_section && !$self->sections ) {
    167 $self->sections($default_section);
    168 }
    169
    170 return 1;
    171 }
    172
    173
    174 sub post_delete
    175 {
    176 my $self = shift;
    177
    178 $sql = $self->keeper->SQL->prepare('DELETE FROM webshop_coupon_links where source_id = ?');
    179 $sql->execute( $self->id );
    180 $sql = $self->keeper->SQL->prepare('DELETE FROM webshop_order_coupons where dest_id = ?');
    181 $sql->execute( $self->id );
    182
    183 1;
    184 }
    185
    186 1;

  • utf8/plugins/webshop/lib/webshop/DiscountItemLink.pm

     
    1 package webshop::DiscountItemLink;
    2
    3 use base 'Contenido::Link';
    4 use Contenido::Globals;
    5
    6 sub class_name
    7 {
    8 return 'Скидка на товар';
    9 }
    10
    11 sub class_description
    12 {
    13 return 'Скидка на товар';
    14 }
    15
    16 sub extra_properties
    17 {
    18 return ();
    19 }
    20
    21 sub class_table
    22 {
    23 return 'webshop::SQL::CouponLinkTable';
    24 }
    25
    26
    27 sub available_sources
    28 {
    29 return [ qw(webshop::Discount) ];
    30 }
    31
    32 sub available_destinations
    33 {
    34 my $self = shift;
    35 return $state->{webshop}->{item_document_class};
    36 }
    37
    38 1;

  • utf8/plugins/webshop/lib/webshop/Init.pm

     
    23 23 webshop::Delivery
    24 24 webshop::Payment
    25 25 webshop::Coupon
    26 webshop::Discount
    26 27
    27 28 webshop::Country
    28 29 webshop::Area
    … …  
    33 34 webshop::RegionSection
    34 35
    35 36 webshop::CouponItemLink
    37 webshop::DiscountItemLink
    36 38 webshop::OrderCouponLink
    37 39 ));
    38 40

  • utf8/plugins/webshop/lib/webshop/Keeper.pm

     
    407 407 }
    408 408
    409 409
    410 sub check_discount {
    411 my $self = shift;
    412 my (%opts) = @_;
    410 413
    414 warn "Check discount begin: ".Dumper(\%opts)."\n" if $DEBUG;
    415 my %dopts;
    416 if ( exists $opts{uid} && $opts{uid} ) {
    417 $dopts{uid} = [0,1];
    418 } else {
    419 $dopts{uid} = 0;
    420 }
    421 my $basket = exists $opts{basket} ? $opts{basket} : $self->get_basket( %opts );
    422
    423 my @discounts = $keeper->get_documents(
    424 class => 'webshop::Discount',
    425 status => 1,
    426 %dopts
    427 );
    428 }
    429
    430
    411 431 sub price_format {
    412 432 my $self = shift;
    413 433 my $price = shift;