Index: openacs-4/packages/acs-developer-support/lib/footer.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/lib/footer.adp,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-developer-support/lib/footer.adp	29 Mar 2004 10:10:01 -0000	1.5
+++ openacs-4/packages/acs-developer-support/lib/footer.adp	1 Apr 2004 15:04:37 -0000	1.6
@@ -9,7 +9,7 @@
   <if @user_switching_p@ true>
     <form action="@set_user_url@">
       @export_vars;noquote@
-      <div class="developer-support-footer">
+      <div id="developer-support-footer" style="clear: both">
         Real user: @real_user_name@ (@real_user_email@) [user_id #@real_user_id@]<br />
         <if @real_user_id@ ne @fake_user_id@>      
           Faked user: @fake_user_name@ <if @fake_user_email@ not nil>(@fake_user_email@)</if> [user_id #@fake_user_id@] <a href="@unfake_url@">(Unfake)</a><br />
@@ -38,7 +38,7 @@
         </tr>
         <multiple name="profiling">
           <tr>
-            <td>@profiling.tag@</td>
+            <td> @profiling.file_links;noquote@ @profiling.tag@</td>
             <td align="right">@profiling.num_iterations@</td>
             <td align="right">@profiling.total_ms@ ms</td>
             <td align="right">@profiling.ms_per_iteration@ ms</td>
Index: openacs-4/packages/acs-developer-support/lib/footer.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/lib/footer.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-developer-support/lib/footer.tcl	3 Feb 2004 22:25:00 -0000	1.5
+++ openacs-4/packages/acs-developer-support/lib/footer.tcl	1 Apr 2004 15:04:37 -0000	1.6
@@ -24,7 +24,7 @@
 
         set fake_user_id [ad_get_user_id]
         set real_user_id [ds_get_real_user_id]
-        
+
         if { $fake_user_id == 0 } {
             set selected " selected"
             set you_are "<small>You are currently <strong>not logged in</strong></small><br />"
@@ -48,7 +48,7 @@
                    parties pa
             where  pa.party_id = u.user_id
             and    pe.person_id = u.user_id
-            order  by lower(pe.first_names), lower(pe.last_name)
+            order  by lower(pe.first_names), lower(pe.last_name) 
         } {
             if { $fake_user_id == $user_id } {
                 set selected_p 1
@@ -72,13 +72,20 @@
     # Profiling information
     global ds_profile__total_ms ds_profile__iterations 
 
-    multirow create profiling tag num_iterations total_ms ms_per_iteration
+    multirow create profiling tag num_iterations total_ms ms_per_iteration file_links
 
     if { [info exists ds_profile__total_ms] } {
         foreach tag [lsort [array names ds_profile__total_ms]] {
+            if {[file exists $tag]} { 
+                set file_links "<a href=\"${ds_url}send?fname=[ns_urlencode $tag]\" title=\"edit\">e</a> <a href=\"${ds_url}send?code=[ns_urlencode $tag]\" title=\"compiled code\">c</a>"
+            } else { 
+                set file_links {}
+            }
+
             multirow append profiling $tag [set ds_profile__iterations($tag)] [lc_numeric [set ds_profile__total_ms($tag)]] \
                     [ad_decode [set ds_profile__iterations($tag)] 0 {} \
-                    [lc_numeric [expr [set ds_profile__total_ms($tag)]/[set ds_profile__iterations($tag)]]]]
+                    [lc_numeric [expr [set ds_profile__total_ms($tag)]/[set ds_profile__iterations($tag)]]]] \
+                    $file_links
         }
     }
 
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 -r1.10 -r1.11
--- openacs-4/packages/acs-developer-support/www/index.tcl	8 Jan 2004 13:08:10 -0000	1.10
+++ openacs-4/packages/acs-developer-support/www/index.tcl	1 Apr 2004 15:04:38 -0000	1.11
@@ -76,6 +76,8 @@
     "on (<a href=\"set-database-enabled?enabled_p=0\">turn it off</a>)" \
     "off (<a href=\"set-database-enabled?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>
Index: openacs-4/packages/acs-developer-support/www/send.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/www/send.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-developer-support/www/send.tcl	1 Apr 2004 15:04:38 -0000	1.1
@@ -0,0 +1,16 @@
+ad_page_contract { 
+    return x-editlocal or the code for the compiled function
+} {
+    {fname:trim {}}
+    {code:trim {}}
+}
+
+if {![empty_string_p $code]} { 
+    if {[regexp {(.*)\.(adp)} $code match stub ext]} { 
+        ns_return 200 text/plain [info body ::template::code::${ext}::$stub]
+    } else { 
+        ns_returnfile 200 text/plain $code
+    }
+} else {
+    ns_return 200 application/x-editlocal [ns_set get [ns_conn form] fname]
+}
Index: openacs-4/packages/acs-developer-support/www/doc/editlocal.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/www/doc/editlocal.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-developer-support/www/doc/editlocal.adp	1 Apr 2004 15:04:38 -0000	1.1
@@ -0,0 +1,31 @@
+<master>
+<property name="title">Edit and code links</property>
+<property name="context">editlocal</property>
+<p>
+The <u>e</u> and <u>c</u> links in the bottom profiling pane display when ds is enabled 
+and the profiling is running for page renders.  The <u>c</u> link sends the body of the cached compiled code 
+and the <u>e</u> link sends the filename with a mimetype of application/x-editlocal which you can 
+have run a script which will start an editor session on a local copy of that file 
+(or potentially a <a href="http://www.fifi.org/doc/tramp/tramp-emacs.html">tramp</a> or Ange-FTP session in 
+emacs).
+<p>
+<p>
+An example <a href="editlocal.sh.txt">editlocal.sh</a> script would look something 
+like:
+<pre>
+#!/bin/sh
+# an example editlocal script.  To use tell your browser to use
+# it to open files with mimetype application/x-editlocal
+#
+SERVERROOT=/web/head
+for a in `cat $1`
+do
+    if [ -f "$a" ] 
+    then 
+        emacsclient -n "$a"
+    elif [ -f "$SERVERROOT/$a" ]
+    then 
+         emacsclient -n "$SERVERROOT/$a"
+    fi
+done
+</pre>
\ No newline at end of file
Index: openacs-4/packages/acs-developer-support/www/doc/editlocal.sh.txt
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/www/doc/editlocal.sh.txt,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-developer-support/www/doc/editlocal.sh.txt	1 Apr 2004 15:04:38 -0000	1.1
@@ -0,0 +1,15 @@
+#!/bin/sh
+# an example editlocal script.  To use tell your browser to use
+# it to open files with mimetype application/x-editlocal
+#
+SERVERROOT=/web/head
+for a in `cat $1`
+do
+    if [ -f "$a" ] 
+    then 
+        emacsclient -n "$a"
+    elif [ -f "$SERVERROOT/$a" ]
+    then 
+         emacsclient -n "$SERVERROOT/$a"
+    fi
+done