--- loncom/xml/scripttag.pm 2005/02/21 23:23:30 1.122
+++ loncom/xml/scripttag.pm 2005/04/07 06:56:27 1.126
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Script Vars
";
}
} elsif ($target eq "edit" ) {
@@ -442,7 +442,7 @@ sub start_standalone {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
my $result='';
if ($target eq 'web' ) {
- if ( $ENV{'request.course.id'} ) {
+ if ( $env{'request.course.id'} ) {
my $inside = &Apache::lonxml::get_all_text("/standalone",$parser);
} else {
$result='
';
@@ -455,7 +455,7 @@ sub end_standalone {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
my $result='';
if ($target eq 'web' ) {
- if ( $ENV{'request.course.id'} ) {
+ if ( $env{'request.course.id'} ) {
} else {
$result=' |
';
}
@@ -553,5 +553,29 @@ sub end_parse {
my $result = '';
return $result;
}
+
+sub start_algebra {
+ my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style) = @_;
+ my $result = '';
+ if ( $target eq 'web' || $target eq 'tex' ||
+ $target eq 'grade' || $target eq 'answer' ||
+ $target eq 'analyze') {
+ my $inside = &Apache::lonxml::get_all_text_unbalanced("/algebra",$parser);
+ $inside = &Apache::run::evaluate($inside,$safeeval,$$parstack[-1]);
+ if ($target eq 'web' || $target eq 'tex' || $target eq 'analyze') {
+ my $style=&Apache::lonxml::get_param('style',$parstack,$safeeval);
+ $result=&Apache::lontexconvert::algebra($inside,$target,$style);
+ }
+ $Apache::lonxml::post_evaluate=0;
+ }
+ return $result;
+}
+
+sub end_algebra {
+ my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style) = @_;
+ my $result = '';
+ return $result;
+}
+
1;
__END__