version 1.98, 2001/06/27 18:52:34
|
version 1.99, 2001/07/03 20:58:27
|
Line 70 $evaluate = 1;
|
Line 70 $evaluate = 1;
|
# data structure for eidt mode, determines what tags can go into what other tags |
# data structure for eidt mode, determines what tags can go into what other tags |
%insertlist=(); |
%insertlist=(); |
|
|
#stores the list of active tag namespaces |
# stores the list of active tag namespaces |
@namespace=(); |
@namespace=(); |
|
|
|
# has the dynamic menu been updated to know about this resource |
|
$Apache::lonxml::registered=0; |
|
|
sub xmlbegin { |
sub xmlbegin { |
my $output=''; |
my $output=''; |
if ($ENV{'browser.mathml'}) { |
if ($ENV{'browser.mathml'}) { |
Line 102 sub fontsettings() {
|
Line 105 sub fontsettings() {
|
} |
} |
|
|
sub registerurl { |
sub registerurl { |
|
if ($Apache::lonxml::registered) { return ''; } |
if ($ENV{'REQUEST_URI'}!~/^\/(res\/)*adm\//) { |
if ($ENV{'REQUEST_URI'}!~/^\/(res\/)*adm\//) { |
my $hwkadd=''; |
my $hwkadd=''; |
if ($ENV{'REQUEST_URI'}=~/\.(problem|exam|quiz|assess|survey|form)$/) { |
if ($ENV{'REQUEST_URI'}=~/\.(problem|exam|quiz|assess|survey|form)$/) { |
Line 464 sub callsub {
|
Line 468 sub callsub {
|
|
|
sub setup_globals { |
sub setup_globals { |
my ($target)=@_; |
my ($target)=@_; |
|
$Apache::lonxml::registered = 0; |
if ($target eq 'meta') { |
if ($target eq 'meta') { |
$Apache::lonxml::redirection = 0; |
$Apache::lonxml::redirection = 0; |
$Apache::lonxml::metamode = 1; |
$Apache::lonxml::metamode = 1; |