Index: openacs-4/packages/contacts/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/admin/index.tcl,v
diff -u -N -r1.12 -r1.13
--- openacs-4/packages/contacts/www/admin/index.tcl	1 Nov 2006 09:12:15 -0000	1.12
+++ openacs-4/packages/contacts/www/admin/index.tcl	13 Dec 2006 13:03:53 -0000	1.13
@@ -150,3 +150,8 @@
 
 
 ad_return_template
+if {[attribute::id -object_type "organization" -attribute_name "short_name"] eq ""} {
+    set populate_url [export_vars -base "populate" -url {{populate_type "crm"}}]
+} else {
+    set populate_url ""
+}
\ No newline at end of file