version 1.91, 2008/11/24 17:17:51
|
version 1.92, 2008/12/04 09:51:14
|
Line 47 use Apache::lonlocal;
|
Line 47 use Apache::lonlocal;
|
use Apache::lonnet; |
use Apache::lonnet; |
use lib '/home/httpd/lib/perl/'; |
use lib '/home/httpd/lib/perl/'; |
use LONCAPA; |
use LONCAPA; |
|
use LWP::UserAgent; |
|
|
|
|
# ====================================================================== Header |
# ====================================================================== Header |
Line 241 sub init_math_support {
|
Line 242 sub init_math_support {
|
return; |
return; |
} |
} |
|
|
|
sub mimetex_valign { |
|
my ($texstring)=@_; |
|
my $ua = LWP::UserAgent->new; #from the perldoc of LWP::UserAgent |
|
$ua->timeout(10); |
|
$ua->env_proxy; |
|
#header without imagedata saved to response: |
|
my $response = $ua->head('http://lcdevhost.localdomain/cgi-bin/mimetex.cgi?'.$texstring); |
|
if ($response->is_success) { |
|
#get the valign-value: |
|
return($response->headers->{'vertical-align'});} |
|
else { |
|
return(0); #if (error) than continue without valign |
|
} |
|
} |
|
|
sub mimetex_converted { |
sub mimetex_converted { |
my $texstring=shift; |
my $texstring=shift; |
my $displaystyle=&displaystyle($texstring); |
my $displaystyle=&displaystyle($texstring); |
Line 250 sub mimetex_converted {
|
Line 266 sub mimetex_converted {
|
if ($displaystyle) { |
if ($displaystyle) { |
$$texstring='\\displaystyle \\Large '.$$texstring; |
$$texstring='\\displaystyle \\Large '.$$texstring; |
} |
} |
|
|
|
# FIXME |
|
# this is the line that calls the new function mimetex_valign above: |
|
# my $result='<img src="/cgi-bin/mimetex.cgi?'.&escape($$texstring).'" style="vertical-align:'.&mimetex_valign($$texstring).'px" alt="$'.$$texstring.'$" />'; |
|
# |
|
# this line is the old implementation without valign of the images: |
my $result='<img src="/cgi-bin/mimetex.cgi?'.&escape($$texstring).'" alt="$'.$$texstring.'$" />'; |
my $result='<img src="/cgi-bin/mimetex.cgi?'.&escape($$texstring).'" alt="$'.$$texstring.'$" />'; |
if ($displaystyle) { |
if ($displaystyle) { |
$result='<center>'.$result.'</center>'; |
$result='<center>'.$result.'</center>'; |