version 1.7, 2000/09/18 15:43:38
|
version 1.8, 2000/10/05 19:26:16
|
Line 40 sub start_while {
|
Line 40 sub start_while {
|
my $bodytext=$$parser[$#$parser]->get_text("/while"); |
my $bodytext=$$parser[$#$parser]->get_text("/while"); |
push( @Apache::structuretags::whilebody, $bodytext); |
push( @Apache::structuretags::whilebody, $bodytext); |
if ( $result ) { |
if ( $result ) { |
my $tempparser=HTML::TokeParser->new(\$bodytext); |
&Apache::lonxml::newparser($parser,\$bodytext); |
push (@$parser,$tempparser); |
|
} |
} |
return ""; |
return ""; |
} |
} |
Line 52 sub end_while {
|
Line 51 sub end_while {
|
my $bodytext = pop @Apache::structuretags::whilebody; |
my $bodytext = pop @Apache::structuretags::whilebody; |
my $result = &Apache::run::run($code,$safeeval); |
my $result = &Apache::run::run($code,$safeeval); |
if ( $result ) { |
if ( $result ) { |
my $tempparser=HTML::TokeParser->new(\$bodytext); |
&Apache::lonxml::newparser($parser,\$bodytext); |
push (@$parser,$tempparser); |
|
} |
} |
return ""; |
return ""; |
} |
} |
Line 96 sub start_randomlist {
|
Line 94 sub start_randomlist {
|
for(0 .. $#randomlist) { |
for(0 .. $#randomlist) { |
$bodytext .= "$randomlist[ $idx_arr[$_] ]"; |
$bodytext .= "$randomlist[ $idx_arr[$_] ]"; |
} |
} |
my $tempparser=HTML::TokeParser->new(\$bodytext); |
|
push (@$parser,$tempparser); |
&Apache::lonxml::newparser($parser,\$bodytext); |
return ""; |
return ""; |
} |
} |
|
|