loncom/homework/imageresponse.pm - diff

Return to imageresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.49, 2004/02/23 23:55:40	version 1.50, 2004/02/24 18:57:43
Line 215 sub displayfoils {	Line 215 sub displayfoils {
sub clean_up_image {	sub clean_up_image {
my ($image)=@_;	my ($image)=@_;
if ($image =~ /\s<img\s/) {	if ($image =~ /\s<img\s/) {
($image) = ($image =~ /src\s=\s\"([^\"]+)\"/i);	($image) = ($image =~ /src\s=\s[\"\']([^\"\']+)[\"\']/i);
if ($image !~ /^http:/) {	if ($image !~ /^http:/) {
$image=&Apache::lonnet::hreflocation('',$image);	$image=&Apache::lonnet::hreflocation('',$image);
}	}