[BACK]Return to printout.pl CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/printout.pl between versions 1.49 and 1.51

version 1.49, 2004/02/17 00:26:20 version 1.51, 2004/02/18 23:33:17
Line 33  use File::Path; Line 33  use File::Path;
 use IO::File;  use IO::File;
 use Image::Magick;  use Image::Magick;
 use Apache::lonhtmlcommon;  use Apache::lonhtmlcommon;
   use Apache::loncommon;
   use Apache::lonlocal;
   
 $|=1;  $|=1;
 my %origENV=%ENV;  my %origENV=%ENV;
Line 49  Your cookie information is incorrect. Line 51  Your cookie information is incorrect.
 END  END
     return;      return;
 }  }
    &Apache::lonlocal::get_language_handle();
  print "Content-type: text/html\n\n";   &Apache::loncommon::content_type(undef,'text/html');
  print "<body bgcolor=\"#FFFFFF\">\n";   my $bodytag=&Apache::loncommon::bodytag('Creating PDF','','');
    print $bodytag;
   
   my $identifier = $ENV{'QUERY_STRING'};    my $identifier = $ENV{'QUERY_STRING'};
   my $texfile = $ENV{'cgi.'.$identifier.'.file'};    my $texfile = $ENV{'cgi.'.$identifier.'.file'};
Line 61  END Line 64  END
   my $tableofcontents = $ENV{'cgi.'.$identifier.'tableofcontents'};    my $tableofcontents = $ENV{'cgi.'.$identifier.'tableofcontents'};
   my $tableofindex = $ENV{'cgi.'.$identifier.'tableofindex'};    my $tableofindex = $ENV{'cgi.'.$identifier.'tableofindex'};
   my $advans_role = $ENV{'cgi.'.$identifier.'role'};    my $advans_role = $ENV{'cgi.'.$identifier.'role'};
   my $back_ref = $ENV{'cgi.'.$identifier.'backref'};  
   my $number_of_files = $ENV{'cgi.'.$identifier.'numberoffiles'}+1;    my $number_of_files = $ENV{'cgi.'.$identifier.'numberoffiles'}+1;
   my $student_names = $ENV{'cgi.'.$identifier.'studentnames'};    my $student_names = $ENV{'cgi.'.$identifier.'studentnames'};
   my $backref = $ENV{'cgi.'.$identifier.'backref'};    my $backref = $ENV{'cgi.'.$identifier.'backref'};
Removed from v.1.49  
changed lines
  Added in v.1.51

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>