[LON-CAPA-cvs] cvs: loncom /interface printout.pl

[foxr]

foxr		Tue Mar 24 10:15:15 2009 EDT

  Modified files:              
    /loncom/interface	printout.pl 
  Log:
  Add code to include the header that supports including full postscript jobs.
  
  
  
Index: loncom/interface/printout.pl
diff -u loncom/interface/printout.pl:1.138 loncom/interface/printout.pl:1.139
--- loncom/interface/printout.pl:1.138	Thu Feb 19 10:19:49 2009
+++ loncom/interface/printout.pl	Tue Mar 24 10:15:15 2009
@@ -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 @@
 	  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);