--- loncom/xml/lonxml.pm	2001/06/26 21:45:28	1.97
+++ loncom/xml/lonxml.pm	2001/06/27 18:52:34	1.98
@@ -910,6 +910,11 @@ sub register_insert {
     $tagnum++;
   }
 }
+
+sub description {
+  my ($token)=@_;
+  return $insertlist{$insertlist{"$token->[1].num"}.'.description'};
+}
 1;
 __END__