loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.268, 2007/07/23 23:30:47	version 1.268.2.2, 2007/09/21 17:25:58
Line 196 sub check_ip_acc {	Line 196 sub check_ip_acc {
return 1;	return 1;
}	}
my $allowed=0;	my $allowed=0;
my $ip=$ENV{'REMOTE_ADDR'};	my $ip=$env{'request.host'} \|\| $ENV{'REMOTE_ADDR'};

my $name;	my $name;
foreach my $pattern (split(',',$acc)) {	foreach my $pattern (split(',',$acc)) {
$pattern =~ s/^\s*//;	$pattern =~ s/^\s*//;
Line 939 sub renderpage {	Line 940 sub renderpage {
&Apache::lonxml::debug("Should be parsing now");	&Apache::lonxml::debug("Should be parsing now");
$result .= &Apache::lonxml::xmlparse($request, $target, $problem,	$result .= &Apache::lonxml::xmlparse($request, $target, $problem,
&setup_vars($target),%mystyle);	&setup_vars($target),%mystyle);
undef($Apache::lonhomework::parsing_a_problem);	&finished_parsing();
if (!$output) { $result = ''; }	if (!$output) { $result = ''; }
#$request->print("Result follows:");	#$request->print("Result follows:");
if ($target eq 'modified') {	if ($target eq 'modified') {
Line 970 sub renderpage {	Line 971 sub renderpage {
}	}
}	}

	sub finished_parsing {
	undef($Apache::lonhomework::parsing_a_problem);
	undef($Apache::lonhomework::parsing_a_task);
	}

# with no arg it returns a HTML <option> list of the template titles	# with no arg it returns a HTML <option> list of the template titles
# with one arg it returns the filename associated with the arg passed	# with one arg it returns the filename associated with the arg passed
sub get_template_list {	sub get_template_list {