version 1.289, 2008/01/15 03:09:09
|
version 1.291, 2008/03/12 02:46:53
|
Line 712 sub handle_save_or_undo {
|
Line 712 sub handle_save_or_undo {
|
my $fs=Apache::File->new(">$filebak"); |
my $fs=Apache::File->new(">$filebak"); |
if (defined($fs)) { |
if (defined($fs)) { |
print $fs $$problem; |
print $fs $$problem; |
&Apache::lonxml::info("<b>".&mt("Making Backup to [_1]", |
|
'<span class="LC_filename">'. |
|
$filebak.'</span>'). |
|
"</b>"); |
|
} else { |
} else { |
&Apache::lonxml::info("<span class=\"LC_error\">". |
&Apache::lonxml::info("<span class=\"LC_error\">". |
&mt("Unable to make backup [_1]", |
&mt("Unable to make backup [_1]", |
Line 726 sub handle_save_or_undo {
|
Line 722 sub handle_save_or_undo {
|
my $fh=Apache::File->new(">$file"); |
my $fh=Apache::File->new(">$file"); |
if (defined($fh)) { |
if (defined($fh)) { |
print $fh $$result; |
print $fh $$result; |
&Apache::lonxml::info("<b>".&mt("Saving Modifications to [_1]", |
|
'<span class="LC_filename">'. |
|
$file.'</span>' )."</b>"); |
|
} else { |
} else { |
&Apache::lonxml::info('<span class="LC_error">'. |
&Apache::lonxml::info('<span class="LC_error">'. |
&mt("Unable to write to [_1]", |
&mt("Unable to write to [_1]", |
Line 1183 sub update_construct_style {
|
Line 1176 sub update_construct_style {
|
&Apache::lonnet::delenv('construct\\.style'); |
&Apache::lonnet::delenv('construct\\.style'); |
} elsif ($env{'form.style_file'} |
} elsif ($env{'form.style_file'} |
&& $env{'construct.style'} ne $env{'form.style_file'}) { |
&& $env{'construct.style'} ne $env{'form.style_file'}) { |
&Apache::lonnet::appenv('construct.style' => |
&Apache::lonnet::appenv({'construct.style' => |
$env{'form.style_file'}); |
$env{'form.style_file'}}); |
} |
} |
} |
} |
} |
} |