|
version 1.25, 2000/10/11 13:07:49
|
version 1.26, 2000/10/11 21:07:59
|
|
Line 50 sub xmlparse {
|
Line 50 sub xmlparse {
|
| #need to inspect this class of ops |
#need to inspect this class of ops |
| # $safeeval->deny(":base_orig"); |
# $safeeval->deny(":base_orig"); |
| $safeinit .= ';$external::target='.$target.';'; |
$safeinit .= ';$external::target='.$target.';'; |
| |
$safeinit .= ';$external::randomseed='.&Apache::lonnet::rndseed().';'; |
| &Apache::run::run($safeinit,$safeeval); |
&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 |
| |
|
|
Line 201 sub callsub {
|
Line 202 sub callsub {
|
| my $sub1; |
my $sub1; |
| no strict 'refs'; |
no strict 'refs'; |
| if (my $space=$Apache::lonxml::alltags{$token->[1]}) { |
if (my $space=$Apache::lonxml::alltags{$token->[1]}) { |
| # &Apache::lonxml::debug("Calling sub $sub in $space<br>\n"); |
#&Apache::lonxml::debug("Calling sub $sub in $space<br>\n"); |
| # if ( $sub eq "start_parserlib" ) { |
|
| # print "me:".%$style.":\n"; |
|
| # } |
|
| $sub1="$space\:\:$sub"; |
$sub1="$space\:\:$sub"; |
| $Apache::lonxml::curdepth=join('_',@Apache::lonxml::depthcounter); |
$Apache::lonxml::curdepth=join('_',@Apache::lonxml::depthcounter); |
| $currentstring = &$sub1($target,$token,$parstack,$parser, |
$currentstring = &$sub1($target,$token,$parstack,$parser, |
| $safeeval,$style); |
$safeeval,$style); |
| # if ( $sub eq "start_parserlib" ) { |
|
| # print "me2:".%$style.":"; |
|
| # } |
|
| } else { |
} else { |
| #&Apache::lonxml::debug("NOT Calling sub $sub in $space<br>\n"); |
#&Apache::lonxml::debug("NOT Calling sub $sub in $space<br>\n"); |
| if (defined($token->[4])) { |
if (defined($token->[4])) { |
![[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