loncom/xml/londefdef.pm - diff

Return to londefdef.pm CVS log

Up to [LON-CAPA] / loncom / xml

-version 1.13, 2000/11/30 11:44:50
+version 1.14, 2001/01/04 19:15:20
  Line 750  sub BEGIN {
  	}
  #---------------------------------------------------------------------- <basefont> tag
        sub start_basefont {
- 	    my ($target,$token) = @_;
+ 	my ($target,$token) = @_;
-             my $currentstring = '';
+ 	my $currentstring = '';
-             if ($target eq 'web') {
+ 	if ($target eq 'web') {
-               $currentstring = $token->[4];
+ 	  $currentstring = $token->[4];
- 	    }
+ 	}
- 	   return $currentstring;
+ 	return $currentstring;
- 	}
+       }
+       sub end_basefont {
+ 	my ($target,$token) = @_;
+ 	my $currentstring = '';
+ 	if ($target eq 'web') {
+ 	  $currentstring = $token->[4];
+ 	}
+ 	return $currentstring;
+       }
  #-------------------------------------------------------------------------- <font> tag
           sub start_font {
  	    my ($target,$token) = @_;