loncom/xml/londefdef.pm - diff

Return to londefdef.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.62, 2002/05/22 21:07:45	version 1.64, 2002/05/23 20:19:04
Line 1481 EDITBUTTON	Line 1481 EDITBUTTON
$path = $1.'/';	$path = $1.'/';
}	}
my $newsrc = $src;	my $newsrc = $src;
$newsrc =~ s/(\.gif\|\.jpg\|\.GIF\|\.JPG)$/\.eps/;	$newsrc =~ s/(\.gif\|\.jpg)$/\.eps/i;
$file=~s/(\.gif\|\.jpg\|\.GIF\|\.JPG)$/\.eps/;	$file=~s/(\.gif\|\.jpg)$/\.eps/i;
if (-e $newsrc) {	if (-e $newsrc) {
if ($path) {	if ($path) {
$currentstring .= '\graphicspath{{'.$path.'}}\fbox{\includegraphics'.$width_param.'{'.$file.'}}';	$currentstring .= '\graphicspath{{'.$path.'}}\fbox{\includegraphics'.$width_param.'{'.$file.'}}';
}	}
} else {	} else {
my $temp_file;	my $temp_file;
my $filename = "/home/httpd/prtspool/$ENV{'user.name'}$ENV{'user.domain'}temp$ENV{'user.login.time'}.dat";	my $filename = "/home/httpd/prtspool/$ENV{'user.name'}_$ENV{'user.domain'}_printout.dat";
$temp_file = Apache::File->new('>>'.$filename);	$temp_file = Apache::File->new('>>'.$filename);
print $temp_file "$src\n";	print $temp_file "$src\n";
$currentstring .= '\graphicspath{{/home/httpd/prtspool/}}\fbox{\includegraphics'.$width_param.'{'.$file.'}}';	$currentstring .= '\graphicspath{{/home/httpd/prtspool/}}\fbox{\includegraphics'.$width_param.'{'.$file.'}}';