loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.76, 2002/04/09 04:46:33	version 1.78, 2002/05/23 21:12:44
Line 351 sub renderpage {	Line 351 sub renderpage {
$default='';	$default='';
}	}
&Apache::lonxml::debug("Should be parsing now");	&Apache::lonxml::debug("Should be parsing now");
$result = &Apache::lonxml::xmlparse($target, $problem,	$result = &Apache::lonxml::xmlparse($request, $target, $problem,
$default.&setup_vars($target),%mystyle);	$default.&setup_vars($target),%mystyle);

#$request->print("Result follows:");	#$request->print("Result follows:");
Line 472 sub handler {	Line 472 sub handler {
# some times multiple problemmodes are submitted, need to select	# some times multiple problemmodes are submitted, need to select
# the last one	# the last one
if ( defined($ENV{'form.problemmode'}) &&	if ( defined($ENV{'form.problemmode'}) &&
defined(@{ $ENV{'form.problemmode'} })) {	ref($ENV{'form.problemmode'}) ) {
my $mode=$ENV{'form.problemmode'}->[-1];	my $mode=$ENV{'form.problemmode'}->[-1];
undef $ENV{'form.problemmode'};	undef $ENV{'form.problemmode'};
$ENV{'form.problemmode'}=$mode;	$ENV{'form.problemmode'}=$mode;