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

Diff for /loncom/xml/londefdef.pm between versions 1.79 and 1.80

version 1.79, 2002/07/30 14:10:51 version 1.80, 2002/07/31 14:55:56
Line 1526  EDITBUTTON Line 1526  EDITBUTTON
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
       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 $image = Image::Magick->new;                if (-e $src) {          #new one
               my $current_figure = $image->Read($src);    my $image = Image::Magick->new;
               $width_param = $image->Get('width') * $scaling;;    my $current_figure = $image->Read($src);
       $height_param = $image->Get('height') * $scaling;;    $width_param = $image->Get('width') * $scaling;;
       undef $image;    $height_param = $image->Get('height') * $scaling;;
       my $epssrc = $src;    undef $image;
       $epssrc =~ s/(\.gif|\.jpg)$/\.eps/i;    my $epssrc = $src;
       if (not -e $epssrc) {    $epssrc =~ s/(\.gif|\.jpg)$/\.eps/i;
   my $localfile = $epssrc;    if (not -e $epssrc) {
   $localfile =~ s/.*(\/res)/$1/;        my $localfile = $epssrc;
         $localfile =~ s/.*(\/res)/$1/;
         my $file;
         my $path;
         if ($localfile =~ m!(.*)/([^/]*)$!) {
     $file = $2;
     $path = $1.'/'; 
         }
         my $signal_eps = 0;
         my @content_directory = &Apache::lonnet::dirlist($path);
         for (my $iy=0;$iy<=$#content_directory;$iy++) {
     my @tempo_array = split(/&/,$content_directory[$iy]);
     $content_directory[$iy] = $tempo_array[0];
     if ($file eq $tempo_array[0]) {
         $signal_eps = 1;
         last;
     }
         }
         if ($signal_eps) {
     my $eps_file = &Apache::lonnet::getfile($localfile);
         } else {
     $localfile = $src;
     $localfile =~ s/.*(\/res)/$1/;
     my $as = &Apache::lonnet::getfile($src);      
         }
     }
   my $file;    my $file;
   my $path;    my $path;
   if ($localfile =~ m!(.*)/([^/]*)$!) {    if ($src =~ m!(.*)/([^/]*)$!) {
       $file = $2;        $file = $2; 
       $path = $1.'/';         $path = $1.' /'; 
   }    } 
   my $signal_eps = 0;    my $newsrc = $src;
   my @content_directory = &Apache::lonnet::dirlist($path);    $newsrc =~ s/(\.gif|\.jpg)$/\.eps/i;
   for (my $iy=0;$iy<=$#content_directory;$iy++) {    $file=~s/(\.gif|\.jpg)$/\.eps/i;
       my @tempo_array = split(/&/,$content_directory[$iy]);    #do we have any specified size of the picture?
       $content_directory[$iy] = $tempo_array[0];    my $TeXwidth = &Apache::lonxml::get_param('TeXwidth',$parstack,$safeeval); 
       if ($file eq $tempo_array[0]) {    my $TeXheight = &Apache::lonxml::get_param('TeXheight',$parstack,$safeeval); 
   $signal_eps = 1;    my $width = &Apache::lonxml::get_param('width',$parstack,$safeeval);
   last;    if ($TeXwidth ne '') { 
       }        $width_param = $TeXwidth; 
     } elsif ($TeXheight ne '') { 
         $width_param = $TeXheight/$height_param*$width_param;
     } elsif ($width ne '') {
         $width_param = $width*$scaling;      
   }    }
   if ($signal_eps) {    #where can we find the picture?
       my $eps_file = &Apache::lonnet::getfile($localfile);    if (-e $newsrc) {
         if ($path) {
     $currentstring .= '\noindent\graphicspath{{'.$path.'}}\fbox{\includegraphics[width='.$width_param.' mm]{'.$file.'}} ';
         }
   } else {    } else {
       $localfile = $src;        my $temp_file;
       $localfile =~ s/.*(\/res)/$1/;        my $filename = "/home/httpd/prtspool/$ENV{'user.name'}_$ENV{'user.domain'}_printout.dat";
       my $as = &Apache::lonnet::getfile($src);              $temp_file = Apache::File->new('>>'.$filename); 
   }        print $temp_file "$src\n";
       }        $currentstring .= '\graphicspath{{/home/httpd/prtspool/}}\fbox{\includegraphics[width='.$width_param.' mm]{'.$file.'}} ';
       my $file;  
       my $path;  
               if ($src =~ m!(.*)/([^/]*)$!) {  
   $file = $2;  
   $path = $1.'/';   
       }  
       my $newsrc = $src;  
       $newsrc =~ s/(\.gif|\.jpg)$/\.eps/i;  
       $file=~s/(\.gif|\.jpg)$/\.eps/i;  
               #do we have any specified size of the picture?  
       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/$height_param*$width_param;  
       } elsif ($width ne '') {  
   $width_param = $width*$scaling;        
       }  
               #where can we find the picture?  
       if (-e $newsrc) {  
   if ($path) {  
       $currentstring .= '\noindent\graphicspath{{'.$path.'}}\fbox{\includegraphics[width='.$width_param.' mm]{'.$file.'}} ';  
   }    }
       } else {        } else {
   my $temp_file;    my $alt = &Apache::lonxml::get_param('alt',$parstack,$safeeval);
   my $filename = "/home/httpd/prtspool/$ENV{'user.name'}_$ENV{'user.domain'}_printout.dat";                    if ($alt) {
   $temp_file = Apache::File->new('>>'.$filename);         $currentstring .= ' '.$alt.' ';
   print $temp_file "$src\n";    } else {
   $currentstring .= '\graphicspath{{/home/httpd/prtspool/}}\fbox{\includegraphics[width='.$width_param.' mm]{'.$file.'}} ';                        $currentstring .= ' THE ORIGINAL PROBLEM CONTAINS EMPTY IMG TAG WITHOUT IMAGE ';
     }
       }        }
     }      }
     return $currentstring;      return $currentstring;
Removed from v.1.79  
changed lines
  Added in v.1.80

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