--- loncom/interface/printout.pl	2017/11/12 16:23:03	1.166
+++ loncom/interface/printout.pl	2024/07/11 15:24:01	1.172
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 # CGI-script to run LaTeX, dvips, ps2ps, ps2pdf etc.
 #
-# $Id: printout.pl,v 1.166 2017/11/12 16:23:03 raeburn Exp $
+# $Id: printout.pl,v 1.172 2024/07/11 15:24:01 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -211,6 +211,9 @@ if ($student_names=~/_END_/) {
     @names_pack=split(/_ENDPERSON_/,$student_names);
 }
 if ($backref) {
+    if ($backref =~ m{^(/uploaded/$LONCAPA::match_domain/$LONCAPA::match_courseid/default_\d+.page)}) {
+        $backref = $1;
+    }
     print('<p>'.&mt("[_1]Return[_2] to resource.",
 		    "<a href=\"$backref\"><b>","</b></a>").'</p>');
     print('<p><a href="javascript:gopost(\'/adm/printout\',\''.$backref.'\');">'.
@@ -519,16 +522,51 @@ foreach $texfile (@texfile) {
 
 	      # Use gs to fix the postscript -> level 1.5 
 	      # .. if pdfs were included
+	      #
+	      # pswrite device was removed from ghostscript 9.09 and later,
+	      # (ps2write device is used instead).
+	      # check which device is available, and use as the value
+              # passed via -sDEVICE= arg in gs call to fix the postscript.
+	      #
 
 	      if ($pdfs_converted > 0) {
-		  $comma = "gs -sDEVICE=pswrite -dLanguageLevel=1.5 ";
-		  &busy_wait_command("$comma -o $tempo_file $new_name_file 2>/dev/null 1>/dev/null",
-				     "for $status_statement now validating PS",
-				     \%prog_state, $tempo_file);
-		  
+		  my @possdevices = qw(ps2write pswrite);
+		  my $device;
+		  foreach my $poss (@possdevices) {
+		      if (open(PIPE,"gs -h |grep ' $poss ' 2>&1 |")) {
+		          my $output = <PIPE>;
+		          close(PIPE);
+		          chomp($output);
+		          if ($output =~ /\Q $poss \E/) {
+		              $device = $poss;
+		          }
+		      }
+		      last if ($device ne '');
+		  }
+		  if ($device ne '') {
+		      my ($major,$minor);
+		      if (open(PIPE,"gs -v |grep 'GPL Ghostscript' 2>&1 |")) {
+		          my $info = <PIPE>;
+		          close(PIPE);
+		          chomp($info);
+		          if ($info =~ /Ghostscript\s+(\d+)\.(\d+)/) {
+		              ($major,$minor) = ($1,$2);
+		          }
+		      }
+		      $comma = "gs -sDEVICE=$device -dLanguageLevel=1.5 ";
+		      if (($major > 9) || (($major == 9) && ($minor >= 50))) {
+		          $comma .= '--permit-file-read=* ';
+		      }
+		      &busy_wait_command("$comma -o $tempo_file $new_name_file 2>/dev/null 1>/dev/null",
+				         "for $status_statement now validating PS",
+				         \%prog_state, $tempo_file);
+
 #---
-		  &busy_wait_command("mv $tempo_file $new_name_file",
-				     'File move', \%prog_state, $new_name_file);
+		      if (-e $tempo_file) {
+		          &busy_wait_command("mv $tempo_file $new_name_file",
+				             'File move', \%prog_state, $new_name_file);
+		      }
+		  }
 	      }
 	      if ($laystyle eq 'album' and $numberofcolumns eq '2') {
 		  $comma = "psnup $papera -2 -s1.0 $new_name_file";
@@ -981,7 +1019,6 @@ sub convert_figure {
 	&File::Path::mkpath($path,0,0777);
 	$not_eps =~ s/^\s+//;
 	$not_eps =~ s/\s+$//;
-	$not_eps =~ s/ /\\ /g;
     my $prettyname=$not_eps;
 	if ($advanced_role) {
 	    $prettyname=~s|$perlvar{'lonDocRoot'}/|/|;