Index: openacs.org-dev/packages/monitoring/www/registered-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/monitoring/www/registered-procs.tcl,v
diff -u -r1.1.1.1 -r1.1.1.2
--- openacs.org-dev/packages/monitoring/www/registered-procs.tcl	9 Jul 2002 17:35:09 -0000	1.1.1.1
+++ openacs.org-dev/packages/monitoring/www/registered-procs.tcl	8 Oct 2002 15:47:14 -0000	1.1.1.2
@@ -4,7 +4,7 @@
     Displays a list of registered procedures.
 
     @author Jon Salz (jsalz@mit.edu)
-    @cvs-id registered-procs.tcl,v 3.1.2.2 2000/07/21 03:57:38 ron Exp
+    @cvs-id $Id$
 } {
     match_method:optional
     match_path:optional
@@ -17,7 +17,7 @@
     set match_path "(any)"
 } else {
     if { ![regexp {^/} $match_path] } {
-	set match_path "/$match_path"
+    set match_path "/$match_path"
     }
 }
 
@@ -63,33 +63,33 @@
 set bgcolors { white #E0E0E0 }
 foreach meth $match_method {
     foreach f [nsv_get rp_registered_procs "$meth"] {
-	set bgcolor [lindex $bgcolors [expr { $counter % [llength $bgcolors] }]]
-	incr counter
-	    
-	set method [lindex $f 0]
-	set path [lindex $f 1]
-	set proc [lindex $f 2]
-	set args [lindex $f 3]
-	if { $args == "" } {
-	    set args " "
-	}
-	set debug [ad_decode [lindex $f 4] "t" "Yes" "No"]
-	set inherit [ad_decode [lindex $f 5] "f" "Yes" "No"]
-	set description [lindex $f 6]
-	set file [file tail [lindex $f 7]]
-	if { [empty_string_p $file] } {
-	    set file " "
-	}
-	if { $match_path == "(any)" || \
-		[string match $path $match_path] || \
-		($inherit == "Yes" && [string match "$path/*" $match_path]) } {
-	    append output "<tr>"
-	    foreach name { method path proc file args inherit debug } {
-		append output "<td bgcolor=$bgcolor>[set $name]</td>"
-	    }
-	    append output "</tr>\n"
-	}
+    set bgcolor [lindex $bgcolors [expr { $counter % [llength $bgcolors] }]]
+    incr counter
+        
+    set method [lindex $f 0]
+    set path [lindex $f 1]
+    set proc [lindex $f 2]
+    set args [lindex $f 3]
+    if { $args == "" } {
+        set args "&nbsp;"
     }
+    set debug [ad_decode [lindex $f 4] "t" "Yes" "No"]
+    set inherit [ad_decode [lindex $f 5] "f" "Yes" "No"]
+    set description [lindex $f 6]
+    set file [file tail [lindex $f 7]]
+    if { [empty_string_p $file] } {
+        set file "&nbsp;"
+    }
+    if { $match_path == "(any)" || \
+        [string match $path $match_path] || \
+        ($inherit == "Yes" && [string match "$path/*" $match_path]) } {
+        append output "<tr>"
+        foreach name { method path proc file args inherit debug } {
+        append output "<td bgcolor=$bgcolor>[set $name]</td>"
+        }
+        append output "</tr>\n"
+    }
+    }
 }
 
 append page_content "$output</table>