loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.82, 2002/02/20 22:17:18	version 1.84, 2002/03/06 20:22:12
Line 79 sub page_start {	Line 79 sub page_start {
if (!defined($found{'html'})) {	if (!defined($found{'html'})) {
$result=&Apache::londefdef::start_html($target,$token,$tagstack,$parstack,	$result=&Apache::londefdef::start_html($target,$token,$tagstack,$parstack,
$parser,$safeeval);	$parser,$safeeval);
$head_tag_start='<head>'.&Apache::lonxml::registerurl();	$head_tag_start='<head>'.&Apache::lonxml::registerurl(undef,$target);
}	}
my $body_tag_start;	my $body_tag_start;
if (!defined($found{'body'})) {	if (!defined($found{'body'})) {
Line 310 sub end_problem {	Line 310 sub end_problem {
my $result='';	my $result='';
my $status=$Apache::inputtags::status['-1'];	my $status=$Apache::inputtags::status['-1'];
if ($target eq 'grade' \|\| $target eq 'web' \|\| $target eq 'answer' ) {	if ($target eq 'grade' \|\| $target eq 'web' \|\| $target eq 'answer' ) {
if ( $target eq 'grade' && $Apache::inputtags::part eq '0' &&	if ( $target eq 'grade' && $Apache::inputtags::part eq '0') {
$status eq 'CAN_ANSWER') {
# if part is zero, no <part>s existed, so we need to the grading	# if part is zero, no <part>s existed, so we need to the grading
&Apache::inputtags::grade;	&Apache::inputtags::grade;
} elsif ( $target eq 'web' && $Apache::inputtags::part eq '0') {	} elsif ( $target eq 'web' && $Apache::inputtags::part eq '0') {