Index: openacs-4/packages/imsld/www/activity-frame.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/activity-frame.tcl,v
diff -u -N -r1.17 -r1.18
--- openacs-4/packages/imsld/www/activity-frame.tcl	17 Apr 2008 17:17:54 -0000	1.17
+++ openacs-4/packages/imsld/www/activity-frame.tcl	5 Jun 2008 17:36:53 -0000	1.18
@@ -16,6 +16,8 @@
 
 set user_id [expr { [string eq $user_id ""] ? [ad_conn user_id] : $user_id }]
 
+set iframe_activity_url ""
+
 set roles_template_p 0
 db_1row context_info {
     select r.imsld_id,
@@ -289,6 +291,17 @@
         set resources_list [concat $resources_list [concat $prerequisites_list $objectives_list]]
         imsld::grant_permissions -resources_activities_list $resources_list -user_id $user_id -run_id $run_id
     }
+    set nodeList [$dom_root selectNodes {descendant::a}]
+    set activity_url ""
+    foreach node $nodeList {
+	set href [$node getAttribute href]
+	if { $href ne "" && ![string match {*\#*} $href] } {
+	    ns_log notice "href: $href"
+	    set iframe_activity_url $href
+	    break
+	}
+    }
+    
     set activities [$dom_root asXML] 
 } else {
     # a user has been selected to be supported