|
version 1.135, 2001/10/05 16:55:12
|
version 1.138, 2001/11/07 21:26:04
|
|
Line 49 use Apache::scripttag;
|
Line 49 use Apache::scripttag;
|
| use Apache::edit; |
use Apache::edit; |
| use Apache::lonnet; |
use Apache::lonnet; |
| use Apache::File; |
use Apache::File; |
| |
use Apache::loncommon; |
| |
|
| #================================================== Main subroutine: xmlparse |
#================================================== Main subroutine: xmlparse |
| #debugging control, to turn on debugging modify the correct handler |
#debugging control, to turn on debugging modify the correct handler |
|
Line 1007 sub handler {
|
Line 1008 sub handler {
|
| } else { |
} else { |
| $request->content_type('text/html'); |
$request->content_type('text/html'); |
| } |
} |
| |
&Apache::loncommon::no_cache($request); |
| $request->send_http_header; |
$request->send_http_header; |
| |
|
| return OK if $request->header_only; |
return OK if $request->header_only; |
|
Line 1160 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