--- loncom/xml/londefdef.pm 2003/05/29 18:11:00 1.136 +++ loncom/xml/londefdef.pm 2003/06/19 14:58:39 1.139 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Tags Default Definition Module # -# $Id: londefdef.pm,v 1.136 2003/05/29 18:11:00 sakharuk Exp $ +# $Id: londefdef.pm,v 1.139 2003/06/19 14:58:39 sakharuk Exp $ # # # Copyright Michigan State University Board of Trustees @@ -1137,7 +1137,7 @@ sub start_big { if ($target eq 'web') { $currentstring .= $token->[4]; } elsif ($target eq 'tex') { - $currentstring .= '\large{'; + $currentstring .= '{\large '; } elsif ($target eq 'latexsource') { $currentstring .= '{\Large '; } @@ -1703,8 +1703,8 @@ sub start_table { my $textwidth; if (not defined @Apache::londefdef::table) { $textwidth=&recalc($ENV{'form.textwidth'}); - $textwidth=~/(\d+)/; - $textwidth=$1; + $textwidth=~/(\d+\.?\d*)/; + $textwidth=0.95*$1; } else { $textwidth=&Apache::lonxml::get_param('TeXwidth',$parstack,$safeeval,undef,0); } @@ -2198,7 +2198,8 @@ sub start_allow { my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; my $src = &Apache::lonxml::get_param('src',$parstack,$safeeval,undef,1); $src=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$src); - $Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=$src; + $Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]= + &Apache::lonnet::clutter($src); &image_replication($src); my $result; if ($target eq 'edit') {