Index: openacs-4/packages/lors/tcl/lors-imscp-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lors/tcl/lors-imscp-procs.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/lors/tcl/lors-imscp-procs.tcl	15 May 2007 20:14:43 -0000	1.14
+++ openacs-4/packages/lors/tcl/lors-imscp-procs.tcl	3 Sep 2008 15:18:19 -0000	1.15
@@ -320,6 +320,8 @@
         if {$delete_all} {
             
             # FIXME remove ims metadata
+	    # metadata should have on delete casacade
+	    
             # To delete a course we need to
 
             # remove file storage items
@@ -1230,3 +1232,11 @@
     return $res_id
 }
 
+ad_proc -public lors::imscp::item_get_identifier {
+    -ims_item_id
+    -man_id
+} {
+    Get indentifier which should help us resolve what object his points to
+} {
+    return [db_string get_indentifier "" -default ""]
+}
\ No newline at end of file
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/lors/tcl/lors-imscp-procs.xql'.
Fisheye: No comparison available.  Pass `N' to diff?