--- loncom/xml/lonxml.pm 2003/10/27 19:00:11 1.288 +++ loncom/xml/lonxml.pm 2003/10/30 20:22:00 1.290 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # XML Parser Module # -# $Id: lonxml.pm,v 1.288 2003/10/27 19:00:11 sakharuk Exp $ +# $Id: lonxml.pm,v 1.290 2003/10/30 20:22:00 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -845,14 +845,12 @@ sub get_all_text_unbalanced { sub increment_counter { my ($increment) = @_; - 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; + if (defined($increment) && $increment gt 0) { + $Apache::lonxml::counter+=$increment; + } else { + $Apache::lonxml::counter++; } + $Apache::lonxml::counter_changed=1; } sub init_counter { @@ -1062,6 +1060,7 @@ ENDSCRIPT sub storefile { my ($file,$contents)=@_; + &Apache::lonnet::correct_line_ends(\$contents); if (my $fh=Apache::File->new('>'.$file)) { print $fh $contents; $fh->close();