Index: openacs-4/contrib/packages/events/www/order-cancel.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/events/www/order-cancel.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/packages/events/www/order-cancel.tcl 9 Mar 2003 12:08:08 -0000 1.1
+++ openacs-4/contrib/packages/events/www/order-cancel.tcl 9 Mar 2003 16:27:28 -0000 1.2
@@ -57,7 +57,7 @@
-label "Your Name" \
-datatype text \
-widget inform \
- -value "
"
+ -value " "
element create confirm_cancel inform_of_cancel \
-label "Action" \
@@ -75,7 +75,8 @@
-label "Are you sure you want to cancel?" \
-datatype text \
-widget radio \
- -options {{yes t} {no f}}
+ -options {{Yes t} {No f}} \
+ -value f
if {[template::form is_valid confirm_cancel]} {
template::form get_values confirm_cancel reg_id confirm_p