[LON-CAPA-cvs] cvs: loncom(version_2_0_X) /homework structuretags.pm

[albertel]

albertel		Mon Oct 17 12:08:13 2005 EDT

  Modified files:              (Branch: version_2_0_X)
    /loncom/homework	structuretags.pm 
  Log:
  - backport 1.305
  
  
Index: loncom/homework/structuretags.pm
diff -u loncom/homework/structuretags.pm:1.303 loncom/homework/structuretags.pm:1.303.2.1
--- loncom/homework/structuretags.pm:1.303	Fri Sep 23 16:39:35 2005
+++ loncom/homework/structuretags.pm	Mon Oct 17 12:08:13 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA 
 # definition of tags that give a structure to a document
 #
-# $Id: structuretags.pm,v 1.303 2005/09/23 20:39:35 albertel Exp $
+# $Id: structuretags.pm,v 1.303.2.1 2005/10/17 16:08:13 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1054,7 +1054,9 @@
     if ($target eq 'answer' || $target eq 'grade' || $target eq 'web' ||
 	$target eq 'tex' || $target eq 'analyze') {
 	my $body= &Apache::lonxml::get_all_text("/randomlist",$parser);
-	my $b_parser= HTML::TokeParser->new(\$body);
+	my $b_parser= HTML::LCParser->new(\$body);
+	$b_parser->xml_mode(1);
+	$b_parser->marked_sections(1);
 	my $b_tok;
 	my @randomlist;
 	my $list_item;