[BACK]Return to londefdef.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / xml

Diff for /loncom/xml/londefdef.pm between versions 1.115 and 1.116

version 1.115, 2003/02/17 17:34:16 version 1.116, 2003/02/18 21:14:16
Line 50  use Apache::lonxml; Line 50  use Apache::lonxml;
 use Apache::File();  use Apache::File();
 use Image::Magick;  use Image::Magick;
 use Apache::lonmenu;  use Apache::lonmenu;
   #use Apache::lonmeta;
   
 BEGIN {  BEGIN {
   
Line 1598  sub start_table { Line 1599  sub start_table {
     my $scaling = .3;      my $scaling = .3;
   
     if ($target eq 'web') {      if ($target eq 'web') {
               $currentstring = $token->[4];                if ($ENV{'browser.imagesuppress'} ne 'on') {
                    $currentstring = $token->[4];
         } else {
     my $alttag=$token->[2]->{'alt'};
                     unless ($alttag) {
                        $alttag=&Apache::lonmeta::alttag($token->[2]->{'src'});
                     }
                     $currentstring='[IMAGE: '.$alttag.']';
         }
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
       &image_replication($src);        &image_replication($src);
       $src=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$src);        $src=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$src);
Line 1691  sub start_table { Line 1700  sub start_table {
                                         $token->[2]->{'archive'};                                          $token->[2]->{'archive'};
             my $currentstring = '';              my $currentstring = '';
             if ($target eq 'web') {              if ($target eq 'web') {
               $currentstring = $token->[4];                if ($ENV{'browser.appletsuppress'} ne 'on') {
                    $currentstring = $token->[4];
         } else {
     my $alttag=$token->[2]->{'alt'};
                     unless ($alttag) {
                        $alttag=&Apache::lonmeta::alttag($token->[2]->{'code'});
                     }
                     $currentstring='[APPLET: '.$alttag.']';
         }
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
               $currentstring = " \\begin{figure} ";                $currentstring = " \\begin{figure} ";
     }       } 
Line 1716  sub start_embed { Line 1733  sub start_embed {
  $token->[2]->{'src'};   $token->[2]->{'src'};
     my $currentstring = '';      my $currentstring = '';
     if ($target eq 'web') {      if ($target eq 'web') {
  $currentstring = $token->[4];         if ($ENV{'browser.embedsuppress'} ne 'on') {
             $currentstring = $token->[4];
          } else {
     my $alttag=$token->[2]->{'alt'};
             unless ($alttag) {
                $alttag=&Apache::lonmeta::alttag($token->[2]->{'src'});
             }
             $currentstring='[EMBED: '.$alttag.']';
         }
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
  $currentstring = " \\begin{figure} ";     $currentstring = " \\begin{figure} ";  
     }       } 
Removed from v.1.115  
changed lines
  Added in v.1.116

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