loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.120, 2002/10/01 20:44:44	version 1.121, 2002/10/01 21:04:34
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 ($target eq 'tex') { $gradestatus=&html_to_tex($gradestatus); }
if ($Apache::lonhomework::type eq 'exam') {$gradestatus='';}	if ($Apache::lonhomework::type eq 'exam') {$gradestatus='';}
return $gradestatus;	return $gradestatus;
}	}