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

sakharuk lon-capa-cvs@mail.lon-capa.org
Wed, 18 Sep 2002 18:42:57 -0000


sakharuk		Wed Sep 18 14:42:57 2002 EDT

  Modified files:              
    /loncom/interface	printout.pl 
  Log:
  Small changr - output looks better on the paper.
  
  
Index: loncom/interface/printout.pl
diff -u loncom/interface/printout.pl:1.20 loncom/interface/printout.pl:1.21
--- loncom/interface/printout.pl:1.20	Fri Aug 23 16:02:22 2002
+++ loncom/interface/printout.pl	Wed Sep 18 14:42:57 2002
@@ -3,7 +3,7 @@
 use Image::Magick;
  print "Content-type: text/html\n\n";
  print "<body bgcolor=\"#FFFFFF\">\n";
-  my ($texfile,$laystyle,$numberofcolumns) = split(/&/,$ENV{'QUERY_STRING'});
+  my ($texfile,$laystyle,$numberofcolumns,$selectionmade) = split(/&/,$ENV{'QUERY_STRING'});
   my $figfile = $texfile;
   $figfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.dat/;
   my $duefile = $texfile;
@@ -89,7 +89,7 @@
 	      system("$comma $tempo_file"); 
 	      system("ps2pdf $tempo_file $name_file");
 	  } elsif ($laystyle eq 'book' and $numberofcolumns eq '2') {
-	      $comma = 'pstops -pletter "2:0+1(0.5w,0)"';
+	      $comma = 'pstops -pletter "2:0+1(0.48w,0)"';
 	      system("$comma $new_name_file $tempo_file");
 	      system("ps2pdf $tempo_file $name_file");
 	  } else {
@@ -104,7 +104,7 @@
 	  $texdvi =~ s/\.tex/\.dvi/;
 	  $texps =~ s/\.tex/\.ps/;
 	  my @garb = ($texlog,$texaux,$texdvi,$texps);
-	  #unlink @garb;
+	  unlink @garb;
 	  unlink $duefile;
 	  print "<a href=\"/prtspool/$name_file\">Your PDF document</a>";
 	  print "\n";