loncom/xml/londefdef.pm - diff

Return to londefdef.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.188, 2003/10/24 21:31:05	version 1.189, 2003/10/24 21:48:17
Line 2093 sub start_img {	Line 2093 sub start_img {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
my $src = &Apache::lonxml::get_param('src',$parstack,$safeeval,	my $src = &Apache::lonxml::get_param('src',$parstack,$safeeval,
undef,1);	undef,1);
	if (not $src and ($target eq 'web' or $target eq 'tex')) {
	my $inside = &Apache::lonxml::get_all_text("/img",$parser);
	&Apache::lonnet::logthis("inside was $inside");
	return '';
	}
$Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=$src;	$Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=$src;
my $currentstring = '';	my $currentstring = '';
my $width_param = '';	my $width_param = '';
Line 2211 sub start_img {	Line 2216 sub start_img {
$safeeval,'src','alt',	$safeeval,'src','alt',
'TeXwidth','TeXheight',	'TeXwidth','TeXheight',
'width','height');	'width','height');
	$src=$token->[2]{'src'};
if (!$token->[2]{'width'} && !$token->[2]{'height'}) {	if (!$token->[2]{'width'} && !$token->[2]{'height'}) {
$src=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$src);	$src=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$src);
&image_replication($src);	&image_replication($src);