Index: openacs-4/packages/monitoring/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/monitoring/www/index.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/monitoring/www/index.tcl	20 Apr 2001 20:51:11 -0000	1.1
+++ openacs-4/packages/monitoring/www/index.tcl	19 Aug 2002 23:10:28 -0000	1.2
@@ -1,22 +1,20 @@
 
 ad_page_contract {
-    @cvs-id index.tcl,v 3.5.2.5 2000/08/23 23:49:54 mbryzek Exp
+    Show all the links to Monitoring sub-modules
+    @cvs-id $Id$
 } {}
 
 set dev_support_link ""
 set dev_support_id [apm_package_id_from_key "acs-developer-support"]
 if { $dev_support_id != 0 } {
-    set dev_support_url [db_string get_package_url {
-        select site_node.url(s.node_id) as url
-        from site_nodes s
-        where s.object_id = :dev_support_id
-        and rownum = 1
-    } -default ""]
+    set dev_support_url [db_string get_package_url { *SQL* } -default ""]
     if { ![empty_string_p $dev_support_url] } {
         set dev_support_link "<li><a href=\"$dev_support_url\">Developer Support Request Information</a>"
     }
 }
 
+# vinodk: FIXME: show only those links specific to the running database
+
 doc_return 200 text/html "[ad_header "Monitoring  [ad_system_name]"]
 
 <h2>Monitoring  [ad_system_name]</h2>