--- loncom/homework/randomlylabel.pm 2004/03/16 23:08:23 1.19 +++ loncom/homework/randomlylabel.pm 2004/07/15 18:06:09 1.20 @@ -2,7 +2,7 @@ # The LearningOnline Network with CAPA # randomlabel.png: composite together text and images into 1 image # -# $Id: randomlylabel.pm,v 1.19 2004/03/16 23:08:23 albertel Exp $ +# $Id: randomlylabel.pm,v 1.20 2004/07/15 18:06:09 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -54,6 +54,7 @@ sub get_image { if ($response->content_type !~ m-/(png|jpg|jpeg)$-i) { my $conv_image = Image::Magick->new; my $current_figure = $conv_image->Read('filename'=>$file); + $conv_image->Set('type'=>'TrueColor'); $conv_image->Set('magick'=>'png'); my @blobs=$conv_image->ImageToBlob(); undef $conv_image; @@ -66,6 +67,7 @@ sub get_image { } elsif ($imgsrc !~ /\.(png|jpg|jpeg)$/i) { my $conv_image = Image::Magick->new; my $current_figure = $conv_image->Read('filename'=>$imgsrc); + $conv_image->Set('type'=>'TrueColor'); $conv_image->Set('magick'=>'png'); my @blobs=$conv_image->ImageToBlob(); undef $conv_image;