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

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

version 1.116, 2003/02/18 21:14:16 version 1.117, 2003/02/18 22:19:30
Line 1602  sub start_table { Line 1602  sub start_table {
               if ($ENV{'browser.imagesuppress'} ne 'on') {                if ($ENV{'browser.imagesuppress'} ne 'on') {
                  $currentstring = $token->[4];                   $currentstring = $token->[4];
       } else {        } else {
   my $alttag=$token->[2]->{'alt'};    my $alttag= &Apache::lonxml::get_param
                                  ('alt',$parstack,$safeeval,undef,1);
                   unless ($alttag) {                    unless ($alttag) {
                      $alttag=&Apache::lonmeta::alttag($token->[2]->{'src'});      $alttag=&Apache::lonmeta::alttag
                                      ($Apache::lonxml::pwd[-1],$src);
                   }                    }
                   $currentstring='[IMAGE: '.$alttag.']';                    $currentstring='[IMAGE: '.$alttag.']';
       }        }
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
       &image_replication($src);        $src=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$src);
       $src=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$src);       &image_replication($src);
   
               #if original gif/jpg/png file exist do following:                #if original gif/jpg/png file exist do following:
               if (-e $src) {                          if (-e $src) {          
                   #defines the default size of image                    #defines the default size of image
Line 1705  sub start_table { Line 1708  sub start_table {
       } else {        } else {
   my $alttag=$token->[2]->{'alt'};    my $alttag=$token->[2]->{'alt'};
                   unless ($alttag) {                    unless ($alttag) {
                      $alttag=&Apache::lonmeta::alttag($token->[2]->{'code'});                       $alttag=&Apache::lonmeta::alttag($ENV{'REQUEST_URI'},
                                                         $token->[2]->{'code'});
                   }                    }
                   $currentstring='[APPLET: '.$alttag.']';                    $currentstring='[APPLET: '.$alttag.']';
       }        }
Line 1738  sub start_embed { Line 1742  sub start_embed {
        } else {         } else {
   my $alttag=$token->[2]->{'alt'};    my $alttag=$token->[2]->{'alt'};
           unless ($alttag) {            unless ($alttag) {
              $alttag=&Apache::lonmeta::alttag($token->[2]->{'src'});               $alttag=&Apache::lonmeta::alttag($ENV{'REQUEST_URI'},
                                                 $token->[2]->{'src'});
           }            }
           $currentstring='[EMBED: '.$alttag.']';            $currentstring='[EMBED: '.$alttag.']';
       }        }
Removed from v.1.116  
changed lines
  Added in v.1.117

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