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.15 -r1.16
--- openacs-4/packages/lors/tcl/lors-imscp-procs.tcl	3 Sep 2008 15:18:19 -0000	1.15
+++ openacs-4/packages/lors/tcl/lors-imscp-procs.tcl	25 Sep 2008 08:46:24 -0000	1.16
@@ -320,8 +320,6 @@
         if {$delete_all} {
             
             # FIXME remove ims metadata
-	    # metadata should have on delete casacade
-	    
             # To delete a course we need to
 
             # remove file storage items
@@ -1232,11 +1230,3 @@
     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