Index: openacs-4/packages/contacts/www/admin/role-ae.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/admin/role-ae.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/contacts/www/admin/role-ae.tcl	5 Jun 2005 19:36:37 -0000	1.3
+++ openacs-4/packages/contacts/www/admin/role-ae.tcl	28 Jun 2005 05:57:44 -0000	1.4
@@ -23,14 +23,16 @@
 	{role:text {label "[_ contacts.Role_Name]"}}
         {pretty_name:text {label "[_ contacts.Role_Singular]"}}
         {pretty_plural:text {label "[_ contacts.Role_Plural]"}}
+    } -on_request {
+	# if a return_url was provided it is set here
     } -on_submit {
 
 	if {[db_string role_exists_with_same_names_p {
 	    select count(r.role) from acs_rel_roles r where r.role = :role}]} {
 	    ad_return_complaint 1 "[_ contacts.lt_li_The_role_you_enter]"
 	    return
 	}
-	if {[empty_string_p $role]}�{
+	if { [empty_string_p $role] } {
 	    rel_types::create_role -pretty_name $pretty_name -pretty_plural $pretty_plural
 	} else {
 	    rel_types::create_role -pretty_name $pretty_name -pretty_plural $pretty_plural -role $role