loncom/interface/printout.pl - diff

Return to printout.pl CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.38, 2003/10/16 15:30:43
+version 1.39, 2003/10/20 17:39:30
  Line 26
  # http://www.lon-capa.org/
  #
+ use lib '/home/httpd/lib/perl';
+ use LONCAPA::loncgi();
  use File::Path;
  use IO::File;
  use Image::Magick;
+ if (! &LONCAPA::loncgi::check_cookie_and_load_env()) {
+     print <<END;
+ Content-type: text/html
+ <html>
+ <head><title>Bad Cookie</title></head>
+ <body>
+ Your cookie information is incorrect.  What\'s up with that?
+ </body>
+ </html>
+ END
+     return;
+ }
   print "Content-type: text/html\n\n";
   print "<body bgcolor=\"#FFFFFF\">\n";
-   my ($texfile,$laystyle,$numberofcolumns,$selectionmade) = split(/&/,$ENV{'QUERY_STRING'});
+ ####  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 $advans_role=0;
    if ($selectionmade>=10000) {$selectionmade=$selectionmade/10000; $advans_role=1;}
    my $figfile = $texfile;