loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.27, 2001/01/06 16:35:36	version 1.30, 2001/01/10 21:49:43
Line 29 sub get_target {	Line 29 sub get_target {
return ('web');	return ('web');
}	}
} else {	} else {
return ('edit');	#return ('edit');
	#edit is currently broken
	return ('web');
}	}
}	}
return ();	return ();
Line 72 sub check_date {	Line 74 sub check_date {
&Apache::lonxml::debug("found :$date: for :$temp:");	&Apache::lonxml::debug("found :$date: for :$temp:");
if ($date eq '') {	if ($date eq '') {
$date = "an unknown date"; $passed = 0;	$date = "an unknown date"; $passed = 0;
	} elsif ($date eq 'con_lost') {
	$date = "an indeterminate date"; $passed = 0;
} else {	} else {
if (time < $date) { $passed = 0; } else { $passed = 1; }	if (time < $date) { $passed = 0; } else { $passed = 1; }
$date = localtime $date;	$date = localtime $date;
Line 159 sub handler {	Line 163 sub handler {
&Apache::lonxml::error("<b>Unable to find <i>default_homework.lcpm</i></b>");	&Apache::lonxml::error("<b>Unable to find <i>default_homework.lcpm</i></b>");
$default='';	$default='';
}	}
if ( $target eq 'grade') {
$Apache::lonxml::textredirection = 0;
} else {
$Apache::lonxml::textredirection = 1;
}
$result = &Apache::lonxml::xmlparse($target, $problem,	$result = &Apache::lonxml::xmlparse($target, $problem,
$default.&setup_vars($target),%mystyle);	$default.&setup_vars($target),%mystyle);