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.12 -r1.13
--- openacs-4/packages/acs-developer-support/lib/footer.adp	4 Feb 2005 13:34:39 -0000	1.12
+++ openacs-4/packages/acs-developer-support/lib/footer.adp	6 Feb 2005 18:10:01 -0000	1.13
@@ -1,5 +1,8 @@
 <if @show_p@ true>
   <div class="developer-support-footer">
+    <if @errcount@ gt 0>
+      <p style="color: red">errors: @errcount@ <a href="@ds_url@send?output=@request@:error">view</a></p>
+    </if>
     <if @comments:rowcount@ gt 0>
       <multiple name="comments">
         <b>Comment:</b> <pre style="display: inline;">@comments.text@</pre><br />
@@ -49,7 +52,7 @@
       </table>
       <if @page_fragment_cache_p@ true>
         <p>
-          <form name="searchfrags" action="/ds/search">
+          <form name="searchfrags" action="@ds_url@search">
             <input type="hidden" name="request" value="@request@"/>
             <input type="text" name="expression" value="" />
             <input type="submit" name="search" value="Search"/>
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.8 -r1.9
--- openacs-4/packages/acs-developer-support/lib/footer.tcl	4 Feb 2005 13:34:39 -0000	1.8
+++ openacs-4/packages/acs-developer-support/lib/footer.tcl	6 Feb 2005 18:10:01 -0000	1.9
@@ -93,6 +93,11 @@
 
     multirow create profiling tag num_iterations total_ms ms_per_iteration file_links size
 
+    if {[ns_cache get ds_page_bits "$request:error" errors]} {
+        set errcount [llength $errors]
+    } else {
+        set errcount 0
+    }
     if { [info exists ds_profile__total_ms] } {
         foreach tag [lsort [array names ds_profile__iterations]] {
             if {[file exists $tag]} {
Index: openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl,v
diff -u -r1.39 -r1.40
--- openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl	4 Feb 2005 13:34:40 -0000	1.39
+++ openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl	6 Feb 2005 18:10:01 -0000	1.40
@@ -323,7 +323,7 @@
                 }
             } error]
             if { $errno } {
-                ns_log Warning "ds_collect_db_call: $error"
+                ns_log Warning "ds_collect_db_call: $error\nStatement: $statement_name\nSQL: $sql"
                 set bound_sql $sql
             }
         }
@@ -628,6 +628,9 @@
     
     @param tag The name of the operation you're timing. Could be the name of a procedure, or some other unique identifier.
 } {
+    if {![ds_enabled_p]} { 
+        error "DS not enabled"
+    }
     global ds_profile__total_ms ds_profile__iterations ds_profile__start_clock
     switch $command {
         start {
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.14 -r1.15
--- openacs-4/packages/acs-developer-support/www/index.tcl	4 Feb 2005 15:26:12 -0000	1.14
+++ openacs-4/packages/acs-developer-support/www/index.tcl	6 Feb 2005 18:10:01 -0000	1.15
@@ -162,13 +162,17 @@
 	    } else {
 		set query ""
 	    }
-
+            if {[ns_cache get ds_page_bits $id:error dummy]} {
+                set elink " <a href=\"send?output=$id:error\" style=\"color: red\">Errors</span></a>"
+            } else { 
+                set elink {}
+            }
 	    append body "
 <tr bgcolor=[lindex $colors [expr { $counter % [llength $colors] }]]>
 <td align=center>&nbsp;$start&nbsp;</td>
 <td align=right>&nbsp;$duration&nbsp;</td>
 <td>&nbsp;$peeraddr&nbsp;</td>
-<td><a href=\"request-info?request=$id\">[ns_quotehtml "$method $url$query"]</a></td>
+<td><a href=\"request-info?request=$id\">[ns_quotehtml "$method $url$query"]</a>$elink</td>
 </tr>
 "
             incr counter
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 -r1.2 -r1.3
--- openacs-4/packages/acs-developer-support/www/send.tcl	4 Feb 2005 13:34:40 -0000	1.2
+++ openacs-4/packages/acs-developer-support/www/send.tcl	6 Feb 2005 18:10:01 -0000	1.3
@@ -15,10 +15,19 @@
 } elseif {![empty_string_p $fname]} {
     ns_return 200 application/x-editlocal [ns_set get [ns_conn form] fname]
 } elseif {![empty_string_p $output]} { 
-    if {[ns_cache get ds_page_bits $output content]} { 
-        ns_return 200 text/plain "Size: [string length $content]\n\n------------------------------------------------------------\n$content"
+    if {[regexp {[0-9]+:error} $output]} { 
+        if {[ns_cache get ds_page_bits $output content]} { 
+            foreach error $content { 
+                append out "PAGE: [lindex $error 0]\n[string repeat - 60]\n[lindex $error 1]\n\n\n"
+            }
+            ns_return 200 text/plain $out
+        }
     } else { 
-        ns_return 200 text/plain "Output for $output has expired"
+        if {[ns_cache get ds_page_bits $output content]} { 
+            ns_return 200 text/plain "Size: [string length $content]\n\n------------------------------------------------------------\n$content"
+        } else { 
+            ns_return 200 text/plain "Output for $output has expired"
+        }
     }
 }