--- loncom/interface/printout.pl	2009/02/19 10:19:49	1.138
+++ loncom/interface/printout.pl	2009/03/24 10:15:15	1.139
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 # CGI-script to run LaTeX, dvips, ps2ps, ps2pdf etc.
 #
-# $Id: printout.pl,v 1.138 2009/02/19 10:19:49 biermanm Exp $
+# $Id: printout.pl,v 1.139 2009/03/24 10:15:15 foxr Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -403,7 +403,10 @@ foreach $texfile (@texfile) {
 	  my $papera=$paper;
 	  if ($papera eq 'letter') {$papera='';}
 	  if ($papera ne '') {$papera='-t'.$papera;}
-	  my $comma = "dvips $papera -Ppdf -G0 -o $new_name_file";
+	  my $extra_ps_header = $perlvar{'lonLib'} .'/includepsheader.ps';
+	  &Apache::lonnet::logthis("Extra ps header: $extra_ps_header");
+	  my $comma = "dvips $papera -h $extra_ps_header -Ppdf -G0 -o  $new_name_file";
+	  &Apache::lonnet::logthis("dvips command: $comma");
 	  &busy_wait_command("$comma $name_file 1>/dev/null 2>/dev/null",
 			     "for $status_statement now Converting to PS",
 			     \%prog_state,$new_name_file);