Index: openacs-4/packages/mail-tracking/tcl/mail-tracking-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/mail-tracking/tcl/mail-tracking-procs.tcl,v diff -u -r1.6 -r1.7 --- openacs-4/packages/mail-tracking/tcl/mail-tracking-procs.tcl 14 Nov 2006 07:17:56 -0000 1.6 +++ openacs-4/packages/mail-tracking/tcl/mail-tracking-procs.tcl 17 Nov 2006 10:39:37 -0000 1.7 @@ -61,7 +61,7 @@ set object_id $context_id } - + set log_id [db_nextval "acs_object_id_seq"] # First create the message entry db_dml insert_mail_log { insert into acs_mail_log @@ -70,13 +70,13 @@ (:log_id, :message_id, :sender_id, :package_id, :subject, :body, now(), :object_id, :cc_addr, :bcc_addr, :to_addr) } + ns_log Debug "Mail Traking OBJECT $object_id CONTEXT $context_id FILES $file_ids LOGS $log_id" foreach file_id $file_ids { set item_id [content::revision::item_id -revision_id $file_id] if {$item_id eq ""} { set item_id $file_id } db_dml insert_file_map "insert into acs_mail_log_attachment_map (log_id,file_id) values (:log_id,:file_id)" - permission::grant -party_id $sender_id -object_id $file_id -privilege "read" } # Now add the recipients to the log_id