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

Diff for /loncom/interface/printout.pl between versions 1.26 and 1.27

version 1.26, 2003/06/04 23:38:14 version 1.27, 2003/06/06 02:24:49
Line 2 Line 2
 use IO::File;  use IO::File;
 use Image::Magick;  use Image::Magick;
  print "Content-type: text/html\n\n";   print "Content-type: text/html\n\n";
 print (<<ENDSCRIPT);   print "<body bgcolor=\"#FFFFFF\">\n";
     <script type="text/javascript">  
 function LONCAPAreg() {  
    swmenu=window.open('',"LCmenumsul1","",false);swmenu.windowloaded(self.name);  
 }   
   
 function LONCAPAstale() {  
    swmenu=window.open('',"LCmenumsul1","",false);swmenu.windowunloaded(self.name);  
 }  
 </script>  
 ENDSCRIPT  
  print "<body bgcolor='#FFFFFF' onLoad='LONCAPAreg();' onUnload='LONCAPAstale()'>\n";  
   my ($texfile,$laystyle,$numberofcolumns,$selectionmade) = split(/&/,$ENV{'QUERY_STRING'});    my ($texfile,$laystyle,$numberofcolumns,$selectionmade) = split(/&/,$ENV{'QUERY_STRING'});
   my $figfile = $texfile;    my $figfile = $texfile;
   $figfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.dat/;    $figfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.dat/;
Line 96  ENDSCRIPT Line 85  ENDSCRIPT
       my $comma = "dvips -Ppdf -G0 -o $new_name_file";        my $comma = "dvips -Ppdf -G0 -o $new_name_file";
       system("$comma $name_file 1>/dev/null 2>/dev/null");        system("$comma $name_file 1>/dev/null 2>/dev/null");
       if (-e $new_name_file) {        if (-e $new_name_file) {
   print "<h1>Successfully created PDF output file (click on link below)</h1>\n";    print "<h1><h1>Successfully created PDF output file (see link below)</h1>\n";
   $new_name_file =~ m/^(.*)\./;    $new_name_file =~ m/^(.*)\./;
   my $tempo_file = $1.'temporar.ps';    my $tempo_file = $1.'temporar.ps';
   my $name_file = $1.'.pdf';    my $name_file = $1.'.pdf';
Removed from v.1.26  
changed lines
  Added in v.1.27

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