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