loncom/xml/londefdef.pm - diff

Return to londefdef.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.208, 2004/04/06 18:05:29	version 1.209, 2004/04/15 17:37:04
Line 2343 sub start_img {	Line 2343 sub start_img {
&image_replication($src);	&image_replication($src);
if (-e $src) {	if (-e $src) {
my $image = Image::Magick->new;	my $image = Image::Magick->new;
my ($width, $height, $size, $format) = $image->Ping($src);	$image->Read($src);
	my ($width, $height) = ($image->Get('width'),
	$image->Get('height'));
if ($width && $height) {	if ($width && $height) {
$token->[2]{'width'} =$width;	$token->[2]{'width'} =$width;
$token->[2]{'height'}=$height;	$token->[2]{'height'}=$height;