Index: openacs-4/contrib/packages/survey/sql/postgresql/survey-notifications-drop.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/survey/sql/postgresql/Attic/survey-notifications-drop.sql,v diff -u -N --- openacs-4/contrib/packages/survey/sql/postgresql/survey-notifications-drop.sql 19 Sep 2003 16:48:03 -0000 1.1 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,75 +0,0 @@ -create function inline_0 () -returns integer as ' -declare - row record; -begin - for row in select nt.type_id - from notification_types nt - where nt.short_name in (''survey_response_notif'') - loop - perform notification_type__delete(row.type_id); - end loop; - - return null; -end;' language 'plpgsql'; - -select inline_0(); -drop function inline_0 (); - -create function inline_0() returns integer as ' -declare - impl_id integer; - v_foo integer; -begin - -- the notification type impl - impl_id := acs_sc_impl__get_id ( - ''NotificationType'', -- impl_contract_name - ''survey_response_notif_type'' -- impl_name - ); - - PERFORM acs_sc_binding__delete ( - ''NotificationType'', - ''survey_response_notif_type'' - ); - - v_foo := acs_sc_impl_alias__delete ( - ''NotificationType'', -- impl_contract_name - ''survey_response_notif_type'', -- impl_name - ''GetURL'' -- impl_operation_name - ); - - v_foo := acs_sc_impl_alias__delete ( - ''NotificationType'', -- impl_contract_name - ''survey_response_notif_type'', -- impl_name - ''ProcessReply'' -- impl_operation_name - ); - - select into v_foo type_id - from notification_types - where sc_impl_id = impl_id - and short_name = ''survey_response_notif''; - - perform notification_type__delete (v_foo); - - delete from notification_types_intervals - where type_id = v_foo - and interval_id in ( - select interval_id - from notification_intervals - where name in (''instant'',''hourly'',''daily'') - ); - - delete from notification_types_del_methods - where type_id = v_foo - and delivery_method_id in ( - select delivery_method_id - from notification_delivery_methods - where short_name in (''email'') - ); - - return (0); -end; -' language 'plpgsql'; - -select inline_0(); -drop function inline_0();