Index: openacs-4/packages/calendar/sql/oracle/calendar-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/sql/oracle/calendar-create.sql,v diff -u -r1.6 -r1.7 --- openacs-4/packages/calendar/sql/oracle/calendar-create.sql 10 Jan 2004 18:59:50 -0000 1.6 +++ openacs-4/packages/calendar/sql/oracle/calendar-create.sql 20 Jan 2004 14:37:51 -0000 1.7 @@ -559,6 +559,7 @@ -- @@cal-table-create +@@calendar-notifications-init Index: openacs-4/packages/calendar/sql/oracle/calendar-notifications-init.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/sql/oracle/calendar-notifications-init.sql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/calendar/sql/oracle/calendar-notifications-init.sql 20 Jan 2004 14:37:51 -0000 1.1 @@ -0,0 +1,56 @@ +declare + impl_id integer; + v_foo integer; +begin + -- the notification type impl + impl_id := acs_sc_impl.new ( + impl_contract_name => 'NotificationType', + impl_name => 'calendar_notif_type', + impl_pretty_name => 'calendar_notif_type', + impl_owner_name => 'calendars' + ); + + v_foo := acs_sc_impl.new_alias ( + 'NotificationType', + 'calendar_notif_type', + 'GetURL', + 'calendar::notification::get_url', + 'TCL' + ); + + v_foo := acs_sc_impl.new_alias ( + 'NotificationType', + 'calendar_notif_type', + 'ProcessReply', + 'calendar::notification::process_reply', + 'TCL' + ); + + acs_sc_binding.new ( + contract_name => 'NotificationType', + impl_name => 'calendar_notif_type' + ); + + v_foo:= notification_type.new ( + short_name => 'calendar_notif', + sc_impl_id => impl_id, + pretty_name => 'Calendar Notification', + description => 'Notifications for Entire Calendar Package', + creation_user => NULL, + creation_ip => NULL + ); + + -- enable the various intervals and delivery methods + insert into notification_types_intervals + (type_id, interval_id) + select v_foo, interval_id + from notification_intervals where name in ('instant','hourly','daily'); + + 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'); + +end; +/ +show errors