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

sakharuk lon-capa-cvs@mail.lon-capa.org
Mon, 20 Oct 2003 18:34:20 -0000


sakharuk		Mon Oct 20 14:34:20 2003 EDT

  Modified files:              
    /loncom/interface	printout.pl 
  Log:
  Some cleanup has been done to use cookie mechanism.
  
  
Index: loncom/interface/printout.pl
diff -u loncom/interface/printout.pl:1.39 loncom/interface/printout.pl:1.40
--- loncom/interface/printout.pl:1.39	Mon Oct 20 13:39:30 2003
+++ loncom/interface/printout.pl	Mon Oct 20 14:34:20 2003
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 # CGI-script to run LaTeX, dvips, ps2ps, ps2pdf etc.
 #
-# $Id: printout.pl,v 1.39 2003/10/20 17:39:30 sakharuk Exp $
+# $Id: printout.pl,v 1.40 2003/10/20 18:34:20 sakharuk Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -39,7 +39,7 @@
 <html>
 <head><title>Bad Cookie</title></head>
 <body>
-Your cookie information is incorrect.  What\'s up with that?
+Your cookie information is incorrect.
 </body>
 </html>
 END
@@ -48,16 +48,16 @@
 
  print "Content-type: text/html\n\n";
  print "<body bgcolor=\"#FFFFFF\">\n";
-####  my ($texfile,$laystyle,$numberofcolumns,$selectionmade) = split(/&/,$ENV{'QUERY_STRING'});
 
-my $identifier = $ENV{'QUERY_STRING'};
-my $texfile = $ENV{$identifier.'.file'};
-my $laystyle = $ENV{$identifier.'.layout'};
-my $numberofcolumns = $ENV{$identifier.'.numcol'};
-my $selectionmade = $ENV{$identifier.'.selection'};
+  my $identifier = $ENV{'QUERY_STRING'};
+  my $texfile = $ENV{'cgi.'.$identifier.'.file'};
+  my $laystyle = $ENV{'cgi.'.$identifier.'.layout'};
+  my $numberofcolumns = $ENV{'cgi.'.$identifier.'.numcol'};
+  my $selectionmade = $ENV{'cgi.'.$identifier.'.selection'};
+  my $tableofcontents = $ENV{'cgi.'.$identifier.'tableofcontents'};
+  my $tableofindex = $ENV{'cgi.'.$identifier.'tableofindex'};
+  my $advans_role = $ENV{'cgi.'.$identifier.'role'};
 
-  my $advans_role=0;
-  if ($selectionmade>=10000) {$selectionmade=$selectionmade/10000; $advans_role=1;}
   my $figfile = $texfile;
   $figfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.dat/;
   my $duefile = $texfile;
@@ -105,10 +105,12 @@
       my $path_file = $1.'/';
       chdir $path_file;
       system("latex $name_file 1>/dev/null 2>/dev/null");
-      if ($selectionmade>=10) {system("latex $name_file 1>/dev/null 2>/dev/null");} #to create table of contents
+      if ($tableofcontents eq 'yes') {
+	  system("latex $name_file 1>/dev/null 2>/dev/null");
+      } #to create table of contents
       my $idxname=$name_file;
       $idxname=~s/\.tex$/\.idx/;
-      if ($selectionmade>=100) {
+      if ($tableofindex eq 'yes') {
 	  system("makeindex $idxname");
 	  system("latex $name_file 1>/dev/null 2>/dev/null");
       } #to create index