Index: openacs-4/packages/dotlrn-ecommerce/www/admin/participant-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/admin/participant-add.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn-ecommerce/www/admin/participant-add.tcl	9 Jun 2005 05:54:39 -0000	1.3
+++ openacs-4/packages/dotlrn-ecommerce/www/admin/participant-add.tcl	19 Jun 2005 06:05:07 -0000	1.4
@@ -12,16 +12,20 @@
     user_id:integer
     {return_url ""}
     section_id:integer
-    community_id:integer
     {cancel ""}
+    {add_url ""}
 } -properties {
 } -validate {
 } -errors {
 }
 
-set title ""
-set context ""
+if { ! [empty_string_p $cancel] } {
+    ns_log notice "DEBUG:: CANCEL - $cancel - $return_url"
 
+    ad_returnredirect $return_url
+    ad_script_abort
+}
+
 db_1row get_section_info "select c.course_id, c.course_name, s.section_name, s.product_id
     from dotlrn_ecommerce_section s, dotlrn_catalogi c, cr_items ci
     where s.course_id = c.item_id
@@ -30,5 +34,8 @@
 
 set title "Partipant Info for $course_name: $section_name"
 set context [list [list [export_vars -base course-info { course_id }] $section_name] "Participants and Patrons"]
-set add_url [export_vars -base "ecommerce/shopping-cart-add" { product_id user_id }]
-set addpatron_url [export_vars -base "[apm_package_url_from_key dotlrn-ecommerce]admin/membership-add" { user_id section_id community_id {referer $return_url} }]
+
+if { [empty_string_p $add_url] } {
+    set add_url [export_vars -base "ecommerce/shopping-cart-add" { product_id user_id }]
+}
+#set addpatron_url [export_vars -base "[apm_package_url_from_key dotlrn-ecommerce]admin/membership-add" { user_id section_id community_id {referer $return_url} }]