--- loncom/xml/scripttag.pm	2005/02/21 23:23:30	1.122
+++ loncom/xml/scripttag.pm	2005/02/24 01:21:50	1.123
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # <script> definiton
 #
-# $Id: scripttag.pm,v 1.122 2005/02/21 23:23:30 albertel Exp $
+# $Id: scripttag.pm,v 1.123 2005/02/24 01:21:50 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -31,6 +31,7 @@ package Apache::scripttag;
 use strict;
 use Apache::lonnet;
 use Apache::style;
+use AlgParser;
 
 #Globals
 # this used to pass around the standard callsub arguments to a tag func
@@ -41,7 +42,7 @@ BEGIN {
   &Apache::lonxml::register('Apache::scripttag',
 			    ('script','scriptlib','parserlib','import',
 			     'window','display','storetc','physnet',
-			     'standalone','comment','num','parse',
+			     'standalone','comment','num','parse','algebra',
 			     'LONCAPA_INTERNAL_TURN_STYLE_ON',
 			     'LONCAPA_INTERNAL_TURN_STYLE_OFF',
 			     'LONCAPA_INTERNAL_LONHTTPD_PORT'));
@@ -553,5 +554,28 @@ 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') {
+	    $result=&Apache::lontexconvert::algebra($inside,$target);
+	}
+	$Apache::lonxml::post_evaluate=0;
+    }
+    return $result;
+}
+
+sub end_algebra {
+    my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style) = @_;
+    my $result = '';
+    return $result;
+}
+
 1;
 __END__