loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.97, 2002/10/16 19:29:44	version 1.99, 2002/11/08 14:39:40
Line 220 sub check_access {	Line 220 sub check_access {

sub showhash {	sub showhash {
my (%hash) = @_;	my (%hash) = @_;
&showhashsubset(\%hash,'');	&showhashsubset(\%hash,'.');
return '';	return '';
}	}

Line 396 sub renderpage {	Line 396 sub renderpage {
if ($target eq 'answer') { &showhash(%Apache::lonhomework::history); }	if ($target eq 'answer') { &showhash(%Apache::lonhomework::history); }
if ($target eq 'web') {&Apache::lonhomework::showhashsubset(\%ENV,'^form');}	if ($target eq 'web') {&Apache::lonhomework::showhashsubset(\%ENV,'^form');}

my $default=&Apache::lonnet::getfile('/home/httpd/html/res/adm/includes/default_homework.lcpm');
if ($default == -1) {
&Apache::lonxml::error("<b>Unable to find <i>default_homework.lcpm</i></b>");
$default='';
}
&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,
$default.&setup_vars($target),%mystyle);	&setup_vars($target),%mystyle);

#$request->print("Result follows:");	#$request->print("Result follows:");
if ($target eq 'modified') {	if ($target eq 'modified') {