--- loncom/homework/lonhomework.pm 2002/05/24 18:55:23 1.79 +++ loncom/homework/lonhomework.pm 2002/06/21 20:27:54 1.80 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # The LON-CAPA Homework handler # -# $Id: lonhomework.pm,v 1.79 2002/05/24 18:55:23 albertel Exp $ +# $Id: lonhomework.pm,v 1.80 2002/06/21 20:27:54 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -80,7 +80,11 @@ sub get_target { } } elsif ( $ENV{'form.problemmode'} eq 'Edit' ) { if ( $ENV{'form.submitted'} eq 'edit' ) { - return ('modified','edit'); + if ( $ENV{'form.submit'} eq 'Submit Changes and View' ) { + return ('modified','web','asnwer'); + } else { + return ('modified','edit'); + } } else { return ('edit'); } @@ -304,22 +308,30 @@ sub editxmlmode { \$ENV{'form.editxmltext'}); if (!$error) { $problem=&Apache::lonnet::getfile($file); } } - my ($rows,$cols) = &Apache::edit::textarea_sizes(\$problem); - if ($cols > 80) { $cols = 80; } - $result.=' + &Apache::lonhomework::showhashsubset(\%ENV,'^form'); + if ( $ENV{'form.submit'} eq 'Submit Changes and View' ) { + &Apache::lonhomework::showhashsubset(\%ENV,'^form'); + $ENV{'form.problemmode'}='View'; + &renderpage($request,$file); + } else { + my ($rows,$cols) = &Apache::edit::textarea_sizes(\$problem); + if ($cols > 80) { $cols = 80; } + $result.='
- +
+
'; - $request->print($result); + $request->print($result); + } return ''; } @@ -480,8 +492,10 @@ sub handler { &Apache::lonxml::debug("Permissions:$Apache::lonhomework::browse:$Apache::lonhomework::viewgrades:"); # some times multiple problemmodes are submitted, need to select # the last one + &Apache::lonxml::debug("Problem Mode ".$ENV{'form.problemmode'}); if ( defined($ENV{'form.problemmode'}) && ref($ENV{'form.problemmode'}) ) { + &Apache::lonxml::debug("Problem Mode ".join(",",@$ENV{'form.problemmode'})); my $mode=$ENV{'form.problemmode'}->[-1]; undef $ENV{'form.problemmode'}; $ENV{'form.problemmode'}=$mode;