Index: openacs-4/packages/contacts/tcl/contacts-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contacts-procs.tcl,v diff -u -r1.7 -r1.8 --- openacs-4/packages/contacts/tcl/contacts-procs.tcl 7 Jun 2005 07:45:40 -0000 1.7 +++ openacs-4/packages/contacts/tcl/contacts-procs.tcl 8 Jun 2005 16:13:54 -0000 1.8 @@ -213,6 +213,8 @@ } { set creation_user [ad_conn user_id] set creation_ip [ad_conn peeraddr] + set group_name [lang::util::convert_to_i18n -prefix "group" -text "$group_name"] + return [db_string create_group {}] }