Index: openacs-4/packages/ecommerce/lib/toolbar.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/lib/toolbar.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/ecommerce/lib/toolbar.tcl	10 Aug 2008 10:53:36 -0000	1.2
+++ openacs-4/packages/ecommerce/lib/toolbar.tcl	15 Oct 2010 05:25:32 -0000	1.3
@@ -19,3 +19,14 @@
 
 # Check if gift certificates can be bought.
 set gift_certificates_are_allowed [parameter::get -package_id [ec_id] -parameter SellGiftCertificatesP -default 0]
+
+set paypal_standard_mode [parameter::get -parameter PayPalStandardMode]
+set user_session_id [ec_get_user_session_id]
+set n_items_in_cart [db_string get_n_items "select count(*) from ec_orders o, ec_items i
+    where o.order_id=i.order_id and o.user_session_id=:user_session_id and o.order_state='in_basket'"]
+if { $paypal_standard_mode == 5 && $n_items_in_cart == 0 } {            
+    set paypal_business_ref [parameter::get -parameter PayPalBusinessRef]
+    set use_paypal_shopping_cart_p 1
+} else {
+    set use_paypal_shopping_cart_p 0
+}
\ No newline at end of file