loncom/xml/londefdef.pm - diff

Return to londefdef.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.104, 2002/11/15 16:51:02	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 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);