--- loncom/interface/printout.pl	2002/07/30 14:11:17	1.10
+++ loncom/interface/printout.pl	2002/08/01 15:41:41	1.12
@@ -19,9 +19,9 @@ if (-e $figfile) {
     foreach $not_eps (@content_of_file) {
 	if ($not_eps ne '') {
 	    my $eps_f = $not_eps;
-	    $eps_f =~ s/\..*$/\.eps/;
+	    $eps_f =~ s/\.[^.]*$/\.eps/i;
 	    $_ = $eps_f;
-	    m/\/(\w+\.eps)/;
+            m/\/([^\/]+)$/;
 	    $eps_f = '/home/httpd/prtspool/'.$1;
 	    my $image = Image::Magick->new;
 	    $not_eps =~ s/^\s+//;