loncom/xml/londefdef.pm - diff

Return to londefdef.pm CVS log

Up to [LON-CAPA] / loncom / xml

Diff for /loncom/xml/londefdef.pm between versions 1.154 and 1.155

-version 1.154, 2003/07/15 20:47:24
+version 1.155, 2003/07/25 10:44:36
  Line 464  sub start_body {
  	    $currentstring.='<head>'.
  		&Apache::lonmenu::registerurl(undef,$target).'</head>';
  	}
+ # Accessibility
+ 	if ($ENV{'browser.imagesuppress'} eq 'on') {
+ 	    delete($token->[2]->{'background'});
+ 	}
+ 	if ($ENV{'browser.fontenhance'} eq 'on') {
+ 	    my $style='';
+ 	    foreach my $key (keys(%{$token->[2]})) {
+ 		if ($key =~ /^style$/i) {
+ 		    $style.=$token->[2]->{$key}.';';
+ 		    delete($token->[2]->{$key});
+ 		}
+ 	    }
+ 	    $token->[2]->{'style'}=$style.'; font-size: x-large;';
+ 	}
+ 	if ($ENV{'browser.blackwhite'} eq 'on') {
+ 	    delete($token->[2]->{'font'});
+ 	    delete($token->[2]->{'link'});
+ 	    delete($token->[2]->{'alink'});
+ 	    delete($token->[2]->{'vlink'});
+ 	    delete($token->[2]->{'bgcolor'});
+ 	    delete($token->[2]->{'background'});
+ 	}
+ # Overload loads
  	my $onLoad='';
  	foreach my $key (keys(%{$token->[2]})) {
  	    if ($key =~ /^onload$/i) {
- Line 1179  sub start_font {
+ Line 1202  sub start_font {
      my $currentstring = '';
      if ($target eq 'web') {
  	my $face=&Apache::lonxml::get_param('face',$parstack,$safeeval);
- 	if ($face=~/symbol/i) {$Apache::lonxml::prevent_entity_encode++;}
+ 	if ($face=~/symbol/i) {
+ 	    $Apache::lonxml::prevent_entity_encode++;
+ 	} else {
+ 	    if (($ENV{'browser.fontenhance'} eq 'on') ||
+ 		($ENV{'browser.blackwhite'} eq 'on')) { return ''; }
+ 	}
  	$currentstring = $token->[4];
      }  elsif ($target eq 'tex') {
  	my $fontsize=&Apache::lonxml::get_param('TeXsize',$parstack,$safeeval);

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.154
changed lines
	Added in v.1.155