my $coupon_link = webshop::OrderCouponLink->new( $keeper );
628
$coupon_link->status( 0 );
629
if ( $session->id ) {
630
$coupon_link->uid( $session->id );
631
} else {
632
$coupon_link->uid( 0 );
633
$coupon_link->session( $session->_session_id );
634
}
635
$coupon_link->dest_id( $coupon->id );
636
$coupon_link->dest_class( $coupon->class );
637
$coupon_link->source_id( 0 );
638
$coupon_link->source_class( 'webshop::Order' );
639
$coupon_link->store;
640
$result{created} = $coupon;
641
push @registered, $coupon;
642
}
643
} else {
644
$result{error} = 'Купон не найден';
645
}
646
}
647
} else {
648
$result{error} = 'Вы не указали код купона';
649
}
650
} else {
651
$result{error} = 'Фатальная ошибка. Не работают сессии! Обратитесь в службу поддержки магазина';
652
}
653
654
return \%result;
655
}
656
657
563
658
sub price_format {
564
659
my $self = shift;
565
660
my $price = shift;
Небольшая справка по веткам
cnddist – контейнер, в котором хранятся все дистрибутивы всех библиотек и программных пакетов, которые использовались при построении различных версий Contenido. Если какой-то библиотеки в данном хранилище нет, инсталлятор сделает попытку "подтянуть" ее с веба (например, с CPAN). Если библиотека слишком старая, есть очень большая вероятность, что ее там уже нет. Поэтому мы храним весь хлам от всех сборок. Если какой-то дистрибутив вдруг отсутствует в cnddist - напишите нам, мы положим его туда.
koi8 – отмирающая ветка, чей код, выдача и все внутренние библиотеки заточены на кодировку KOI8-R. Вносятся только те дополнения, которые касаются внешнего вида и функционала админки, баги ядра, обязательные обновления портов и мелочи, которые легко скопипастить. В дальнейшем планируется полная остановка поддержки по данной ветке.
utf8 – актуальная ветка, заточенная под UTF-8.
Внутри каждой ветки: core – исходники ядра; install – скрипт установки инсталляции; plugins – плагины; samples – "готовые к употреблению" проекты, которые можно поставить, запустить и посмотреть, как они работают.
