Index: openacs-4/packages/imsld/www/imsld-content-serve.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/imsld-content-serve.tcl,v diff -u -N -r1.6 -r1.7 --- openacs-4/packages/imsld/www/imsld-content-serve.tcl 20 Jul 2006 11:17:54 -0000 1.6 +++ openacs-4/packages/imsld/www/imsld-content-serve.tcl 20 Jul 2006 16:26:47 -0000 1.7 @@ -516,4 +516,15 @@ } } -ns_return 200 application/xml "[$dom_root asXML]" +set script [$dom_doc createElement script] +$script setAttribute type {text/javascript} +$script setAttribute src {/resources/imsld/imsldcontent.js} +set bodies [$dom_root selectNodes "*\[local-name()='body'\]"] +foreach body $bodies { + $body appendChild $script +} + +set xmloutput {} +append xmloutput [$dom_root asXML] + +ns_return 200 text/html $xmloutput