Index: openacs-4/packages/imsld/tcl/imsld-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/tcl/imsld-procs.xql,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/imsld/tcl/imsld-procs.xql 3 Feb 2006 10:18:54 -0000 1.4
+++ openacs-4/packages/imsld/tcl/imsld-procs.xql 6 Feb 2006 16:46:06 -0000 1.5
@@ -1337,6 +1337,7 @@
where stat.imsld_id = :imsld_id
and stat.user_id = :user_id
and stat.role_part_id = rp.role_part_id
+ and stat.type in ('learning','support','structure')
order by stat.finished_date
@@ -1725,6 +1726,7 @@
:user_id,
'resource',
now()
+ where not exists (select 1 from imsld_status_user where imsld_id = :imsld_id and user_id = :user_id and completed_id = :resource_id)
)
@@ -1742,7 +1744,13 @@
+
+
+ select 1 from imsld_status_user where completed_id = :activity_id and user_id = :user_id
+
+
+
select count(*)