version 1.103, 2002/11/15 16:35:23
|
version 1.105, 2002/11/18 20:47:51
|
Line 1505 sub start_table {
|
Line 1505 sub start_table {
|
} else { |
} else { |
if (length($data)<5) { |
if (length($data)<5) { |
$Apache::londefdef::table[-1]{'length'} .= '0 mm,'; |
$Apache::londefdef::table[-1]{'length'} .= '0 mm,'; |
$tempolen = '5 mm'; |
$tempolen = '6 mm'; |
} else { |
} else { |
$Apache::londefdef::table[-1]{'length'} .= '0 mm,'; |
$Apache::londefdef::table[-1]{'length'} .= '0 mm,'; |
$tempolen = 'TOBECHANGEDONNUMBER'; |
$tempolen = 'TOBECHANGEDONNUMBER'; |
Line 1575 sub start_table {
|
Line 1575 sub start_table {
|
$height_param = $image->Get('height') * $scaling;; |
$height_param = $image->Get('height') * $scaling;; |
undef $image; |
undef $image; |
#do we have any specified size of the picture? |
#do we have any specified size of the picture? |
my $TeXwidth = &Apache::lonxml::get_param('TeXwidth',$parstack,$safeeval) |
my $TeXwidth = &Apache::lonxml::get_param('TeXwidth',$parstack,$safeeval); |
my $TeXheight = &Apache::lonxml::get_param('TeXheight',$parstack,$safeeval) |
my $TeXheight = &Apache::lonxml::get_param('TeXheight',$parstack,$safeeval); |
my $width = &Apache::lonxml::get_param('width',$parstack,$safeeval, |
my $width = &Apache::lonxml::get_param('width',$parstack,$safeeval, |
undef,1); |
undef,1); |
if ($TeXwidth ne '') { |
if ($TeXwidth ne '') { |
Line 2551 sub image_replication {
|
Line 2551 sub image_replication {
|
&Apache::lonnet::repcopy('/home/httpd/html'.$src); |
&Apache::lonnet::repcopy('/home/httpd/html'.$src); |
#replicates eps or ps |
#replicates eps or ps |
my $newsrc = $src; |
my $newsrc = $src; |
$newsrc =~ s/(.gif|.jpg|.png)$/.eps/; |
$newsrc =~ s/\.(gif|jpg|png)$/.eps/; |
if (not-e $newsrc && &Apache::lonnet::repcopy('/home/httpd/html'.$newsrc) ne 'OK') { |
if (not-e $newsrc && &Apache::lonnet::repcopy('/home/httpd/html'.$newsrc) ne 'OK') { |
$newsrc =~ s/\.ps$/\.eps/; |
$newsrc =~ s/\.ps$/\.eps/; |
&Apache::lonnet::repcopy('/home/httpd/html'.$newsrc); |
&Apache::lonnet::repcopy('/home/httpd/html'.$newsrc); |