Index: openacs-4/packages/dotlrn-ecommerce/www/home.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/home.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/dotlrn-ecommerce/www/home.tcl	20 Jul 2005 16:40:07 -0000	1.1
+++ openacs-4/packages/dotlrn-ecommerce/www/home.tcl	20 Jul 2005 18:12:19 -0000	1.2
@@ -92,6 +92,7 @@
     set confirmed_date [util_AnsiDatetoPrettyDate $confirmed_date]
 }
 
+set sessions_with_applications 0
 db_multirow -extend { asm_url edit_asm_url } sessions sessions {
     select c.community_id, c.pretty_name
     from dotlrn_member_rels_full r, dotlrn_communities c
@@ -125,5 +126,6 @@
     }] } {
 	set asm_url [export_vars -base /assessment/session { session_id }]
 	set edit_asm_url [export_vars -base /assessment/assessment { assessment_id }]
+	incr sessions_with_applications
     }
 }
\ No newline at end of file