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