loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/structuretags.pm between versions 1.119 and 1.121

version 1.119, 2002/09/30 15:10:11	version 1.121, 2002/10/01 21:04:34
Line 349 sub start_problem {	Line 349 sub start_problem {
if(not $duedate=~m/1969/) {	if(not $duedate=~m/1969/) {
$result .= '\begin{document} \noindent\textit{Due date: '.$duedate.'} \vskip 1 mm\noindent \begin{minipage}{\textwidth}';	$result .= '\begin{document} \noindent\textit{Due date: '.$duedate.'} \vskip 1 mm\noindent \begin{minipage}{\textwidth}';
} else {	} else {
$result .= '\begin{document} \noindent \vskip 1 mm \begin{minipage}{\textwidth}';	$result .= '\begin{document} \noindent \vskip 1 mm \noindent\begin{minipage}{\textwidth}';
}	}
} else {	} else {
$result .= '\vskip 1mm\textit{Due date: '.$duedate.'} \\\\\\\\';	$result .= '\vskip 1mm\textit{Due date: '.$duedate.'} \\\\\\\\';
Line 434 sub end_problem {	Line 434 sub end_problem {
return $result;	return $result;
}	}

#FIXME I am ugly shoot me
sub html_to_tex {
my ($string)=@_;
$string =~ s/<table>//;
$string =~ s/<\/table>//;
$string =~ s/<tr([^>]*)>//g;
$string =~ s/<\/tr>//g;
$string =~ s/<td([^>]*)>//g;
$string =~ s/<\/td>//g;
$string =~ s/<b>/\\textbf{/g;
$string =~ s/<\/b>/}/g;
$string =~ s/<br \/>/\\vskip 0 mm /g;
$string =~ s/<input([^>]*)>//g;
return $string;
}

sub start_library {	sub start_library {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
Line 661 sub end_part {	Line 646 sub end_part {
return &Apache::inputtags::grade;	return &Apache::inputtags::grade;
}	}
if ($target eq 'web' \|\| $target eq 'tex' ) {	if ($target eq 'web' \|\| $target eq 'tex' ) {
my $gradestatus=&Apache::inputtags::gradestatus($Apache::inputtags::part);	my $gradestatus=&Apache::inputtags::gradestatus($Apache::inputtags::part,$target);
#FIXME this is ugly we should just generate tex in inputtags	if ($Apache::lonhomework::type eq 'exam') {$gradestatus='';}
if ($target eq 'tex') { $gradestatus=&html_to_tex($gradestatus); }
return $gradestatus;	return $gradestatus;
}	}
return '';	return '';

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.119
changed lines
	Added in v.1.121