loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.28, 2001/01/06 16:35:36	version 1.29, 2001/01/08 13:55:08
Line 65 sub start_problem {	Line 65 sub start_problem {
if ($status eq 'CAN_ANSWER') {	if ($status eq 'CAN_ANSWER') {
# create a page header and exit	# create a page header and exit
return "<title>$name</title>\n<body bgcolor=#FFFFFF>\n<form name=\"lonhomework\" method=\"POST\" action=\"".$ENV{'request.uri'}."\">";	return "<title>$name</title>\n<body bgcolor=#FFFFFF>\n<form name=\"lonhomework\" method=\"POST\" action=\"".$ENV{'request.uri'}."\">";
} elsif ($status eq 'SHOW_ANSWER' \|\| $status eq 'CANNOT_ANSWER' ) {	} elsif ($status eq 'SHOW_ANSWER' \|\| $status eq 'CANNOT_ANSWER' \|\| $status eq 'CLOSED') {
return "<title>$name</title>\n<body bgcolor=#FFFFFF>\n";	return "<title>$name</title>\n<body bgcolor=#FFFFFF>\n";
}	}
}	}
Line 244 sub end_part {	Line 244 sub end_part {
sub start_preduedate {	sub start_preduedate {
my ($target,$token,$parstack,$parser,$safeeval)=@_;	my ($target,$token,$parstack,$parser,$safeeval)=@_;
if ($target ne 'meta') {	if ($target ne 'meta') {
if ($Apache::inputtags::status['-1'] eq 'CAN_ANSWER' \|\|	if ($Apache::inputtags::status['-1'] ne 'CAN_ANSWER' &&
$Apache::inputtags::status['-1'] eq 'CANNOT_ANSWER' ) {	$Apache::inputtags::status['-1'] ne 'CANNOT_ANSWER' ) {
&Apache::lonxml::get_all_text("/preduedate",$$parser[$#$parser]);	&Apache::lonxml::get_all_text("/preduedate",$$parser[$#$parser]);
}	}
}	}