loncom/xml/lontexconvert.pm - view

File: [LON-CAPA] / loncom / xml / lontexconvert.pm
Revision 1.38: download - view: text, annotated - select for diffs
Thu Jul 22 23:18:00 2004 UTC (19 years, 9 months ago) by raeburn
Branches: MAIN
CVS tags: HEAD

Allow posters to edit/delete their own discussion postings.  Controlled by
course parameter set via PARM. Previous versions of postings are preserved.
Deleted postings are hidden. Course Coordinators etc. will be able to see
all versions of postings (interface still needed). Editing currently works for
resource discussions, but not bulletin boards (work in progress).

# The LearningOnline Network with CAPA # TeX Conversion Module # # $Id: lontexconvert.pm,v 1.38 2004/07/22 23:18:00 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # # This file is part of the LearningOnline Network with CAPA (LON-CAPA). # # LON-CAPA is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # LON-CAPA is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with LON-CAPA; if not, write to the Free Software # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA # # /home/httpd/html/adm/gpl.txt # # http://www.lon-capa.org/ # # Copyright for TtHfunc and TtMfunc by Ian Hutchinson. # TtHfunc and TtMfunc (the "Code") may be compiled and linked into # binary executable programs or libraries distributed by the # Michigan State University (the "Licensee"), but any binaries so # distributed are hereby licensed only for use in the context # of a program or computational system for which the Licensee is the # primary author or distributor, and which performs substantial # additional tasks beyond the translation of (La)TeX into HTML. # The C source of the Code may not be distributed by the Licensee # to any other parties under any circumstances. # # 05/29/00,05/30,10/11,10/20 Gerd Kortemeyer # 5/4 Gerd Kortemeyer package Apache::lontexconvert; use strict; use tth(); use vars qw($errorstring); use Apache(); use Apache::lonmsg(); use Apache::lonxml(); use Apache::lonmenu(); use Apache::lonlocal; # ====================================================================== Header sub init_tth { my $options=$ENV{'course.'.$ENV{'request.course.id'}.'.tthoptions'}; if ($ENV{'browser.mathml'}) { &tth::ttminit(); if ($ENV{'browser.unicode'}) { &tth::ttmoptions('-L -u1 '.$options); } else { &tth::ttmoptions('-L -u0 '.$options); } } else { &tth::tthinit(); if ($ENV{'browser.unicode'}) { &tth::tthoptions('-L -u1 '.$options); } else { &tth::tthoptions('-L -u0 '.$options); } } } sub header { $errorstring=''; my $time=time; &init_tth(); return &Apache::lonxml::xmlbegin(). &Apache::lonxml::fontsettings(). "\n<head>\n". &Apache::lonmenu::registerurl(undef,'tex'). "\n</head>\n"; } # ================================================================== Conversion $Apache::lontexconvert::messedup=0; # we need this routine because &converted can get called from inside # of the safespace (through &xmlparse('<m>stuff</m>') which doesn't # allow the opcode for alarm, so we need to compile this before we get # into the safe space since opcode checks only occur at compile time sub convert_real { my ($texstring)=@_; my ($xmlstring,$errorstring); local $SIG{SEGV}=sub { $Apache::lontexconvert::messedup=1; die; }; local $SIG{ALRM}=sub { &Apache::lonnet::logthis("ALRM"); $xmlstring='['.&mt("TeX unconverted due to errors").']'; $Apache::lontexconvert::messedup=1; die &mt("TeX unconverted due to errors"); }; alarm($Apache::lonnet::perlvar{'lonScriptTimeout'}); if ($ENV{'browser.mathml'}) { $xmlstring=&tth::ttm($$texstring); $xmlstring=~s/\<math\>/\<math xmlns=\"\&mathns\;\"\>/g; $xmlstring=~s/\<br\>/\<br\/\>/g; $xmlstring=~s/\<p\>/\<p\>\<\/p\>/g; $errorstring.=&tth::ttmerror(); } else { $xmlstring=&tth::tth($$texstring); $errorstring.=&tth::ttherror(); $xmlstring=~s-</font(\s*)>-</font>-g; } $xmlstring=~s/^\s*//; $xmlstring=~s/\s*$//; alarm(0); return ($xmlstring,$errorstring); } sub converted { my $texstring=shift; my $xmlstring='['.&mt('UNDISPLAYABLE').']'; if ($Apache::lontexconvert::messedup) { return '['.&mt('TeX unconverted due to previous errors').']'; } eval(<<'ENDCONV'); ($xmlstring,$errorstring)=&convert_real($texstring) ENDCONV if ($@) { $errorstring.=&mt("Evaluation Error: ").$@; $Apache::lontexconvert::messedup=1; } if ($Apache::lontexconvert::messedup || &tth::tthmessedup() || $errorstring) { &Apache::lonnet::logthis("Trying to kill myself"); $Apache::lontexconvert::messedup=1; my $request=Apache->request(); $request->child_terminate(); } return $xmlstring; } # ====================================================================== Footer sub footer { my $xmlstring=''; if ($ENV{'request.state'} eq 'construct') { $xmlstring.='<address>'.$errorstring.'</address>'; } else { &Apache::lonmsg::author_res_msg($ENV{'request.filename'},$errorstring); } # -------------------------------------------------------------------- End Body $xmlstring.=&Apache::lonxml::xmlend(); return $xmlstring; } # ------------------------------------------------------------ Message display sub to_convert { my ($string) = @_; $string=~s/\<br\s*\/?\>/ /gs; # $string=~s/\s/ /gs; $string=&HTML::Entities::decode($string); return &converted(\$string); } sub smiley { my $expression=shift; if ($ENV{'browser.imagesuppress'} eq 'on') { return $expression; } my %smileys=('\:\-\)' => 'smiley', '8\-\)' => 'coolsmile', '8\-(I|\|)' => 'coolindiff', ':\-(I|\|)' => 'neutral', '\:\-(o|O|)' => 'shocked', ':\-$' => 'frowny', '\;\-$' => 'wink', '\:\-P' => 'baeh', '\:\-(\\\|\\/)' => 'hrrm', '\:\-D' => 'bigsmile', '\:\-C' => 'angry', '\:(\'|\`)\-\(' => 'cry', '\:\-(X|\#)' => 'lipsrsealed', '\:\-S' => 'huh'); my $iconpath=$Apache::lonnet::perlvar{'lonIconsURL'}; foreach (keys %smileys) { $expression=~s/$_/\<img src="$iconpath\/$smileys{$_}.gif" \/\>/gs; } return $expression; } sub msgtexconverted { my ($message,$email,$priorversions) = @_; $errorstring=''; &init_tth(); my $outmessage=''; my $tex=0; if ($priorversions > 0) { if ($message =~ /::::\d+::::(.+)$/) { $message = $1; } } foreach (split(/(?:\&lt\;|\<)\/*m\s*(?:\&gt\;|\>)/i,$message)) { if ($tex) { if ($email) { $outmessage.='</pre><tt>'.&to_convert($_).'</tt><pre>'; $tex=0; } else { $outmessage.=&to_convert($_); $tex=0; } } else { $outmessage.=&smiley($_); $tex=1; } } if (wantarray) { return ($outmessage,$errorstring); } else { return $outmessage.$errorstring; } } 1; __END__