loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.101, 2002/07/03 15:36:40	version 1.102, 2002/07/24 20:34:52
Line 57 sub start_tex {	Line 57 sub start_tex {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
my $bodytext=&Apache::lonxml::get_all_text("/tex",$$parser[$#$parser]);	my $bodytext=&Apache::lonxml::get_all_text("/tex",$$parser[$#$parser]);
if ($target eq 'tex') {	if ($target eq 'tex') {
return $bodytext	return $bodytext.' ';
}	}
return '';	return '';
}	}
Line 300 sub start_problem {	Line 300 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';	$result .= '\begin{document} \noindent\textit{Due date: '.$duedate.'} \vskip 1 mm';
} else {	} else {