loncom/homework/randomlabel.pm - diff

Return to randomlabel.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.51, 2003/10/16 19:23:58	version 1.52, 2003/10/30 20:52:54
Line 404 sub start_label {	Line 404 sub start_label {
$result.=&Apache::edit::editline('',$text,'',50).	$result.=&Apache::edit::editline('',$text,'',50).
&Apache::edit::end_table();	&Apache::edit::end_table();
} elsif ($target eq 'modified') {	} elsif ($target eq 'modified') {
my $text=$$parser[-1]->get_text("/label");
$result = '<label>';	$result = '<label>';
if ($type eq 'image') {	if ($type eq 'image') {
my $constructtag=&Apache::edit::get_new_args($token,$parstack,	my $constructtag=&Apache::edit::get_new_args($token,$parstack,
Line 416 sub start_label {	Line 415 sub start_label {
$result = $token->[4];	$result = $token->[4];
}	}
}	}
$result.=&Apache::edit::modifiedfield($token);	$result.=&Apache::edit::modifiedfield("/label",$parser);
}	}
return $result;	return $result;
}	}