--- loncom/xml/scripttag.pm	2001/02/19 20:43:00	1.33
+++ loncom/xml/scripttag.pm	2001/03/27 18:19:29	1.36
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 # <script> definiton
-
+# 2/21 Guy
 
 package Apache::scripttag; 
 
@@ -130,8 +130,10 @@ sub start_window {
   my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;
   my $result = '';
   if ($target eq 'web') {
-    $Apache::lonxml::redirection = 0;
-  } 
+    &Apache::lonxml::startredirection;
+  }  elsif ($target eq 'tex') {
+       $result = '\footnote{';
+   }
   return $result;  
 }
 
@@ -139,12 +141,13 @@ sub end_window {
   my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;
   my $result;
   if ($target eq 'web') {
-    $Apache::lonxml::outputstack =~ s/\"/\&quot\;/g;
-    $result = "<a href=\"javascript:newWindow=open(\'\',\'new_W\',\'width=500,height=200\');newWindow.document.open(\'text/html\',\'replace\');newWindow.document.writeln(\'<html><head><title>newwindow</title></head><body bgcolor=&quot;#FFFFFF&quot;> $Apache::lonxml::outputstack </body></html>\');newWindow.document.close();void(0);\"><sup>*</sup></a>";
-    $Apache::lonxml::outputstack = "";
-    $Apache::lonxml::redirection = 1;
+    my $output=&Apache::lonxml::endredirection;
+    $output =~ s/\"/\&quot\;/g;
+    $result = "<a href=\"javascript:newWindow=open(\'\',\'new_W\',\'width=500,height=200,scrollbars=1\');newWindow.document.open(\'text/html\',\'replace\');newWindow.document.writeln(\'<html><head><title>newwindow</title></head><body bgcolor=&quot;#FFFFFF&quot;> $output </body></html>\');newWindow.document.close();void(0);\"><sup>*</sup></a>";
+  } elsif ($target eq 'tex') {
+      $result = '}';
   } else {
-    $result = '';
+      $result = '';
   }
   return $result; 
 }
@@ -200,8 +203,9 @@ sub editfield {
   map { $count++;
 	if (length($_) > $maxlength) { $maxlength = length ($_); }
       } split ("\n", $data);
-	  
-  return "<br />\n&lt;$tag&gt;<br />\n&nbsp;&nbsp;&nbsp;<textarea rows=\"$count\" cols=\"$maxlength\" name=homework_edit_".$Apache::lonxml::curdepth.">$data</textarea><br />\n&lt;/$tag&gt;<br />\n";
+  if ($maxlength > 80) { $maxlength = 80; }
+  return "<br />\n&nbsp;&nbsp;&nbsp;<textarea rows=\"$count\" cols=\"$maxlength\" name=homework_edit_".$Apache::lonxml::curdepth.">$data</textarea>\n";
+#  return "<br />\n&lt;$tag&gt;<br />\n&nbsp;&nbsp;&nbsp;<textarea rows=\"$count\" cols=\"$maxlength\" name=homework_edit_".$Apache::lonxml::curdepth.">$data</textarea><br />\n&lt;/$tag&gt;<br />\n";
 }
 
 sub getfilenothere {
