Index: openacs-4/packages/contacts/tcl/contacts-populate-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contacts-populate-procs.tcl,v
diff -u -r1.18 -r1.19
--- openacs-4/packages/contacts/tcl/contacts-populate-procs.tcl	18 Dec 2005 12:29:27 -0000	1.18
+++ openacs-4/packages/contacts/tcl/contacts-populate-procs.tcl	20 Dec 2005 16:19:39 -0000	1.19
@@ -39,10 +39,6 @@
 
     set registered_user_group_id [contacts::default_group -package_id $package_id]
 
-
-    set supplier_id [db_string freelancer_group "select group_id from groups where group_name =  'Supplier'"]
-
-#	set supplier_id [group::new -group_name "Supplier" "group"]
     set customers_id [group::new \
 			  -group_name "Customers" "group"]
     lang::message::register -update_sync de_DE acs-translations "group_title_${customers_id}" "Kunden"