loncom/xml/londefdef.pm - diff

Return to londefdef.pm CVS log

Up to [LON-CAPA] / loncom / xml

-version 1.92, 2002/10/08 20:09:17
+version 1.93, 2002/10/08 20:18:36
  Line 1552  sub start_table {
  	    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) {