version 1.288, 2003/10/27 19:00:11
|
version 1.290, 2003/10/30 20:22:00
|
Line 845 sub get_all_text_unbalanced {
|
Line 845 sub get_all_text_unbalanced {
|
|
|
sub increment_counter { |
sub increment_counter { |
my ($increment) = @_; |
my ($increment) = @_; |
if ($ENV{'form.freeze_counter'} ne 'yes') { |
if (defined($increment) && $increment gt 0) { |
if (defined($increment) && $increment gt 0) { |
$Apache::lonxml::counter+=$increment; |
$Apache::lonxml::counter+=$increment; |
} else { |
} else { |
$Apache::lonxml::counter++; |
$Apache::lonxml::counter++; |
|
} |
|
$Apache::lonxml::counter_changed=1; |
|
} |
} |
|
$Apache::lonxml::counter_changed=1; |
} |
} |
|
|
sub init_counter { |
sub init_counter { |
Line 1062 ENDSCRIPT
|
Line 1060 ENDSCRIPT
|
|
|
sub storefile { |
sub storefile { |
my ($file,$contents)=@_; |
my ($file,$contents)=@_; |
|
&Apache::lonnet::correct_line_ends(\$contents); |
if (my $fh=Apache::File->new('>'.$file)) { |
if (my $fh=Apache::File->new('>'.$file)) { |
print $fh $contents; |
print $fh $contents; |
$fh->close(); |
$fh->close(); |