Index: openacs-4/packages/lorsm/templates/lorsm-default.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/templates/lorsm-default.tcl,v diff -u -r1.7 -r1.8 --- openacs-4/packages/lorsm/templates/lorsm-default.tcl 17 May 2005 17:03:40 -0000 1.7 +++ openacs-4/packages/lorsm/templates/lorsm-default.tcl 18 May 2005 07:45:24 -0000 1.8 @@ -30,6 +30,13 @@ set imsitem_id [lorsm::get_ims_item_id] +set html_document_p 0 +if { [string eq $content(mime_type) "text/html"] && [regexp -nocase {} $text match] } { + set html_document_p 1 + # parent window + regsub -all -nocase {target=.?(_top)} $text {target="content"} text +} + # We set all this blank variables in the case that the ims_item does # not have a resource id