version 1.20, 2000/10/10 18:18:26
|
version 1.23, 2000/11/14 22:24:38
|
Line 25 sub start_script {
|
Line 25 sub start_script {
|
$Apache::scripttag::SCRIPT_RESULT=''; |
$Apache::scripttag::SCRIPT_RESULT=''; |
if ($type eq "loncapa/perl") { |
if ($type eq "loncapa/perl") { |
$safeeval->share('$SCRIPT_RESULT'); |
$safeeval->share('$SCRIPT_RESULT'); |
my $bodytext=&Apache::lonxml::get_all_text("script",$$parser[$#$parser]); |
my $bodytext=&Apache::lonxml::get_all_text("/script",$$parser[$#$parser]); |
|
|
if ( $target eq "modified" ) { |
if ( $target eq "modified" ) { |
} |
} |