--- loncom/xml/scripttag.pm 2005/02/21 23:23:30 1.122 +++ loncom/xml/scripttag.pm 2005/06/06 01:29:45 1.128 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Script Vars
"; } } elsif ($target eq "edit" ) { @@ -442,7 +441,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 +454,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 +552,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__