Index: openacs-4/packages/dotlrn-ecommerce/dotlrn-ecommerce.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/dotlrn-ecommerce.info,v
diff -u -N -r1.49 -r1.50
--- openacs-4/packages/dotlrn-ecommerce/dotlrn-ecommerce.info	10 Mar 2006 19:28:53 -0000	1.49
+++ openacs-4/packages/dotlrn-ecommerce/dotlrn-ecommerce.info	20 Apr 2006 20:08:44 -0000	1.50
@@ -21,6 +21,7 @@
         <requires url="dotlrn-attendance" version="0.1d"/>
         <requires url="dotlrn-catalog" version="0.1a5"/>
         <requires url="wps-portlet" version="2.0.2"/>
+        <requires url="ecommerce" version="5.0.5">/
 
         <callbacks>
             <callback type="after-install"  proc="dotlrn_ecommerce::install"/>
Index: openacs-4/packages/dotlrn-ecommerce/tcl/dotlrn-ecommerce-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/tcl/dotlrn-ecommerce-procs.tcl,v
diff -u -N -r1.13 -r1.14
--- openacs-4/packages/dotlrn-ecommerce/tcl/dotlrn-ecommerce-procs.tcl	23 Jan 2006 08:04:42 -0000	1.13
+++ openacs-4/packages/dotlrn-ecommerce/tcl/dotlrn-ecommerce-procs.tcl	20 Apr 2006 20:08:43 -0000	1.14
@@ -575,7 +575,7 @@
     }
 
     # Then check existing APM params
-    if { [catch {set value [parameter::get_from_package_key -parameter $param -package_key dotlrn-ecommerce]}] } {
+    if { [catch {set value [parameter::get_from_package_key -parameter $param -package_key dotlrn-ecommerce -default $default]}] } {
 	# Invalid parameter, return string
 	return $default
     }
Index: openacs-4/packages/dotlrn-ecommerce/tcl/test/dotlrn-ecommerce-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/tcl/test/dotlrn-ecommerce-procs.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-ecommerce/tcl/test/dotlrn-ecommerce-procs.tcl	20 Apr 2006 20:08:43 -0000	1.1
@@ -0,0 +1,25 @@
+# packages/dotlrn-ecommerce/tcl/test/dotlrn-ecommerce-procs.tcl
+
+ad_library {
+    
+    Tests for dotlrn ecommerce
+    
+    @author Dave Bauer (dave@thedesignexperience.org)
+    @creation-date 2006-04-20
+    @cvs-id $Id: dotlrn-ecommerce-procs.tcl,v 1.1 2006/04/20 20:08:43 daveb Exp $
+}
+
+aa_register_case -cats api util_param_get_default {
+    Test that dotlrn_ecommerc::util::param::get returns the default we
+    passed in if the parameter is not set (instead of always empty
+    string)
+} {
+    # make sure the parameter does not exist, use a fake name
+    set param_name [ns_mktemp __does_not_exist_XXXXXX]
+    set param_default _the_default_
+    set param_value [dotlrn_ecommerce::util::param::get \
+                         -default $param_default \
+                         $param_name]
+    aa_true "Correct default '${param_value}' matches '${param_default}'" \
+        [expr {$param_default eq $param_value}]
+} 
\ No newline at end of file