version 1.20, 2000/09/19 18:05:21
|
version 1.22, 2000/10/02 22:19:19
|
Line 42 sub xmlparse {
|
Line 42 sub xmlparse {
|
$safeeval->deny(":base_io"); |
$safeeval->deny(":base_io"); |
#need to inspect this class of ops |
#need to inspect this class of ops |
# $safeeval->deny(":base_orig"); |
# $safeeval->deny(":base_orig"); |
if ( $safeinit ne '') {&Apache::run::run($safeinit,$safeeval);} |
$safeinit .= ';$external::target='.$target.';'; |
|
&Apache::run::run($safeinit,$safeeval); |
#-------------------- Redefinition of the target in the case of compound target |
#-------------------- Redefinition of the target in the case of compound target |
|
|
($target, my @tenta) = split('&&',$target); |
($target, my @tenta) = split('&&',$target); |
Line 164 sub callsub {
|
Line 165 sub callsub {
|
{ |
{ |
no strict 'refs'; |
no strict 'refs'; |
if (my $space=$Apache::lonxml::alltags{$token->[1]}) { |
if (my $space=$Apache::lonxml::alltags{$token->[1]}) { |
#print "Calling sub $sub in $space<br>\n"; |
&Apache::lonxml::debug("Calling sub $sub in $space<br>\n"); |
$sub="$space\:\:$sub"; |
$sub="$space\:\:$sub"; |
$Apache::lonxml::curdepth=join('_',@Apache::lonxml::depthcounter); |
$Apache::lonxml::curdepth=join('_',@Apache::lonxml::depthcounter); |
$currentstring = &$sub($target,$token,$parstack,$parser, |
$currentstring = &$sub($target,$token,$parstack,$parser, |
$safeeval,$style); |
$safeeval,$style); |
} else { |
} else { |
#print "NOT Calling sub $sub<br>\n"; |
&Apache::lonxml::debug("NOT Calling sub $sub in $space<br>\n"); |
if (defined($token->[4])) { |
if (defined($token->[4])) { |
$currentstring = $token->[4]; |
$currentstring = $token->[4]; |
} else { |
} else { |
Line 240 sub parstring {
|
Line 241 sub parstring {
|
} @{$token->[3]}; |
} @{$token->[3]}; |
return $temp; |
return $temp; |
} |
} |
|
|
|
$Apache::lonxml::debug=0; |
|
sub debug { |
|
if ($Apache::lonxml::debug eq 1) { |
|
print "DEBUG:".$_[0]."<br>\n"; |
|
} |
|
} |
|
sub error { |
|
if ($Apache::lonxml::debug eq 1) { |
|
print "ERROR:".$_[0]."<br>\n"; |
|
} |
|
} |
|
sub warning { |
|
if ($Apache::lonxml::debug eq 1) { |
|
print "WARNING:".$_[0]."<br>\n"; |
|
} |
|
} |
|
|
1; |
1; |
__END__ |
__END__ |
|
|