Index: openacs-4/packages/imsld/tcl/imsld-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/tcl/imsld-callback-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/imsld/tcl/imsld-callback-procs.tcl	17 Nov 2005 15:41:51 -0000	1.1
+++ openacs-4/packages/imsld/tcl/imsld-callback-procs.tcl	12 Jan 2006 14:55:26 -0000	1.2
@@ -18,3 +18,15 @@
 
     @author Eduardo P�rez Ureta (eduardo.perez@uc3m.es)
 } -
+
+ad_proc -public -callback imsld::finish_object -impl ld_resource {
+    -object_id
+} {
+    <p>Tag a resource as finished into an activity.</p>
+
+    @author Luis de la Fuente Valent�n (lfuente@it.uc3m.es)
+} {
+
+    set resource_id [imsld::get_resource_from_object -object_id $object_id]
+    imsld::finish_resource -resource_id $resource_id
+}