--- loncom/xml/londefdef.pm 2002/05/22 21:07:45 1.62 +++ loncom/xml/londefdef.pm 2002/05/23 20:19:04 1.64 @@ -2,7 +2,7 @@ # The LearningOnline Network with CAPA # Tags Default Definition Module # -# $Id: londefdef.pm,v 1.62 2002/05/22 21:07:45 sakharuk Exp $ +# $Id: londefdef.pm,v 1.64 2002/05/23 20:19:04 sakharuk Exp $ # # # Copyright Michigan State University Board of Trustees @@ -1481,15 +1481,15 @@ EDITBUTTON $path = $1.'/'; } my $newsrc = $src; - $newsrc =~ s/(\.gif|\.jpg|\.GIF|\.JPG)$/\.eps/; - $file=~s/(\.gif|\.jpg|\.GIF|\.JPG)$/\.eps/; + $newsrc =~ s/(\.gif|\.jpg)$/\.eps/i; + $file=~s/(\.gif|\.jpg)$/\.eps/i; if (-e $newsrc) { if ($path) { $currentstring .= '\graphicspath{{'.$path.'}}\fbox{\includegraphics'.$width_param.'{'.$file.'}}'; } } else { 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); print $temp_file "$src\n"; $currentstring .= '\graphicspath{{/home/httpd/prtspool/}}\fbox{\includegraphics'.$width_param.'{'.$file.'}}';