version 1.39, 2001/02/19 20:35:21
|
version 1.40, 2001/04/16 23:16:31
|
Line 30 sub get_target {
|
Line 30 sub get_target {
|
return ('web'); |
return ('web'); |
} |
} |
} else { |
} else { |
#return ('edit'); |
return ('grade','web'); |
#edit is currently broken |
if ( $ENV{'form.submitted'} eq 'edit' ) { |
return ('web'); |
return ('modified','edit'); |
|
} else { |
|
return ('edit'); |
|
} |
} |
} |
} |
} |
return (); |
return (); |
Line 131 sub check_date {
|
Line 134 sub check_date {
|
sub handler { |
sub handler { |
my $request=$_[0]; |
my $request=$_[0]; |
|
|
if ( $ENV{'user.name'} eq 'albertel' ) {$Apache::lonxml::debug=1;} else {$Apache::lonxml::debug=0;} |
if ( $ENV{'user.name'} eq 'albertel' ) {$Apache::lonxml::debug=1;} |
|
|
my (@targets) = &get_target(); |
my (@targets) = &get_target(); |
|
|
Line 171 sub handler {
|
Line 174 sub handler {
|
my $result = ''; |
my $result = ''; |
&Apache::inputtags::initialize_inputtags; |
&Apache::inputtags::initialize_inputtags; |
%Apache::lonhomework::results=(); |
%Apache::lonhomework::results=(); |
%Apache::lonhomework::history=&Apache::lonnet::restore; |
%Apache::lonhomework::history=&Apache::lonnet::restore(); |
#ignore error conditions |
#ignore error conditions |
my ($temp)=keys %Apache::lonhomework::history ; |
my ($temp)=keys %Apache::lonhomework::history ; |
if ($temp =~ m/^error:.*/) { %Apache::lonhomework::history=(); } |
if ($temp =~ m/^error:.*/) { %Apache::lonhomework::history=(); } |
Line 201 sub handler {
|
Line 204 sub handler {
|
$default.&setup_vars($target),%mystyle); |
$default.&setup_vars($target),%mystyle); |
|
|
#$request->print("Result follows:"); |
#$request->print("Result follows:"); |
$request->print($result); |
if ($target eq 'modified') { |
|
my $fileout = &Apache::lonnet::filelocation("",$request->uri); |
|
my $filesave=$fileout.".bak"; |
|
|
|
my $fs=Apache::File->new(">$filesave"); |
|
print $fs $problem; |
|
$request->print("<b>Making Backup to $filesave</b><br />"); |
|
|
|
my $fh=Apache::File->new(">$fileout"); |
|
print $fh $result; |
|
$request->print("<b>Saving Modifications to $fileout</b><br />"); |
|
} else { |
|
$request->print($result); |
|
} |
#$request->print(":Result ends"); |
#$request->print(":Result ends"); |
if ($target eq 'grade') { |
if ($target eq 'grade') { |
|
|
Line 214 sub handler {
|
Line 230 sub handler {
|
|
|
my ($temp) = keys %Apache::lonhomework::results; |
my ($temp) = keys %Apache::lonhomework::results; |
if ( $temp ne '' ) { |
if ( $temp ne '' ) { |
&Apache::lonxml::debug("Store return message:".&Apache::lonnet::cstore(%Apache::lonhomework::results)); |
&Apache::lonxml::debug("Store return message:".&Apache::lonnet::cstore(\%Apache::lonhomework::results)); |
} |
} |
} |
} |
&Apache::lonhomework::send_footer($request); |
&Apache::lonhomework::send_footer($request); |
|
# always turn of debug messages |
|
$Apache::lonxml::debug=0; |
return OK; |
return OK; |
|
|
} |
} |