--- loncom/xml/lonxml.pm 2006/02/04 22:11:42 1.396 +++ loncom/xml/lonxml.pm 2006/03/08 21:49:26 1.398 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # XML Parser Module # -# $Id: lonxml.pm,v 1.396 2006/02/04 22:11:42 foxr Exp $ +# $Id: lonxml.pm,v 1.398 2006/03/08 21:49:26 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -649,6 +649,7 @@ sub setup_globals { @Apache::lonxml::ssi_info=(); $Apache::lonxml::post_evaluate=1; $Apache::lonxml::warnings_error_header=''; + $Apache::lonxml::substitute_LaTeX_symbols = 1; if ($target eq 'meta') { $Apache::lonxml::redirection = 0; $Apache::lonxml::metamode = 1; @@ -1030,6 +1031,28 @@ sub store_counter { return ''; } +{ + my $state; + sub clear_problem_counter { + &Apache::lonnet::logthis(" cpc called from ".(join(':',caller(0)))); + undef($state); + &Apache::lonnet::delenv('form.counter'); + &Apache::lonxml::init_counter(); + &Apache::lonxml::store_counter(); + } + + sub remember_problem_counter { + &Apache::lonnet::transfer_profile_to_env(); + $state = $env{'form.counter'}; + } + + sub restore_problem_counter { + if (defined($state)) { + &Apache::lonnet::appenv(('form.counter' => $state)); + } + } +} + sub get_all_text { my($tag,$pars,$style)= @_; my $gotfullstack=1;