Index: openacs-4/packages/dotlrn-homework/sql/postgresql/dotlrn-homework-notifications-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-homework/sql/postgresql/Attic/dotlrn-homework-notifications-create.sql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-homework/sql/postgresql/dotlrn-homework-notifications-create.sql	9 Jun 2003 21:18:42 -0000	1.2
@@ -0,0 +1,133 @@
+-- Notifications Service Contract implementation for dotlrn-homework
+
+-- Don Baccus (dhogaza@pacifier.com)
+-- ported to PostgreSQL by Jarkko Laine (jarkko.m.laine@tut.fi)
+
+create function inline_0() returns integer as '                    
+declare                                                            
+        impl_id integer;                                           
+        v_foo   integer;                                           
+begin                                                              
+        -- the notification type impl                              
+        impl_id := acs_sc_impl__new (                              
+                      ''NotificationType'',                        
+                      ''homework_file_upload'',
+                      ''dotlrn-homework''
+        );
+
+        v_foo := acs_sc_impl_alias__new (
+                    ''NotificationType'',
+                    ''homework_file_upload'',
+                    ''GetURL'',
+                    ''dotlrn_homework::notification::get_homework_url'',
+                    ''TCL''
+        );
+
+        v_foo := acs_sc_impl_alias__new (
+                    ''NotificationType'',
+                    ''homework_file_upload'',
+                    ''ProcessReply'',
+                    ''dotlrn_homework::notification::process_homework_reply'',
+                    ''TCL''
+        );
+
+        PERFORM acs_sc_binding__new (
+                    ''NotificationType'',
+                    ''homework_file_upload''
+                 );
+
+        v_foo:= notification_type__new (
+		NULL,
+                impl_id,
+                ''homework_upload'',
+                ''Homework'',
+                ''Notification of Homework File Upload'',
+		now(),
+                NULL,
+                NULL,
+		NULL
+        );
+
+        -- enable the various intervals and delivery methods
+
+        -- we only support instant delivery of homework notifications
+
+        -- it seems a bit odd that Open Force stepped outside the service contract
+        -- realm to do this.  Why not do it in a PL/SQL init routine or something
+        -- like that and call it via service contract?
+
+        insert into notification_types_intervals
+        (type_id, interval_id)
+        select v_foo, interval_id
+        from notification_intervals where name in (''instant'');
+
+        insert into notification_types_del_methods
+        (type_id, delivery_method_id)
+        select v_foo, delivery_method_id
+        from notification_delivery_methods where short_name in (''email'');
+
+
+        -- the notification type impl
+        impl_id := acs_sc_impl__new (
+                      ''NotificationType'',
+                      ''correction_file_upload'',
+                      ''dotlrn-homework''
+        );
+
+        v_foo := acs_sc_impl_alias__new (
+                    ''NotificationType'',
+                    ''correction_file_upload'',
+                    ''GetURL'',
+                    ''dotlrn_homework::notification::get_correction_url'',
+                    ''TCL''
+        );
+
+        v_foo := acs_sc_impl_alias__new (
+                    ''NotificationType'',
+                    ''correction_file_upload'',
+                    ''ProcessReply'',
+                    ''dotlrn_homework::notification::process_correction_reply'',
+                    ''TCL''
+        );
+
+        PERFORM acs_sc_binding__new (
+                    ''NotificationType'',
+                    ''correction_file_upload''
+        );
+
+        v_foo:= notification_type__new (
+		NULL,
+                impl_id,
+                ''correction_upload'',
+                ''Comment File'',
+                ''Notification of Comment File Upload'',
+                now(),
+		NULL,
+                NULL,
+		NULL
+        );
+
+        -- enable the various intervals and delivery methods
+
+        -- we only support instant delivery of homework notifications
+
+        -- it seems a bit odd that Open Force stepped outside the service contract
+        -- realm to do this.  Why not do it in a PL/SQL init routine or something
+        -- like that and call it via service contract?
+
+        insert into notification_types_intervals
+        (type_id, interval_id)
+        select v_foo, interval_id
+        from notification_intervals where name in (''instant'');
+
+        insert into notification_types_del_methods
+        (type_id, delivery_method_id)
+        select v_foo, delivery_method_id
+        from notification_delivery_methods where short_name in (''email'');
+
+	return (0);
+end;
+' language 'plpgsql';
+
+select inline_0();
+drop function inline_0();