forum::install::create_moderator_notification_types (private)

 forum::install::create_moderator_notification_types

Defined in packages/forums/tcl/forums-install-procs.tcl

Create the Forum Notification types used to notify usersmoderators of forum changes.

Partial Call Graph (max 5 caller/called nodes):
%3 forum::install::create_notification_types forum::install::create_notification_types (private) forum::install::create_moderator_notification_types forum::install::create_moderator_notification_types forum::install::create_notification_types->forum::install::create_moderator_notification_types forum::install::package_upgrade forum::install::package_upgrade (private) forum::install::package_upgrade->forum::install::create_moderator_notification_types acs_sc::impl::new_from_spec acs_sc::impl::new_from_spec (public) forum::install::create_moderator_notification_types->acs_sc::impl::new_from_spec db_dml db_dml (public) forum::install::create_moderator_notification_types->db_dml notification::type::new notification::type::new (public) forum::install::create_moderator_notification_types->notification::type::new

Testcases:
No testcase defined.
Source code:
    # Entire forum
    set spec {
        contract_name "NotificationType"
        owner "forums"
        name "forums_forum_moderator_notif_type"
        pretty_name "forums_forum_moderator_notif_type"
        aliases {
            GetURL       forum::notification::get_url
            ProcessReply forum::notification::process_reply
        }
    }
    set sc_impl_id [acs_sc::impl::new_from_spec -spec $spec]

    set type_id [notification::type::new  -sc_impl_id $sc_impl_id  -short_name "forums_forum_moderator_notif"  -pretty_name "Forum Moderator Notification"  -description "Moderator notifications for Entire Forums"]

    # Enable the various intervals and delivery methods
    db_dml insert_intervals {
        insert into notification_types_intervals
        (type_id, interval_id)
        select :type_id, interval_id
        from notification_intervals where name in ('instant','hourly','daily')
    }
    db_dml insert_del_method {
        insert into notification_types_del_methods
        (type_id, delivery_method_id)
        select :type_id, delivery_method_id
        from notification_delivery_methods where short_name in ('email')
    }

    # Message
    set spec {
        contract_name "NotificationType"
        owner "forums"
        name "forums_message_moderator_notif_type"
        pretty_name "forums_message_moderator_notif_type"
        aliases {
            GetURL       forum::notification::get_url
            ProcessReply forum::notification::process_reply
        }
    }
    set sc_impl_id [acs_sc::impl::new_from_spec -spec $spec]

    set type_id [notification::type::new  -sc_impl_id $sc_impl_id  -short_name "forums_message_moderator_notif"  -pretty_name "Message Moderator Notification"  -description "Moderator notifications for Message Thread"]

    # Enable the various intervals and delivery methods
    db_dml insert_intervals {
        insert into notification_types_intervals
        (type_id, interval_id)
        select :type_id, interval_id
        from notification_intervals where name in ('instant','hourly','daily')
    }
    db_dml insert_del_method {
        insert into notification_types_del_methods
        (type_id, delivery_method_id)
        select :type_id, delivery_method_id
        from notification_delivery_methods where short_name in ('email')
    }
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ] | [ make this the default ]
Show another procedure: