Index: openacs-4/packages/ecommerce/tcl/ecommerce-widgets-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/tcl/ecommerce-widgets-procs.tcl,v
diff -u -r1.22 -r1.23
--- openacs-4/packages/ecommerce/tcl/ecommerce-widgets-procs.tcl	1 Jan 2009 14:15:43 -0000	1.22
+++ openacs-4/packages/ecommerce/tcl/ecommerce-widgets-procs.tcl	12 Feb 2009 06:29:07 -0000	1.23
@@ -577,7 +577,7 @@
 
 ad_proc ec_continue_shopping_options { } { returns continue shopping options } {
     return "
-	<form method=post action=\"category-browse\">
+	<form method=post action=\"[ec_url]category-browse\">
 	  Continue Shopping for [ec_only_category_widget] 
 	  <input type=submit value=\"Go\">
 	</form>"
@@ -986,7 +986,7 @@
 	regexp {^0([^0].*)} $secs match secs
 	if { [regexp -nocase {am} $secsampm] } {
 	    set ampm AM
-	} elseif { [regexp -nocase {pm} $secsampm] } {
+	} elseif { [regexp -nocase {pm} $secsampm] } { 
 	    set ampm PM
 	} else {
 	    # assume that we're dealing with military time
@@ -1005,7 +1005,7 @@
 
     set output "<input name=\"$column.time\" type=text size=9 value=\"$time\">&nbsp;
 <select name=\"$column.ampm\">
-[ad_generic_optionlist [list $ampm AM PM] [list $ampm AM PM] $ampm]
+[ad_generic_optionlist [list "" AM PM] [list "" AM PM] $ampm]
 </select>"
 
     return $output