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.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