--- loncom/homework/lonhomework.pm 2008/01/15 03:09:09 1.289
+++ loncom/homework/lonhomework.pm 2008/03/12 02:46:53 1.291
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# The LON-CAPA Homework handler
#
-# $Id: lonhomework.pm,v 1.289 2008/01/15 03:09:09 raeburn Exp $
+# $Id: lonhomework.pm,v 1.291 2008/03/12 02:46:53 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -712,10 +712,6 @@ sub handle_save_or_undo {
my $fs=Apache::File->new(">$filebak");
if (defined($fs)) {
print $fs $$problem;
- &Apache::lonxml::info("".&mt("Making Backup to [_1]",
- ''.
- $filebak.'').
- "");
} else {
&Apache::lonxml::info("".
&mt("Unable to make backup [_1]",
@@ -726,9 +722,6 @@ sub handle_save_or_undo {
my $fh=Apache::File->new(">$file");
if (defined($fh)) {
print $fh $$result;
- &Apache::lonxml::info("".&mt("Saving Modifications to [_1]",
- ''.
- $file.'' )."");
} else {
&Apache::lonxml::info(''.
&mt("Unable to write to [_1]",
@@ -1183,8 +1176,8 @@ sub update_construct_style {
&Apache::lonnet::delenv('construct\\.style');
} elsif ($env{'form.style_file'}
&& $env{'construct.style'} ne $env{'form.style_file'}) {
- &Apache::lonnet::appenv('construct.style' =>
- $env{'form.style_file'});
+ &Apache::lonnet::appenv({'construct.style' =>
+ $env{'form.style_file'}});
}
}
}