loncom/xml/londefdef.pm - diff

Return to londefdef.pm CVS log

Up to [LON-CAPA] / loncom / xml

-version 1.20, 2001/02/01 19:10:11
+version 1.22, 2001/03/26 15:42:05
  Line 17  sub BEGIN {
  #===================================================================== TAG SUBROUTINES
  #-- <output>
-         sub start_output {
+ sub start_output {
-  	    my ($target,$token) = @_;
+   my ($target) = @_;
-             $Apache::lonxml::textredirection = 1;
+   if ($target eq 'meta') { $Apache::lonxml::metamode--; }
-             my $result = '';
+   return '';
-             return $result;
+ }
- 	}
+ sub end_output {
-         sub end_output {
+   my ($target) = @_;
-  	    my ($target,$token) = @_;
+   if ($target eq 'meta') { $Apache::lonxml::metamode++; }
-             $Apache::lonxml::textredirection = 0;
+   return '';
-             my $result = '';
+ }
-             return $result;
- 	}
  #-- <m> tag
          sub start_m {
  	    my ($target,$token,$parstack,$parser) = @_;