--- loncom/xml/scripttag.pm	2005/02/18 05:38:05	1.121
+++ 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.121 2005/02/18 05:38:05 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',
+			     'standalone','comment','num','parse','algebra',
 			     'LONCAPA_INTERNAL_TURN_STYLE_ON',
 			     'LONCAPA_INTERNAL_TURN_STYLE_OFF',
 			     'LONCAPA_INTERNAL_LONHTTPD_PORT'));
@@ -505,9 +506,76 @@ sub xmlparse {
   my $result=&Apache::lonxml::inner_xmlparse($target,$tagstack,
 					     $parstack,\@parser,
 					     $safeeval,$style);
-  &Apache::lonxml::debug("xmlparse recursion ending with $result");
+  &Apache::lonxml::debug("target is $target xmlparse recursion ending with $result");
   return $result;
 }
 
+sub start_num {
+    my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style) = @_;
+    my $result = '';
+    my $inside = &Apache::lonxml::get_all_text_unbalanced("/num",$parser);
+    if ($target eq 'tex' || $target eq 'web') {
+	$inside=&Apache::run::evaluate($inside,$safeeval,$$parstack[-1]);
+	if (!$Apache::lonxml::default_homework_loaded) {
+	    &Apache::lonxml::default_homework_load($safeeval);
+	}
+	@Apache::scripttag::parser_env = @_;
+	my $format=&Apache::lonxml::get_param('format',$parstack,$safeeval);
+	$result=&Apache::run::run("return &prettyprint(q\0$inside\0,q\0$format\0);",$safeeval);
+    }    
+    return $result;
+}
+
+sub end_num {
+    my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style) = @_;
+    my $result = '';
+    return $result;
+}
+
+sub start_parse {
+    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("/parse",$parser);
+	$inside=&Apache::run::evaluate($inside,$safeeval,$$parstack[-1]);
+	if (!$Apache::lonxml::default_homework_loaded) {
+	    &Apache::lonxml::default_homework_load($safeeval);
+	}
+	@Apache::scripttag::parser_env = @_;
+	$result=&Apache::run::run("return &xmlparse(q\0$inside\0);",$safeeval);
+    }
+    return $result;
+}
+
+sub end_parse {
+    my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style) = @_;
+    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__