--- loncom/xml/lontexconvert.pm 2010/06/10 15:54:06 1.104 +++ loncom/xml/lontexconvert.pm 2011/03/14 16:10:21 1.106 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # TeX Conversion Module # -# $Id: lontexconvert.pm,v 1.104 2010/06/10 15:54:06 bisitz Exp $ +# $Id: lontexconvert.pm,v 1.106 2011/03/14 16:10:21 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -49,7 +49,6 @@ use lib '/home/httpd/lib/perl/'; use LONCAPA; use URI::Escape; use IO::Socket::INET; -use IO::Socket::SSL; # ====================================================================== Header @@ -166,10 +165,12 @@ sub clean_out_math_mode { sub displaystyle { my ($texstring)=@_; - #has a $$ or \[ or \displaystyle in it, guessinng it's display mode + #has a $$ or \[ or \displaystyle or eqnarray in it, guessinng it's display mode if ($$texstring=~/[^\\]\$\$/ || - $$texstring=~/\\\[/ || - $$texstring=~/\\displaystyle/) { return 1; } + $$texstring=~/\\\[/ || + $$texstring=~/\\displaystyle/ || + $$texstring=~/eqnarray/ + ) { return 1; } return 0; } @@ -248,19 +249,12 @@ sub mimetex_valign { my $valign = 0; my $lonhost = $Apache::lonnet::perlvar{'lonHostID'}; my $hostname = &Apache::lonnet::hostname($lonhost); - my $protocol = $Apache::lonnet::protocol{$lonhost}; my $path = '/cgi-bin/mimetex.cgi?'.$esc_texstring; my $socket; &Apache::lonxml::start_alarm(); - if ($protocol eq 'https') { - $socket = IO::Socket::SSL->new(PeerAddr => $hostname, - PeerPort => 'https(443)', - Proto => 'tcp'); - } else { - $socket = IO::Socket::INET->new(PeerAddr => $hostname, + my $socket = IO::Socket::INET->new(PeerAddr => $hostname, PeerPort => 'http(80)', Proto => 'tcp'); - } if ($socket) { my $headreq = "HEAD $path HTTP/1.0\r\n\r\n"; print $socket $headreq; @@ -269,12 +263,7 @@ sub mimetex_valign { $valign = $1; } } - if ($protocol eq 'https') { - $socket->close(SSL_no_shutdown => 1, - SSL_ctx_free => 1); - } else { - $socket->close(); - } + $socket->close(); } &Apache::lonxml::end_alarm(); return $valign; @@ -302,7 +291,7 @@ sub mimetex_converted { my $valign = &mimetex_valign($esc_texstring); my $result=''; if ($displaystyle) { - $result='