Index: openacs-4/packages/dotlrn-ecommerce/www/home.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/home.adp,v diff -u -r1.3 -r1.4 --- openacs-4/packages/dotlrn-ecommerce/www/home.adp 20 Jul 2005 17:41:26 -0000 1.3 +++ openacs-4/packages/dotlrn-ecommerce/www/home.adp 20 Jul 2005 18:12:19 -0000 1.4 @@ -77,16 +77,26 @@

#dotlrn-ecommerce.Your_Order_History#

#dotlrn-ecommerce.Your_Applications#

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