Index: openacs-4/packages/dotlrn-ecommerce/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/admin/index.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/dotlrn-ecommerce/www/admin/index.tcl	4 Jul 2005 13:39:47 -0000	1.6
+++ openacs-4/packages/dotlrn-ecommerce/www/admin/index.tcl	16 Jul 2005 12:51:06 -0000	1.7
@@ -30,9 +30,21 @@
 
 # HAM : check if scholarship is installed
 set scholarship_installed_p [apm_package_installed_p "scholarship-fund"]
+
 # HAM : check if expenses is installed
 set expenses_installed_p [apm_package_installed_p "expenses"]
 
+# HAM : count number of pending applications and user requests
+set pending_count [db_string "count_pending" "select count(user_id)
+	from dotlrn_member_rels_full r, dotlrn_communities_all c
+	where r.community_id = c.community_id
+	and member_state = 'needs approval'"]
+
+set request_count [db_string "count_requests" "select count(user_id)
+	from dotlrn_member_rels_full r, dotlrn_communities_all c
+	where r.community_id = c.community_id
+	and member_state = 'request approval'"]
+
 set course_options [db_list_of_lists courses {
     select course_name, course_id
     from dotlrn_catalog c, cr_items i