--- loncom/homework/structuretags.pm 2006/04/28 18:33:10 1.353 +++ loncom/homework/structuretags.pm 2006/05/23 19:05:42 1.355 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # definition of tags that give a structure to a document # -# $Id: structuretags.pm,v 1.353 2006/04/28 18:33:10 albertel Exp $ +# $Id: structuretags.pm,v 1.355 2006/05/23 19:05:42 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -160,6 +160,14 @@ sub page_start { $form_tag_start.=&Apache::edit::form_change_detection(); } $form_tag_start.='>'; + + my $symb=&Apache::lonnet::symbread(); + if ($symb =~ /\S/) { + $symb= + &HTML::Entities::encode(&Apache::lonenc::check_encrypt($symb)); + $form_tag_start.= + ''; + } } return ($page_start,$form_tag_start); } @@ -606,7 +614,8 @@ sub start_problem { my $name= &get_resource_name($parstack,$safeeval); my ($result,$form_tag_start); - if ($target eq 'web' || $target eq 'webgrade' || $target eq 'tex') { + if ($target eq 'web' || $target eq 'webgrade' || $target eq 'tex' + || $target eq 'edit') { ($result,$form_tag_start) = &page_start($target,$token,$tagstack,$parstack,$parser,$safeeval, $name);