Index: openacs-4/packages/assessment/www/asm-admin/results-users.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/results-users.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/assessment/www/asm-admin/results-users.tcl	8 Dec 2006 14:36:54 -0000	1.9
+++ openacs-4/packages/assessment/www/asm-admin/results-users.tcl	15 May 2007 20:14:18 -0000	1.10
@@ -133,4 +133,15 @@
 	} 
 }
 
+# FIXME 
+set dotlrn_installed_p [apm_package_installed_p dotlrn]
+if {$dotlrn_installed_p} {
+    set count_all_users [llength [dotlrn_community::list_users [dotlrn_community::get_community_id]]]
+} else {
+    # TODO get count from subsite
+    set count_all_users 0
+}
+                         
+set count_complete [template::multirow size subjects]
+set count_incomplete [expr {$count_all_users - $count_complete}]
 ad_return_template