version 1.288, 2003/10/27 19:00:11
|
version 1.291, 2003/11/06 19:24:11
|
Line 337 sub xmlparse {
|
Line 337 sub xmlparse {
|
&Apache::style::styleparser($target,$styletext)); |
&Apache::style::styleparser($target,$styletext)); |
} |
} |
} |
} |
|
} elsif ($ENV{'construction_space_style'} && ($ENV{'request.state'} eq 'construct')) { |
|
my $location=&Apache::lonnet::filelocation('',$ENV{'construction_space_style'}); |
|
my $styletext=&Apache::lonnet::getfile($location); |
|
if ($styletext ne '-1') { |
|
%style_for_target = (%style_for_target, |
|
&Apache::style::styleparser($target,$styletext)); |
|
} |
} |
} |
#&printalltags(); |
#&printalltags(); |
my @pars = (); |
my @pars = (); |
Line 845 sub get_all_text_unbalanced {
|
Line 852 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 1067 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(); |