Forum OpenACS Q&A: Re: Mapped host and no connection

The notification package could geneate this when you add the notification. Since you have to modify something, it makes sense to fix the notifications package to "know" about the host mapping.

There are a few other places this kind of thing needs to be fixed as well.

Here's how to derive the host mapped "manage url" in notifications, given the recipient's user_id:

+  fullquery name="scs::subsite_url_from_user_id.select_group_id_from_user_id"
+      querytext
+        select object_id_one as group_id
+          from acs_rels
+        where object_id_two = :user_id
+          and object_id_one in (select group_id
+                                  from application_groups)
+          and object_id_one > 0
+        limit 1
+      /querytext
+  /fullquery
+
+  fullquery name="scs::subsite_url_from_user_id.select_host"
+      querytext
+        select "http://"||host
+          from host_node_map
+        where node_id = :node_id
+        limit 1
+      /querytext
+  /fullquery
+
/queryset

+
+ad_proc -public scs::subsite_url_from_user_id {
+    {-user_id:required}
+} {
+    Derives the first absolute, host-mapped subsite url given the user_id.
+    Useful for determining the subsite url in a scheduled proc, such as notifications.
+    Assumes that user_id belongs to one and only one subsite application group.
+    If a host-mapped entry is not found, return the system url.
+} {
+
+    db_1row select_group_id_from_user_id {}
+
+    set node_id [site_node::get_node_id_from_object_id \
+            -object_id [application_group::package_id_from_group_id \
+                    -group_id $group_id]]
+
+    return [db_string select_host {} -default "[ad_url]"]
+
+}

Index: notifications/tcl/notification-email-procs.tcl
===================================================================
--- notifications/tcl/notification-email-procs.tcl    (revision 214)
+++ notifications/tcl/notification-email-procs.tcl    (working copy)
@@ -43,10 +43,13 @@
        return $domain
    }

-    ad_proc -public manage_notifications_url {} {
+    ad_proc -public manage_notifications_url {
+    {-to_user_id:required}
+    } {
        Build a url to the "manage notifications" script.
+        Supports host mapped subsites.
    } {
-        return "[ad_url][apm_package_url_from_key [notification::package_key]]manage"
+        return "[scs::subsite_url_from_user_id -user_id $to_user_id][apm_package_url_from_key [notification::package_key]]manage"
    }

    ad_proc -public reply_address_prefix {} {
@@ -123,7 +126,7 @@
        }

        # Variable used in the content
-      set manage_notifications_url [manage_notifications_url]
+      set manage_notifications_url [manage_notifications_url -to_user_id $to_user_id]

        if { [string length $content_html] == 0 } {
            set mime_type "text/plain"