version 1.140, 2001/11/29 21:38:17
|
version 1.141, 2001/12/14 22:59:34
|
Line 66 use Math::Random qw(:all);
|
Line 66 use Math::Random qw(:all);
|
use Opcode; |
use Opcode; |
|
|
sub register { |
sub register { |
my $space; |
my ($space,@taglist) = @_; |
my @taglist; |
foreach my $temptag (@taglist) { |
my $temptag; |
push(@{ $Apache::lonxml::alltags{$temptag} },$space); |
($space,@taglist) = @_; |
|
foreach $temptag (@taglist) { |
|
$Apache::lonxml::alltags{$temptag}=$space; |
|
} |
} |
} |
} |
|
|
|
sub deregister { |
|
my ($space,@taglist) = @_; |
|
&printalltags(); |
|
foreach my $temptag (@taglist) { |
|
my $tempspace = $Apache::lonxml::alltags{$temptag}[-1]; |
|
if ($tempspace eq $space) { |
|
pop(@{ $Apache::lonxml::alltags{$temptag} }); |
|
} |
|
} |
|
&printalltags(); |
|
} |
|
|
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
use Apache::lontexconvert; |
use Apache::lontexconvert; |
use Apache::style; |
use Apache::style; |
Line 425 sub unloadevents() {
|
Line 434 sub unloadevents() {
|
sub printalltags { |
sub printalltags { |
my $temp; |
my $temp; |
foreach $temp (sort keys %Apache::lonxml::alltags) { |
foreach $temp (sort keys %Apache::lonxml::alltags) { |
&Apache::lonxml::debug("$temp -- $Apache::lonxml::alltags{$temp}"); |
&Apache::lonxml::debug("$temp -- ". |
|
join(',',@{ $Apache::lonxml::alltags{$temp} })); |
} |
} |
} |
} |
|
|
Line 644 sub callsub {
|
Line 654 sub callsub {
|
my $sub1; |
my $sub1; |
no strict 'refs'; |
no strict 'refs'; |
my $tag=$token->[1]; |
my $tag=$token->[1]; |
my $space=$Apache::lonxml::alltags{$tag}; |
my $space=$Apache::lonxml::alltags{$tag}[-1]; |
if (!$space) { |
if (!$space) { |
$tag=~tr/A-Z/a-z/; |
$tag=~tr/A-Z/a-z/; |
$sub=~tr/A-Z/a-z/; |
$sub=~tr/A-Z/a-z/; |
$space=$Apache::lonxml::alltags{$tag} |
$space=$Apache::lonxml::alltags{$tag}[-1] |
} |
} |
|
|
my $deleted=0; |
my $deleted=0; |
Line 1044 sub handler {
|
Line 1054 sub handler {
|
} else { |
} else { |
$request->content_type('text/html'); |
$request->content_type('text/html'); |
} |
} |
&Apache::loncommon::no_cache($request); |
&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; |
|
|
|
|