|
version 1.29, 2003/06/09 22:29:45
|
version 1.31.2.1, 2003/09/23 01:52:57
|
|
Line 51 sub start_imageresponse {
|
Line 51 sub start_imageresponse {
|
| } |
} |
| |
|
| sub end_imageresponse { |
sub end_imageresponse { |
| &Apache::response::end_response; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
| pop @Apache::lonxml::namespace; |
&Apache::response::end_response; |
| &Apache::lonxml::deregister('Apache::imageresponse',('foilgroup','foil','text','image','rectangle','conceptgroup')); |
pop @Apache::lonxml::namespace; |
| return ''; |
&Apache::lonxml::deregister('Apache::imageresponse',('foilgroup','foil','text','image','rectangle','conceptgroup')); |
| |
my $result; |
| |
if ($target eq 'edit') { $result=&Apache::edit::end_table(); } |
| |
return $result; |
| } |
} |
| |
|
| %Apache::response::foilgroup=(); |
%Apache::response::foilgroup=(); |
|
Line 107 sub displayfoils {
|
Line 110 sub displayfoils {
|
| if ($target eq 'tex') {$result.="\\vskip 0 mm \n";} else {$result.="<br />\n";} |
if ($target eq 'tex') {$result.="\\vskip 0 mm \n";} else {$result.="<br />\n";} |
| 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 ($Apache::lonhomework::history{"resource.$Apache::inputtags::part.solved"} =~ /^correct/ ) { |
if ( &Apache::response::show_answer() ) { |
| if ($target eq 'tex') { |
if ($target eq 'tex') { |
| $result.=$Apache::response::foilgroup{"$name.image"}."\\vskip 0 mm \n"; |
$result.=$Apache::response::foilgroup{"$name.image"}."\\vskip 0 mm \n"; |
| } else { |
} else { |
|
Line 215 sub end_conceptgroup {
|
Line 218 sub end_conceptgroup {
|
| return $result; |
return $result; |
| } |
} |
| |
|
| |
sub insert_foil { |
| |
return ' |
| |
<foil> |
| |
<image></image> |
| |
<text></text> |
| |
<rectangle></rectangle> |
| |
</foil> |
| |
'; |
| |
} |
| |
|
| $Apache::imageresponse::curname=''; |
$Apache::imageresponse::curname=''; |
| sub start_foil { |
sub start_foil { |
| my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
![[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