loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.103, 2002/08/07 17:24:35	version 1.104, 2002/08/20 14:42:22
Line 306 sub start_problem {	Line 306 sub start_problem {
chomp $due_file_content;	chomp $due_file_content;
if ($due_file_content ne $duedate) {	if ($due_file_content ne $duedate) {
$temp_file = Apache::File->new('>'.$filename);	$temp_file = Apache::File->new('>'.$filename);
print $temp_file "$duedate\n";	print $temp_file "$duedate\n";
if($duedate eq 'Wed 31 Dec 1969 07:00:00 PM EDT') {$duedate = '';}
if (not $ENV{'request.symb'} =~ m/\.page_/) {	if (not $ENV{'request.symb'} =~ m/\.page_/) {
$result .= '\begin{document} \noindent\textit{Due date: '.$duedate.'} \vskip 1 mm';	if(not $duedate=~m/1969/) {
	$result .= '\begin{document} \noindent\textit{Due date: '.$duedate.'} \vskip 1 mm';
	} else {
	$result .= '\begin{document} \noindent \vskip 1 mm';
	}
} else {	} else {
$result .= '\parbox{\minipagewidth}{\vskip 1mm\textit{Due date: '.$duedate.'} \\\\\\\\';	$result .= '\parbox{\minipagewidth}{\vskip 1mm\textit{Due date: '.$duedate.'} \\\\\\\\';
}	}
Line 623 sub start_postanswerdate {	Line 626 sub start_postanswerdate {
if ($Apache::inputtags::status['-1'] ne 'SHOW_ANSWER') {	if ($Apache::inputtags::status['-1'] ne 'SHOW_ANSWER') {
&Apache::lonxml::get_all_text("/postanswerdate",$$parser[$#$parser]);	&Apache::lonxml::get_all_text("/postanswerdate",$$parser[$#$parser]);
}	}
	} elsif ($target eq 'tex') {
	return '\vskip 0 mm \noindent';
}	}
return '';	return '';
}	}