Index: openacs-4/packages/imsld/tcl/imsld-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/tcl/imsld-procs.tcl,v
diff -u -N -r1.78 -r1.79
--- openacs-4/packages/imsld/tcl/imsld-procs.tcl	19 Jul 2006 13:51:24 -0000	1.78
+++ openacs-4/packages/imsld/tcl/imsld-procs.tcl	19 Jul 2006 15:30:13 -0000	1.79
@@ -3053,7 +3053,17 @@
     @author Luis de la Fuente Valent�n (lfuente@it.uc3m.es)
 } {
 
-    return
+if {[info exist play_id] & ![info exist imsld_id]} {
+    set imsld_id [db_string get_imsld_id_from_play {
+                                                    select iii.imsld_id 
+                                                    from imsld_imsldsi iii, 
+                                                         imsld_methodsi imi, 
+                                                         imsld_plays ip 
+                                                    where ip.method_id=imi.item_id 
+                                                          and imi.imsld_id=iii.item_id 
+                                                          and ip.play_id=:play_id
+    }]
+}
     return [db_string get_property_id {
         select ip.property_id 
         from imsld_properties ip,