Index: openacs-4/packages/cms/tcl/workflow-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/tcl/Attic/workflow-procs.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/cms/tcl/workflow-procs.tcl	19 Nov 2001 21:07:08 -0000	1.8
+++ openacs-4/packages/cms/tcl/workflow-procs.tcl	24 Dec 2001 02:50:17 -0000	1.9
@@ -267,37 +267,3 @@
 	return f
     }
 }
-
-ad_proc -private workflow::mail_notifications {} {
-
-  @private mail_notifications
-
-  Schedules procedure for mailing notifications
-
-  @author Michael Pih
-
-} {
-    ns_log Notice "Running Scheduled Notifications Proc"
-
-    set mail_server [template::util::get_param mail_server "ns/server/[ns_info server]/cms" OutgoingMailServer]
-    set mail_port [template::util::get_param mail_port "ns/server/[ns_info server]/cms" MailPort]
-
-    # if there's no mail server, don't run scheduled processes
-    if { [template::util::is_nil mail_server] } {
-	return
-    }
-
-    # default mail port, if none is set
-    if { [template::util::is_nil mail_port] } {
-	set mail_port 25
-    }
-    db_transaction {
-        db_exec_plsql process_queue "
-            begin
-                nt.process_queue( :mail_server, :mail_port );
-            end;
-            "
-    }
-}
-
-ns_schedule_proc -thread 300 workflow::mail_notifications