loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/structuretags.pm between versions 1.109 and 1.111

version 1.109, 2002/08/29 21:21:09	version 1.111, 2002/09/04 02:48:31
Line 462 sub start_library {	Line 462 sub start_library {
} elsif ($target eq 'modified') {	} elsif ($target eq 'modified') {
$result=$token->[4];	$result=$token->[4];
$result.=&Apache::edit::handle_insert();	$result.=&Apache::edit::handle_insert();
} elsif ($target eq 'web' && $ENV{'request.state'} eq "construct" ) {	} elsif ($target eq 'web' && $$tagstack[0] ne 'problem' &&
	$ENV{'request.state'} eq "construct" ) {
($result,$head_tag_start,$body_tag_start,$form_tag_start)=	($result,$head_tag_start,$body_tag_start,$form_tag_start)=
&page_start($target,$token,$tagstack,$parstack,$parser,$safeeval);	&page_start($target,$token,$tagstack,$parstack,$parser,$safeeval);
my $name=&get_resource_name($parstack,$safeeval);	my $name=&get_resource_name($parstack,$safeeval);
Line 536 sub end_while {	Line 537 sub end_while {
return "";	return "";
}	}

# <randomlist>	# <randomlist show="1">
# <tag1>..</tag1>	# <tag1>..</tag1>
# <tag2>..</tag2>	# <tag2>..</tag2>
# <tag3>..</tag3>	# <tag3>..</tag3>
Line 545 sub end_while {	Line 546 sub end_while {
sub start_randomlist {	sub start_randomlist {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
my $result;	my $result;
if ($target eq 'answer' \|\| $target eq 'grade' \|\| $target eq 'web') {	if ($target eq 'answer' \|\| $target eq 'grade' \|\| $target eq 'web' \|\|
	$target eq 'tex') {
my $body= &Apache::lonxml::get_all_text("/randomlist",$$parser[$#$parser]);	my $body= &Apache::lonxml::get_all_text("/randomlist",$$parser[$#$parser]);
my $b_parser= HTML::TokeParser->new(\$body);	my $b_parser= HTML::TokeParser->new(\$body);
my $b_tok;	my $b_tok;

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.109
changed lines
	Added in v.1.111