version 1.49, 2001/08/13 20:52:33
|
version 1.52, 2001/10/03 13:34:00
|
Line 1
|
Line 1
|
# The LearningOnline Network with CAPA |
# The LearningOnline Network with CAPA |
# <script> definiton |
# <script> definiton |
# 2/21 Guy |
# 2/21 Guy |
|
# 8/20 Gerd Kortemeyer |
|
|
package Apache::scripttag; |
package Apache::scripttag; |
|
|
Line 30 sub start_script {
|
Line 31 sub start_script {
|
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" ) { |
$result=$token->[4].&Apache::edit::modifiedfield(); |
$result=$token->[4].&Apache::edit::modifiedfield(); |
} elsif ( $target eq "web" || $target eq "grade" ) { |
} elsif ( $target eq "web" || $target eq "grade" || $target eq 'answer') { |
&Apache::run::run($bodytext,$safeeval); |
&Apache::run::run($bodytext,$safeeval); |
} elsif ($target eq "edit" ) { |
} elsif ($target eq "edit" ) { |
#&Apache::run::run($bodytext,$safeeval); |
#&Apache::run::run($bodytext,$safeeval); |
Line 63 sub start_display {
|
Line 64 sub start_display {
|
|
|
if ( $target eq "modified" ) { |
if ( $target eq "modified" ) { |
$result=$token->[4].&Apache::edit::modifiedfield(); |
$result=$token->[4].&Apache::edit::modifiedfield(); |
} elsif ( $target eq "web" || $target eq "grade" ) { |
} elsif ( $target eq "web" || $target eq "grade" || $target eq 'answer') { |
$result=&Apache::run::run($bodytext,$safeeval); |
$result=&Apache::run::run($bodytext,$safeeval); |
if ($target eq 'grade' ) { |
if ($target eq 'grade' ) { |
$result=''; # grade should produce no output |
$result=''; # grade should produce no output |
Line 90 sub start_scriptlib {
|
Line 91 sub start_scriptlib {
|
my $result =''; |
my $result =''; |
my $error=''; |
my $error=''; |
|
|
if ($target eq 'web' || $target eq 'grade' || $target eq 'meta' || $target eq 'edit') { |
if ($target eq 'web' || $target eq 'grade' || $target eq 'meta' || $target eq 'edit' || $target eq 'answer') { |
$bodytext=$$parser[$#$parser]->get_text("/scriptlib"); |
$bodytext=$$parser[$#$parser]->get_text("/scriptlib"); |
$bodytext=&Apache::run::evaluate($bodytext,$safeeval, |
$bodytext=&Apache::run::evaluate($bodytext,$safeeval, |
$$parstack[$#$parstack]); |
$$parstack[$#$parstack]); |
Line 135 sub start_parserlib {
|
Line 136 sub start_parserlib {
|
my $bodytext; |
my $bodytext; |
my $result =""; |
my $result =""; |
my $error=''; |
my $error=''; |
if ($target eq 'web' || $target eq 'grade' || $target eq 'meta' || $target eq 'edit') { |
if ($target eq 'web' || $target eq 'grade' || $target eq 'meta' || $target eq 'edit' || $target eq 'answer') { |
$bodytext=$$parser[$#$parser]->get_text("/parserlib"); |
$bodytext=$$parser[$#$parser]->get_text("/parserlib"); |
$bodytext=&Apache::run::evaluate($bodytext,$safeeval, |
$bodytext=&Apache::run::evaluate($bodytext,$safeeval, |
$$parstack[$#$parstack]); |
$$parstack[$#$parstack]); |
Line 208 sub start_import {
|
Line 209 sub start_import {
|
|
|
$bodytext=Apache::run::evaluate($bodytext,$safeeval,$$parstack[$#$parstack]); |
$bodytext=Apache::run::evaluate($bodytext,$safeeval,$$parstack[$#$parstack]); |
|
|
if ($target eq 'web' || $target eq 'grade') { |
if ($target eq 'web' || $target eq 'grade' || $target eq 'answer') { |
# FIXME this probably needs to be smart about construction vs. |
# FIXME this probably needs to be smart about construction vs. |
# non construction space. |
# non construction space. |
my $location=&Apache::lonnet::filelocation($Apache::lonxml::pwd['-1'],$bodytext); |
my $location=&Apache::lonnet::filelocation($Apache::lonxml::pwd['-1'],$bodytext); |
Line 254 sub end_storetc {
|
Line 255 sub end_storetc {
|
my $result; |
my $result; |
my $output=&Apache::lonxml::endredirection; |
my $output=&Apache::lonxml::endredirection; |
$output =~ s/\"/\"\;/g; |
$output =~ s/\"/\"\;/g; |
$result = "{\bf $output.}}\write\tcfile{\protect\tcpc{ $output.}{\the\value{relpage}}}"; |
$result = '{\bf '.$output.'.}}\write\tcfile{\protect\tcpc{ '.$output.'.}{\the\value{relpage}}}'; |
return $result; |
return $result; |
} |
} |
|
|
|
|
sub start_physnet { |
sub start_physnet { |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my $bodytext = '/msu/physnet/cbi.sty'; |
my $bodytext = '/adm/includes/physnet.sty'; |
my $location=&Apache::lonnet::filelocation($Apache::lonxml::pwd['-1'],$bodytext); |
my $location=&Apache::lonnet::filelocation($Apache::lonxml::pwd['-1'],$bodytext); |
my $cbistyletext=&Apache::lonnet::getfile($location); |
my $cbistyletext=&Apache::lonnet::getfile($location); |
|
|