--- loncom/xml/londefdef.pm	2001/05/04 17:38:22	1.29
+++ loncom/xml/londefdef.pm	2001/06/02 03:59:59	1.30
@@ -29,7 +29,7 @@ sub end_output {
 }
 #-- <m> tag
         sub start_m {
-	    my ($target,$token,$parstack,$parser) = @_;
+	    my ($target,$token,$tagstack,$parstack,$parser) = @_;
             my $currentstring = '';
             if ($target eq 'web') {
 		my $inside = &Apache::lonxml::get_all_text("/m",$$parser[$#$parser]); 
@@ -219,7 +219,7 @@ sub end_output {
 	}
 #-------------------------------------------------------------------------- <meta> tag
       sub start_meta {
-	    my ($target,$token,$parstack,$parser) = @_;
+	    my ($target,$token,$tagstack,$parstack,$parser) = @_;
             my $currentstring = '';
             if ($target eq 'web') {
 	      my $args='';
@@ -245,7 +245,7 @@ sub end_output {
 	   return $currentstring;
 	}
       sub end_meta {
-	my ($target,$token,$parstack,$parser) = @_;
+	my ($target,$token,$tagstack,$parstack,$parser) = @_;
 	my $currentstring = '';
 	if ($target eq 'web') {
 	  my $args='';
@@ -958,7 +958,7 @@ sub end_output {
            return $currentstring;
 	}
         sub end_a {
-	    my ($target,$token,$stackref) = @_;
+	    my ($target,$token,$tagstack,$stackref) = @_;
             my $currentstring = '';
             if ($target eq 'web') {
 	       $currentstring .= $token->[2];
@@ -976,7 +976,7 @@ sub end_output {
 	}
 #---------------------------------------------------------------------------- <li> tag
         sub start_li {
-	    my ($target,$token,$stackref) = @_;
+	    my ($target,$token,$tagstack,$stackref) = @_;
             my $currentstring = '';
             if ($target eq 'web') {
               $currentstring = $token->[4];