Index: openacs-4/packages/notifications/tcl/sweep-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/tcl/sweep-procs.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/notifications/tcl/sweep-procs.tcl 3 Jun 2002 08:13:18 -0000 1.4 +++ openacs-4/packages/notifications/tcl/sweep-procs.tcl 3 Jun 2002 22:27:00 -0000 1.5 @@ -28,9 +28,11 @@ # Get email set email [cc_email_from_party $user_id] - acs_mail_lite::send -to_addr $email -from_addr "notifications@openforce.biz" \ - -subject $subject \ - -body $content + acs_mail_lite::send \ + -to_addr $email \ + -from_addr "notifications@openforce.biz" \ + -subject $subject \ + -body $content } ad_proc -public cleanup_notifications {} { @@ -63,14 +65,15 @@ db_transaction { # Send it send_one -user_id [ns_set get $notif user_id] \ - -subject "\[[ad_system_name] - [ns_set get $notif object_name]\]: [ns_set get $notif notif_subject]" \ - -content [ns_set get $notif notif_text] \ - -response_id [ns_set get $notif response_id] \ - -delivery_method_id [ns_set get $notif delivery_method_id] + -subject "\[[ad_system_name] - [ns_set get $notif object_name]\] [ns_set get $notif notif_subject]" \ + -content [ns_set get $notif notif_text] \ + -response_id [ns_set get $notif response_id] \ + -delivery_method_id [ns_set get $notif delivery_method_id] # Markt it as sent - notification::mark_sent -notification_id [ns_set get $notif notification_id] \ - -user_id [ns_set get $notif user_id] + notification::mark_sent \ + -notification_id [ns_set get $notif notification_id] \ + -user_id [ns_set get $notif user_id] } } else { # It's batched, we're not handling this one yet