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

[sakharuk]

sakharuk		Tue Oct  8 16:18:36 2002 EDT

  Modified files:              
    /loncom/xml	londefdef.pm 
  Log:
  Added replication of eps and ps in <img> tag.
  
  
Index: loncom/xml/londefdef.pm
diff -u loncom/xml/londefdef.pm:1.92 loncom/xml/londefdef.pm:1.93
--- loncom/xml/londefdef.pm:1.92	Tue Oct  8 16:09:17 2002
+++ loncom/xml/londefdef.pm	Tue Oct  8 16:18:36 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Tags Default Definition Module 
 #
-# $Id: londefdef.pm,v 1.92 2002/10/08 20:09:17 sakharuk Exp $
+# $Id: londefdef.pm,v 1.93 2002/10/08 20:18:36 sakharuk Exp $
 # 
 #
 # Copyright Michigan State University Board of Trustees
@@ -1552,7 +1552,18 @@
 	    if ($target eq 'web') {
               $currentstring = $token->[4];     
 	    } elsif ($target eq 'tex') {
-	      my $src = &Apache::lonxml::get_param('src',$parstack,$safeeval);
+		my $src = &Apache::lonxml::get_param('src',$parstack,$safeeval);
+		if (not -e '/home/httpd/html'.$src) {
+		    #replicates image itself
+		    &Apache::lonnet::repcopy('/home/httpd/html'.$src);
+		    #replicates eps or ps 
+		    my $newsrc = $src;
+		    $newsrc =~ s/(.gif|.jpg)$/.eps/;
+		    if (not-e $newsrc && &Apache::lonnet::repcopy('/home/httpd/html'.$newsrc) ne 'OK') {
+			$newsrc =~ s/\.ps$/\.eps/;
+			&Apache::lonnet::repcopy('/home/httpd/html'.$newsrc);
+		    }
+		}
 	      $src=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$src);
               #if original gif/jpg file exist do following:
               if (-e $src) {