Index: openacs-4/packages/imsld/tcl/imsld-monitor-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/tcl/imsld-monitor-procs.tcl,v
diff -u -r1.2 -r1.2.4.1
--- openacs-4/packages/imsld/tcl/imsld-monitor-procs.tcl	25 Apr 2007 10:52:30 -0000	1.2
+++ openacs-4/packages/imsld/tcl/imsld-monitor-procs.tcl	14 Jun 2007 14:24:25 -0000	1.2.4.1
@@ -142,7 +142,7 @@
                 set structure_node [$dom_doc createElement li]
                 $structure_node setAttribute class "liOpen"
                 set a_node [$dom_doc createElement a]
-                $a_node setAttribute href "[export_vars -base "activity-frame" -url {activity_id run_id {type "structure"}}]"
+                $a_node setAttribute href "[export_vars -base "activity-frame" -url {structure_id run_id {type "structure"}}]"
                 $a_node setAttribute target "content"
                 set text [$dom_doc createTextNode "$activity_title"]
                 $a_node appendChild $text
@@ -152,7 +152,7 @@
                 $structure_node appendChild $text
                 
                 set info_node [$dom_doc createElement a]
-                $info_node setAttribute href "[export_vars -base "activity-frame" -url {activity_id run_id {type "structure"}}]"
+                $info_node setAttribute href "[export_vars -base "activity-frame" -url {{activity_id $structure_id} run_id {type "structure"}}]"
                 $info_node setAttribute target "content"
                 set text [$dom_doc createTextNode "([imsld::monitor::number_of_visitors -run_id $run_id -revision_id $structure_id -type "activity"])"]
                 $info_node appendChild $text