Index: openacs-4/packages/acs-subsite/www/admin/group-types/rel-type-remove-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/group-types/rel-type-remove-2.tcl,v diff -u -N -r1.6 -r1.6.2.1 --- openacs-4/packages/acs-subsite/www/admin/group-types/rel-type-remove-2.tcl 19 Jan 2018 14:09:48 -0000 1.6 +++ openacs-4/packages/acs-subsite/www/admin/group-types/rel-type-remove-2.tcl 16 May 2019 09:54:29 -0000 1.6.2.1 @@ -1,5 +1,3 @@ -# /packages/mbryzek-subsite/www/admin/group-types/rel-type-remove-2.tcl - ad_page_contract { Removes the specified relation from the list of allowable ones @@ -17,18 +15,18 @@ if { $return_url eq "" } { # Pull out the group_type now as we may delete the row later db_1row select_group_type { - select g.group_type - from group_type_rels g - where g.group_rel_type_id = :group_rel_type_id + select g.group_type + from group_type_rels g + where g.group_rel_type_id = :group_rel_type_id } set return_url [export_vars -base one {group_type}] } if {$operation eq "Yes, I really want to remove this relationship type"} { db_transaction { - db_dml remove_relation { - delete from group_type_rels where group_rel_type_id = :group_rel_type_id - } + db_dml remove_relation { + delete from group_type_rels where group_rel_type_id = :group_rel_type_id + } } }