Revision 679

Date:
2018/05/21 06:32:44
Author:
ahitrov
Revision Log:
Case-sensitive coupon name bug

Files:

Legend:

 
Added
 
Removed
 
Modified

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

     
    590 590 id => \@cids,
    591 591 class => 'webshop::Coupon',
    592 592 ) : ();
    593 my ($coupon) = grep { $_->code eq $code } @registered;
    593 my ($coupon) = grep { uc(Encode::decode('utf-8', $_->code)) eq uc(Encode::decode('utf-8', $code)) } @registered;
    594 594 @registered = grep {
    595 595 my $bt = Contenido::DateTime->new( postgres => $_->dtime );
    596 596 my $et = Contenido::DateTime->new( postgres => $_->etime );