--- loncom/xml/lonxml.pm 2003/10/11 21:06:11 1.285 +++ loncom/xml/lonxml.pm 2003/10/27 19:00:11 1.288 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # XML Parser Module # -# $Id: lonxml.pm,v 1.285 2003/10/11 21:06:11 www Exp $ +# $Id: lonxml.pm,v 1.288 2003/10/27 19:00:11 sakharuk Exp $ # # Copyright Michigan State University Board of Trustees # @@ -320,6 +320,7 @@ sub xmlparse { &Apache::inputtags::initialize_inputtags(); &Apache::outputtags::initialize_outputtags(); &Apache::edit::initialize_edit(); + &Apache::londefdef::initialize_londefdef(); # # do we have a course style file? @@ -394,7 +395,7 @@ sub latex_special_symbols { $string =~ s/_/ /g; } else { $string=~s/\\ /\\char92 /g; - $string=~s/\^/\\char94 /g; + $string=~s/\^/\\\^ /g; $string=~s/\~/\\char126 /g; $string=~s/(&[^A-Za-z\#])/\\$1/g; $string=~s/([^&])\#/$1\\#/g; @@ -658,6 +659,7 @@ sub init_safespace { $safeeval->permit("entereval"); $safeeval->permit(":base_math"); $safeeval->permit("sort"); + $safeeval->permit("time"); $safeeval->deny(":base_io"); $safehole->wrap(\&Apache::scripttag::xmlparse,$safeeval,'&xmlparse'); $safehole->wrap(\&Apache::outputtags::multipart,$safeeval,'&multipart'); @@ -843,12 +845,14 @@ sub get_all_text_unbalanced { sub increment_counter { my ($increment) = @_; - if (defined($increment) && $increment gt 0) { - $Apache::lonxml::counter+=$increment; - } else { - $Apache::lonxml::counter++; + if ($ENV{'form.freeze_counter'} ne 'yes') { + if (defined($increment) && $increment gt 0) { + $Apache::lonxml::counter+=$increment; + } else { + $Apache::lonxml::counter++; + } + $Apache::lonxml::counter_changed=1; } - $Apache::lonxml::counter_changed=1; } sub init_counter {