loncom/interface/entities.pm - diff

Return to entities.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.5, 2008/04/09 10:24:32
+version 1.6, 2008/04/14 09:33:39
  Line 997  sub entity_to_latex {
  #
  sub replace_entities {
      my ($input)  = @_;
+     my $start;
+     my $end;
+     my $entity;
+     my $latex;
+     # First the &#nnn; entities:
+     while ($input =~ /(&\#\d+;)/) {
+ 	($start) = @-;
+ 	($end)   = @+;
+ 	$entity  = substr($input, $start+2, $end-$start-3);
+ 	$latex = &entity_to_latex($entity);
+ 	substr($input, $start, $end-$start) = $latex;
+     }
+     # Now the &text; entites;
+     while ($input =~/($\w;)/) {
+        ($start) = @-;
+        ($end)   = @+;
+        $entity   = substr($input, $start+1, $end-$start-2);
+        $latex    = &entity_to_latex($entity);
+        substr($input, $start, $end-$start) = $latex;
+    }
  }