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.10 -r1.11
--- openacs-4/packages/ecommerce/tcl/ecommerce-widgets-procs.tcl	23 Oct 2001 05:07:14 -0000	1.10
+++ openacs-4/packages/ecommerce/tcl/ecommerce-widgets-procs.tcl	29 Jan 2002 00:11:46 -0000	1.11
@@ -979,7 +979,8 @@
 }
 
 ad_proc ec_gift_certificate_expires_widget { {default "none"} } "Gives the HTML code for the select list from which customer service can change when a consumer's gift_certificate expires." {
-    set option_spec_list [list [list "sysdate + 1" "in 1 day"] [list "sysdate + 2" "in 2 days"] [list "sysdate + 3" "in 3 days"] [list "sysdate + 4" "in 4 days"] [list "sysdate + 5" "in 5 days"] [list "sysdate + 6" "in 6 days"] [list "sysdate + 7" "in 1 week"] [list "sysdate + 14" "in 2 weeks"] [list "sysdate + 21" "in 3 weeks"] [list "add_months(sysdate,1)" "in 1 month"] [list "add_months(sysdate,2)" "in 2 months"] [list "add_months(sysdate,3)" "in 3 months"] [list "add_months(sysdate,4)" "in 4 months"] [list "add_months(sysdate,5)" "in 5 months"] [list "add_months(sysdate,6)" "in 6 months"] [list "add_months(sysdate,7)" "in 7 months"] [list "add_months(sysdate,8)" "in 8 months"] [list "add_months(sysdate,9)" "in 9 months"] [list "add_months(sysdate,10)" "in 10 months"] [list "add_months(sysdate,11)" "in 11 months"] [list "add_months(sysdate,12)" "in 1 year"] [list "add_months(sysdate,24)" "in 2 years"] ]
+    set now [db_map now]
+    set option_spec_list [list [list "$now + 1" "in 1 day"] [list "$now + 2" "in 2 days"] [list "$now + 3" "in 3 days"] [list "$now + 4" "in 4 days"] [list "$now + 5" "in 5 days"] [list "$now + 6" "in 6 days"] [list "$now + 7" "in 1 week"] [list "$now + 14" "in 2 weeks"] [list "$now + 21" "in 3 weeks"] [list "add_months($now,1)" "in 1 month"] [list "add_months($now,2)" "in 2 months"] [list "add_months($now,3)" "in 3 months"] [list "add_months($now,4)" "in 4 months"] [list "add_months($now,5)" "in 5 months"] [list "add_months($now,6)" "in 6 months"] [list "add_months($now,7)" "in 7 months"] [list "add_months($now,8)" "in 8 months"] [list "add_months($now,9)" "in 9 months"] [list "add_months($now,10)" "in 10 months"] [list "add_months($now,11)" "in 11 months"] [list "add_months($now,12)" "in 1 year"] [list "add_months($now,24)" "in 2 years"] ]
 
     set name_of_select "expires"