add some support for customizing product options
[bse.git] / site / cgi-bin / modules / BSE / Cart.pm
index 5923e95..9a69209 100644 (file)
@@ -1,8 +1,9 @@
 package BSE::Cart;
 use strict;
 use Scalar::Util;
+use BSE::PubSub;
 
-our $VERSION = "1.015";
+our $VERSION = "1.016";
 
 =head1 NAME
 
@@ -894,6 +895,14 @@ sub price {
 
   unless (defined $self->{calc_price}) {
     $self->{calc_price} = $self->product->price(user => $self->{cart}{req}->siteuser);
+
+    BSE::PubSub->customize(
+      cart_price => {
+       cartitem => $self,
+       cart => $self->{cart},
+       price => \($self->{calc_price}),
+       request => $self->{cart}{req},
+      });
   }
 
   return $self->{calc_price};