Index: openacs.org-dev/packages/ecommerce/www/admin/user-classes/add-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs.org-dev/packages/ecommerce/www/admin/user-classes/add-2.tcl,v diff -u -r1.1.1.1 -r1.1.1.2 --- openacs.org-dev/packages/ecommerce/www/admin/user-classes/add-2.tcl 9 Jul 2002 17:35:08 -0000 1.1.1.1 +++ openacs.org-dev/packages/ecommerce/www/admin/user-classes/add-2.tcl 8 Oct 2002 15:47:09 -0000 1.1.1.2 @@ -5,7 +5,7 @@ @author @creation-date - @cvs-id add-2.tcl,v 3.1.6.5 2000/08/18 21:47:00 stevenp Exp + @cvs-id $Id$ @author ported by Jerry Asher (jerry@theashergroup.com) } { user_class_id:naturalnum @@ -22,7 +22,7 @@ set return_url "[ad_conn url]?[export_entire_form_as_url_vars]" ad_returnredirect "/register.tcl?[export_url_vars return_url]" - return + ad_script_abort } # see if it's already in the database, meaning the user pushed reload @@ -31,7 +31,7 @@ if { [db_string get_uc_count "select count(*) from ec_user_classes where user_class_id=:user_class_id"] > 0 } { ad_returnredirect index.tcl - return + ad_script_abort } db_dml insert_new_uc "insert into ec_user_classes