--- loncom/homework/structuretags.pm 2005/12/01 18:46:31 1.326 +++ loncom/homework/structuretags.pm 2005/12/15 23:20:55 1.327 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # definition of tags that give a structure to a document # -# $Id: structuretags.pm,v 1.326 2005/12/01 18:46:31 albertel Exp $ +# $Id: structuretags.pm,v 1.327 2005/12/15 23:20:55 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -113,6 +113,9 @@ sub page_start { &Apache::lonhtmlcommon::htmlareaheaders(). &Apache::lonhtmlcommon::spellheader(). &Apache::lonxml::fontsettings(); + if ($target eq 'edit') { + $head_tag_start.=&Apache::edit::js_change_detection(); + } } my $body_tag_start; if (!defined($found{'body'}) && $env{'request.state'} eq 'construct') { @@ -150,7 +153,11 @@ sub page_start { $form_tag_start='
'; + $form_tag_start.=$uri.'" '; + if ($target eq 'edit') { + $form_tag_start.=&Apache::edit::form_change_detection(); + } + $form_tag_start.='>'; } return ($result,$head_tag_start,$body_tag_start,$form_tag_start); }