# The LearningOnline Network with CAPA # TeX Conversion Module # # 05/29/00,05/30,10/11,10/20 Gerd Kortemeyer # 05/03/2001 Scott Harrison package Apache::lontexconvert; use strict; use tth; use vars qw($errorstring); use Apache::lonmsg; # ====================================================================== Header sub header { $errorstring=''; my $time=time; my $addhead=< if (window.location.pathname!="/res/adm/pages/menu.html") { menu=window.open("","LONCAPAmenu"); menu.currentURL=window.location.href; } END if ($ENV{'browser.mathml'}) { &tth::ttminit(); return '' .'' .']>' .'' ."$addhead" ."\n"; } else { &tth::tthinit(); my $headerstring=''; if ($ENV{'browser.os'} eq 'mac') { $headerstring.="\n" .'' ."\n$addhead\n"; } else { $headerstring.="$addhead"; } return $headerstring."\n"; } } # ================================================================== Conversion sub converted { my $texstring=shift; my $xmlstring; if ($ENV{'browser.mathml'}) { $xmlstring=&tth::ttm($$texstring); $xmlstring=~s/\/\

/g;
      $xmlstring=~s/\ /\ /g;
      $xmlstring=~s/\ /\ \<\/p\>/g;
      $errorstring.=&tth::ttmerror();
  } else {
      $xmlstring=&tth::tth($$texstring);
      $errorstring.=&tth::ttherror();
  }
  return $xmlstring;
}

# ====================================================================== Footer

sub footer {
  my $xmlstring='';
  if ($ENV{'request.state'} eq 'construct') {
      $xmlstring.=''.$errorstring.'';
  } else {
      &Apache::lonmsg::author_res_msg($ENV{'request.filename'},$errorstring);
  }
# -------------------------------------------------------------------- End Body
  $xmlstring.='';
  return $xmlstring;
}

1;
__END__