|
version 1.137, 2001/10/31 17:44:42
|
version 1.138, 2001/11/07 21:26:04
|
|
Line 1161 sub register_insert {
|
Line 1161 sub register_insert {
|
| |
|
| sub description { |
sub description { |
| my ($token)=@_; |
my ($token)=@_; |
| return $insertlist{$insertlist{"$token->[1].num"}.'.description'}; |
my $tagnum; |
| |
my $tag=$token->[1]; |
| |
foreach my $namespace (reverse @Apache::lonxml::namespace) { |
| |
my $testtag=$namespace.'::'.$tag; |
| |
$tagnum=$insertlist{"$testtag.num"}; |
| |
if (defined($tagnum)) { last; } |
| |
} |
| |
if (!defined ($tagnum)) { $tagnum=$Apache::lonxml::insertlist{"$tag.num"}; } |
| |
return $insertlist{$tagnum.'.description'}; |
| } |
} |
| |
|
| # ----------------------------------------------------------------- whichuser |
# ----------------------------------------------------------------- whichuser |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonxml.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / xml