loncom/homework/imageresponse.pm - diff

Return to imageresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.82, 2007/04/18 01:06:22	version 1.83, 2007/06/19 20:23:56
Line 505 sub end_text {	Line 505 sub end_text {
sub start_image {	sub start_image {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
my $result='';	my $result='';
	my $only = join(',',&Apache::loncommon::filecategorytypes('Pictures'));
if ($target eq 'web' \|\| $target eq 'tex' \|\| $target eq 'analyze'	if ($target eq 'web' \|\| $target eq 'tex' \|\| $target eq 'analyze'
\|\| $target eq 'answer') {	\|\| $target eq 'answer') {
&Apache::lonxml::startredirection;	&Apache::lonxml::startredirection;
Line 515 sub start_image {	Line 516 sub start_image {

$result=&Apache::edit::tag_start($target,$token,'Clickable Image').	$result=&Apache::edit::tag_start($target,$token,'Clickable Image').
&Apache::edit::editline($token->[1],$bgimg,'Image Source File',40);	&Apache::edit::editline($token->[1],$bgimg,'Image Source File',40);
$result.=&Apache::edit::browse(undef,'textnode').' ';	$result.=&Apache::edit::browse(undef,'textnode',undef,$only).' ';
$result.=&Apache::edit::search(undef,'textnode').	$result.=&Apache::edit::search(undef,'textnode').
&Apache::edit::end_row();	&Apache::edit::end_row();
} elsif ($target eq "modified") {	} elsif ($target eq "modified") {