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

Diff for /loncom/xml/londefdef.pm between versions 1.56 and 1.58

version 1.56, 2002/05/03 22:32:15 version 1.58, 2002/05/09 18:55:47
Line 48  package Apache::londefdef; Line 48  package Apache::londefdef;
 use Apache::lonnet;  use Apache::lonnet;
 use strict;  use strict;
 use Apache::lonxml;  use Apache::lonxml;
   use Apache::File();
   
 BEGIN {  BEGIN {
   
Line 1384  EDITBUTTON Line 1384  EDITBUTTON
             $Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=              $Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=
                                         $token->[2]->{'src'};                                          $token->[2]->{'src'};
             my $currentstring = '';              my $currentstring = '';
       my $width_param = '';
   
     if ($target eq 'web') {      if ($target eq 'web') {
               $currentstring = $token->[4];                     $currentstring = $token->[4];     
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
         my $TeXwidth = &Apache::lonxml::get_param('TeXwidth',$parstack,$safeeval); 
                 my $TeXheight = &Apache::lonxml::get_param('TeXheight',$parstack,$safeeval); 
         my $width = &Apache::lonxml::get_param('width',$parstack,$safeeval);
         if ($TeXwidth ne '') { 
     $width_param = $TeXwidth; 
         } elsif ($TeXheight ne '') { 
     $width_param = $TeXheight; 
         } else {
     if ($width ne '') {
         $width_param = $width*.3;
         if ($width_param <= 900) {
     $width_param = '[width='.$width_param.'mm]';
         } else {
     $width_param = '[width= 9.0 cm]';
         }
     }
         }
       my $src = &Apache::lonxml::get_param('src',$parstack,$safeeval);        my $src = &Apache::lonxml::get_param('src',$parstack,$safeeval);
       $src=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$src);        $src=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$src);
       my $file;        my $file;
       my $path;        my $path;
               if ($src =~ m!(.*)/([^/]*)$!) {                if ($src =~ m!(.*)/([^/]*)$!) {
   $file = $2;    $file = $2;
   $path = $1;     $path = $1.'/'; 
       } else {  
   $path = $Apache::lonxml::pwd[-1];  
   $file = $src;  
       }        }
       $file=~s/(\.gif|\.jpg)$/\.eps/;        my $newsrc = $src;
       if ($path) {        $newsrc =~ s/(\.gif|\.jpg)$/\.eps/;
  $currentstring .= '\graphicspath{{'.$path.'/}}\fbox{\includegraphics{'.$file.'}}';    $file=~s/(\.gif|\.jpg)$/\.eps/;
         if (-e $newsrc) {
     if ($path) {
         $currentstring .= '\graphicspath{{'.$path.'}}\fbox{\includegraphics'.$width_param.'{'.$file.'}}';
     }
       } else {        } else {
  $currentstring .= 'See the image at \tt{'.$src.'}';    my $temp_file;
     my $filename = "/home/httpd/prtspool/$ENV{'user.name'}$ENV{'user.domain'}temp$ENV{'user.login.time'}.dat";
     $temp_file = Apache::File->new('>>'.$filename); 
     print $temp_file "$src\n";
     $currentstring .= '\graphicspath{{/home/httpd/prtspool/}}\fbox{\includegraphics'.$width_param.'{'.$file.'}}';
       }        }
     }      }
     return $currentstring;      return $currentstring;
Removed from v.1.56  
changed lines
  Added in v.1.58

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