Index: openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl,v
diff -u -r1.59 -r1.60
--- openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl	5 Apr 2007 11:37:22 -0000	1.59
+++ openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl	18 Jun 2007 03:20:45 -0000	1.60
@@ -103,6 +103,15 @@
 } {
 }
 
+ad_proc -public -callback contact::employee_new {
+    {-package_id:required}
+    {-person_id:required}
+    {-organization_id:required}
+} {
+    This callback will be executed once an employee has been created. This means we have a person in the system (employee)
+    as well as an organization (where the person is an employee of).
+} -
+
 ad_proc -public -callback contact::person_add {
     {-package_id:required}
     {-person_id:required}
@@ -266,9 +275,9 @@
 } {
 
     set object_type [contact::type -party_id $party_id]
-    set element_list [list email url]
+    set element_list [list]
     if { [lsearch [list person user] $object_type] >= 0 } {
-	lappend element_list first_names last_name
+	lappend element_list first_names last_name email
     } elseif {$object_type == "organization" } {
 	lappend element_list name legal_name reg_number notes
     }
@@ -288,11 +297,7 @@
 			    acs_user::update -user_id $party_id -username $username
 			}
 		    }
-		    party::update -party_id $party_id -email $value -url [db_string get_url {select url from parties where party_id = :party_id} -default {}]
 		}
-		url {
-		    party::update -party_id $party_id -email [db_string get_email {select email from parties where party_id = :party_id} -default {}] -url $value
-		}
 		default {
 		    set $element $value
 		}