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
--- openacs-4/packages/dotlrn-homework/sql/postgresql/dotlrn-homework-notifications-create.sql	9 Jun 2003 21:18:42 -0000	1.2
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,133 +0,0 @@
--- 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();