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.106 -r1.107 --- openacs-4/packages/contacts/tcl/contacts-procs.tcl 28 Jan 2007 12:53:55 -0000 1.106 +++ openacs-4/packages/contacts/tcl/contacts-procs.tcl 29 Jan 2007 13:42:19 -0000 1.107 @@ -150,10 +150,12 @@ ns_log notice "contacts::sweeper creating content_item and content_revision for party_id: $person_id" if {[ad_conn isconnected]} { set user_id [ad_conn user_id] + set peeraddr [ad_conn peeraddr] } else { set user_id $person_id + set peeraddr 127.0.0.1 } - set contact_revision_id [contact::revision::new -party_id $person_id -package_id $contact_package_id -creation_user $user_id] + set contact_revision_id [contact::revision::new -party_id $person_id -package_id $contact_package_id -creation_user $user_id -creation_ip $peeraddr] } # Add the default ams attributes @@ -720,6 +722,7 @@ {-party_revision_id ""} {-package_id ""} {-creation_user ""} + {-creation_ip ""} } { create a contact revision } { @@ -733,7 +736,7 @@ db_dml insert_item {} } - set party_revision_id [content::revision::new -item_id $party_id -package_id $package_id -is_live "t" -creation_user $creation_user] + set party_revision_id [content::revision::new -item_id $party_id -package_id $package_id -is_live "t" -creation_user $creation_user -creation_ip $creation_ip ] if {![db_string item_exists_p "select 1 from contact_party_revisions where party_revision_id = :party_revision_id" -default 0]} { db_dml insert_contact_revision "insert into contact_party_revisions ( party_revision_id ) values ( :party_revision_id )" }