Index: openacs-4/packages/acs-developer-support/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/www/index.tcl,v
diff -u -N -r1.23.2.1 -r1.23.2.2
--- openacs-4/packages/acs-developer-support/www/index.tcl	13 Mar 2019 10:27:15 -0000	1.23.2.1
+++ openacs-4/packages/acs-developer-support/www/index.tcl	19 Aug 2019 17:46:54 -0000	1.23.2.2
@@ -21,18 +21,19 @@
 set page_title "Developer Support"
 set context {}
 
-append body "
+append body [subst {
 <ul>
-<li><a href=\"shell.tcl\">OpenACS Shell</a>
-<li>Developer support toolbar is currently
-[expr {$enabled_p ?
-                  "on (<a href=\"set?field=ds&amp;enabled_p=0\">turn it off</a>)" :
-                  "off (<a href=\"set?field=ds&amp;enabled_p=1\">turn it on</a>)"}]
+    <li><a href='shell.tcl'>OpenACS Shell</a>
+    [expr {[ns_config ns/server/[ns_info server]/module/nsshell url {}] ne {} ?
+           "<li><a href='nsshell.tcl'>NaviServer Shell</a></li>" : {}}]
+    <li>Developer support toolbar is currently
+    [expr {$enabled_p ?
+                  "on (<a href='set?field=ds&amp;enabled_p=0'>turn it off</a>)" :
+                  "off (<a href='set?field=ds&amp;enabled_p=1'>turn it on</a>)"}]
 
-<li>Developer support information is currently
-restricted to the following IP addresses:
-<ul>
-"
+    <li>Developer support information is currently restricted to the following IP addresses:
+    <ul>
+}]
 
 set enabled_ips [nsv_get ds_properties enabled_ips]
 set includes_this_ip_p 0
@@ -44,7 +45,7 @@
 	    set includes_this_ip_p 1
 	}
 	if { [regexp {[\*\?\[\]]} $ip] } {
-	    append body "<li>IPs matching the pattern \"<code>$ip</code>\"\n"
+	    append body "<li>IPs matching the pattern '<code>$ip</code>'\n"
 	} else {
 	    append body "<li>$ip\n"
 	}
@@ -57,7 +58,7 @@
 set requests [nsv_array names ds_request]
 
 set parameterHref [export_vars -base /shared/parameters { package_id { return_url {[ad_return_url]} } }]
-append body "
+append body [subst {
 </ul>
 
 <li>Information is being swept every [parameter::get -parameter DataSweepInterval -default 900] sec
@@ -69,31 +70,31 @@
 
 <li>User-switching is currently
 [expr {$user_switching_enabled_p ?
-                  "on (<a href=\"set?field=user&amp;enabled_p=0\">turn it off</a>)" :
-                  "off (<a href=\"set?field=user&amp;enabled_p=1\">turn it on</a>)"}]
+                  "on (<a href='set?field=user&amp;enabled_p=0'>turn it off</a>)" :
+                  "off (<a href='set?field=user&amp;enabled_p=1'>turn it on</a>)"}]
 
 <li>Database statistics is currently
 [expr {$database_enabled_p ?
-                  "on (<a href=\"set?field=db&amp;enabled_p=0\">turn it off</a>)" :
-                  "off (<a href=\"set?field=db&amp;enabled_p=1\">turn it on</a>)"}]
+                  "on (<a href='set?field=db&amp;enabled_p=0'>turn it off</a>)" :
+                  "off (<a href='set?field=db&amp;enabled_p=1'>turn it on</a>)"}]
 
 <li>Template profiling is currently
 [expr {$profiling_enabled_p ?
-                  "on (<a href=\"set?field=prof&amp;enabled_p=0\">turn it off</a>)" :
-                  "off (<a href=\"set?field=prof&amp;enabled_p=1\">turn it on</a>)"}]
+                  "on (<a href='set?field=prof&amp;enabled_p=0'>turn it off</a>)" :
+                  "off (<a href='set?field=prof&amp;enabled_p=1'>turn it on</a>)"}]
 
 <li>ADP reveal is currently
 [expr {$adp_reveal_enabled_p ?
-                  "on (<a href=\"set?field=adp&amp;enabled_p=0\">turn it off</a>)" :
-                  "off (<a href=\"set?field=adp&amp;enabled_p=1\">turn it on</a>)"}]
+                  "on (<a href='set?field=adp&amp;enabled_p=0'>turn it off</a>)" :
+                  "off (<a href='set?field=adp&amp;enabled_p=1'>turn it on</a>)"}]
 
 <p>
 <li> Help on <a href='doc/editlocal'>edit and code links</a>.
 </ul>
 
 <h3>Available Request Information</h3>
 <blockquote>
-"
+}]
 
 if { [llength $requests] == 0 } {
     append body "There is no request information available."