|
version 1.94, 2008/08/08 16:37:13
|
version 1.94.2.1, 2008/12/21 05:22:01
|
|
Line 239 sub displayfoils {
|
Line 239 sub displayfoils {
|
| my $image=$Apache::response::foilgroup{"$name.image"}; |
my $image=$Apache::response::foilgroup{"$name.image"}; |
| &Apache::lonxml::debug("image is $image"); |
&Apache::lonxml::debug("image is $image"); |
| if ( ($target eq 'web' || $target eq 'answer') |
if ( ($target eq 'web' || $target eq 'answer') |
| && $image !~ /^http:/ ) { |
&& $image !~ /^https?\:/ ) { |
| $image=&clean_up_image($image); |
$image=&clean_up_image($image); |
| } |
} |
| push(@images,$image); |
push(@images,$image); |
|
Line 305 sub display_answers {
|
Line 305 sub display_answers {
|
| my $image=$Apache::response::foilgroup{"$name.image"}; |
my $image=$Apache::response::foilgroup{"$name.image"}; |
| &Apache::lonxml::debug("image is $image"); |
&Apache::lonxml::debug("image is $image"); |
| if ( ($target eq 'web' || $target eq 'answer') |
if ( ($target eq 'web' || $target eq 'answer') |
| && $image !~ /^http:/ ) { |
&& $image !~ /^https?\:/ ) { |
| $image = &clean_up_image($image); |
$image = &clean_up_image($image); |
| } |
} |
| my $token=&prep_image($image,'answeronly',$name); |
my $token=&prep_image($image,'answeronly',$name); |
|
Line 320 sub clean_up_image {
|
Line 320 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 !~ /^https?\:/) { |
| $image=&Apache::lonnet::hreflocation('',$image); |
$image=&Apache::lonnet::hreflocation('',$image); |
| } |
} |
| if (!$image) { |
if (!$image) { |
![[BACK]](/icons/back.gif){kind=icon}
Return to imageresponse.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework