[LON-CAPA-cvs] cvs: loncom /xml londefdef.pm

[sakharuk]

sakharuk		Thu May  9 11:44:43 2002 EDT

  Modified files:              
    /loncom/xml	londefdef.pm 
  Log:
  produces eps dynamically
  
  
Index: loncom/xml/londefdef.pm
diff -u loncom/xml/londefdef.pm:1.56 loncom/xml/londefdef.pm:1.57
--- loncom/xml/londefdef.pm:1.56	Fri May  3 18:32:15 2002
+++ loncom/xml/londefdef.pm	Thu May  9 11:44:43 2002
@@ -2,7 +2,7 @@
 # The LearningOnline Network with CAPA
 # Tags Default Definition Module 
 #
-# $Id: londefdef.pm,v 1.56 2002/05/03 22:32:15 albertel Exp $
+# $Id: londefdef.pm,v 1.57 2002/05/09 15:44:43 sakharuk Exp $
 # 
 #
 # Copyright Michigan State University Board of Trustees
@@ -48,7 +48,7 @@
 use Apache::lonnet;
 use strict;
 use Apache::lonxml;
-
+use Apache::File();
 
 BEGIN {
 
@@ -1394,16 +1394,21 @@
 	      my $path;	
               if ($src =~ m!(.*)/([^/]*)$!) {
 		  $file = $2;
-		  $path = $1; 
-	      } else {
-		  $path = $Apache::lonxml::pwd[-1];
-		  $file = $src;
+		  $path = $1.'/'; 
 	      }
-	      $file=~s/(\.gif|\.jpg)$/\.eps/;
-	      if ($path) {
-		$currentstring .= '\graphicspath{{'.$path.'/}}\fbox{\includegraphics{'.$file.'}}';
+	      my $newsrc = $src;
+	      $newsrc =~ s/(\.gif|\.jpg)$/\.eps/;
+		  $file=~s/(\.gif|\.jpg)$/\.eps/;
+	      if (-e $newsrc) {
+		  if ($path) {
+		      $currentstring .= '\graphicspath{{'.$path.'}}\fbox{\includegraphics{'.$file.'}}';
+		  }
 	      } 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{'.$file.'}}';
 	      }
 	    }
 	    return $currentstring;