Index: openacs-4/packages/notifications/sql/oracle/notifications-core-drop.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/sql/oracle/notifications-core-drop.sql,v diff -u -N -r1.3 -r1.4 --- openacs-4/packages/notifications/sql/oracle/notifications-core-drop.sql 9 Aug 2002 20:51:49 -0000 1.3 +++ openacs-4/packages/notifications/sql/oracle/notifications-core-drop.sql 22 Sep 2003 20:56:10 -0000 1.4 @@ -21,9 +21,45 @@ -- -- Object Types -- + +-- Remove Objects declare + v_object_id integer; begin + select max(object_id) + into v_object_id + from acs_objects + where object_type = 'notification_interval' + or object_type = 'notification_delivery_method' + or object_type = 'notification_type' + or object_type='notification_request' + or object_type='notification'; + + while (v_object_id > 0) loop + delete from acs_permissions where object_id = v_object_id; + + acs_object.delete( + v_object_id + ); + + select max(object_id) + into v_object_id + from acs_objects + where object_type = 'notification_interval' + or object_type = 'notification_delivery_method' + or object_type = 'notification_type' + or object_type = 'notification_request' + or object_type = 'notification'; + end loop; + +end; +/ +show errors + +declare +begin + acs_object_type.drop_type ( object_type => 'notification_interval' );