version 1.45, 2001/01/06 15:31:27
|
version 1.47, 2001/01/06 16:52:34
|
Line 13 use HTML::TokeParser;
|
Line 13 use HTML::TokeParser;
|
use Safe; |
use Safe; |
use Safe::Hole; |
use Safe::Hole; |
use Opcode; |
use Opcode; |
use Apache::Constants(:common); |
use Apache::Constants qw(:common); |
|
|
sub register { |
sub register { |
my $space; |
my $space; |
Line 44 sub xmlparse {
|
Line 44 sub xmlparse {
|
if ($target eq 'meta') { |
if ($target eq 'meta') { |
$Apache::lonxml::textredirection = 0; |
$Apache::lonxml::textredirection = 0; |
$Apache::lonxml::on_offimport = 1; |
$Apache::lonxml::on_offimport = 1; |
|
} elsif ($target eq 'grade') { |
|
$Apache::lonxml::textredirection = 0; |
|
$Apache::lonxml::on_offimport = 0; |
} else { |
} else { |
$Apache::lonxml::textredirection = 1; |
$Apache::lonxml::textredirection = 1; |
$Apache::lonxml::on_offimport = 0; |
$Apache::lonxml::on_offimport = 0; |