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