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