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

Diff for /loncom/interface/printout.pl between versions 1.63 and 1.71

version 1.63, 2004/08/05 18:18:15 version 1.71, 2004/12/20 21:15:20
Line 32  use File::Path; Line 32  use File::Path;
 use IO::File;  use IO::File;
 use Image::Magick;  use Image::Magick;
 use Apache::lonhtmlcommon;  use Apache::lonhtmlcommon;
   use Apache::lonnet();
 use Apache::loncommon;  use Apache::loncommon;
 use Apache::lonlocal;  use Apache::lonlocal;
   
Line 67  END Line 68  END
   my $advans_role = $ENV{'cgi.'.$identifier.'role'};    my $advans_role = $ENV{'cgi.'.$identifier.'role'};
   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 = &Apache::lonnet::unescape($ENV{'cgi.'.$identifier.'backref'});
   
   
   my $adv = $ENV{'request.role.adv'};    my $adv = $ENV{'request.role.adv'};
Line 86  END Line 87  END
   #do we have figures?    #do we have figures?
   if (-e $figfile) {    if (-e $figfile) {
       my %done_conversion;        my %done_conversion;
       my $temporary_file=IO::File->new($figfile) || die "Couldn't open file for reading: $!\n";        my $temporary_file=IO::File->new($figfile) || die "Couldn't open fig file $figfile for reading: $!\n";
       my @content_of_file = <$temporary_file>;        my @content_of_file = <$temporary_file>;
       close $temporary_file;          close $temporary_file;  
       my $noteps;        my $noteps;
Line 209  foreach $texfile (@texfile) { Line 210  foreach $texfile (@texfile) {
      \%prog_state,$dvi_file);       \%prog_state,$dvi_file);
       } #to create index        } #to create index
       #Do we have a latex error in the log file?        #Do we have a latex error in the log file?
       my $logfilename = $texfile;        my $logfilename = $texfile; $logfilename =~ s/\.tex$/\.log/;
       $logfilename =~ s/\.tex$/\.log/;        my $temporary_file=IO::File->new($logfilename) || die "Couldn't open log file $logfilename for reading: $!\n";
       my $temporary_file=IO::File->new($logfilename) || die "Couldn't open file for reading: $!\n";  
       my @content_of_file = <$temporary_file>;        my @content_of_file = <$temporary_file>;
       close $temporary_file;         close $temporary_file; 
       my $body_log_file = join(' ',@content_of_file);        my $body_log_file = join(' ',@content_of_file);
Line 227  foreach $texfile (@texfile) { Line 227  foreach $texfile (@texfile) {
   if ($whereitbegins!=-1 and $whereitends!=-1) {    if ($whereitbegins!=-1 and $whereitends!=-1) {
        print "With very high probability this error occured in ".substr($body_log_file,$whereitbegins+26,$whereitends-$whereitbegins-26)."<br /><br />";         print "With very high probability this error occured in ".substr($body_log_file,$whereitbegins+26,$whereitends-$whereitbegins-26)."<br /><br />";
   }    }
   print "Here are the error messages in the LaTeX log file</br><br />";    print "Here are the error messages in the LaTeX log file</br><br /><pre>";
   my $sygnal = 0;    my $sygnal = 0;
   for (my $i=0;$i<=$#content_of_file;$i++) {    for (my $i=0;$i<=$#content_of_file;$i++) {
       if ($content_of_file[$i]=~m/^Runaway argument?/ or $content_of_file[$i]=~m/^!/) {        if ($content_of_file[$i]=~m/^Runaway argument?/ or $content_of_file[$i]=~m/^!/) {
Line 237  foreach $texfile (@texfile) { Line 237  foreach $texfile (@texfile) {
   $sygnal = 0;    $sygnal = 0;
       }         } 
       if ($sygnal) {        if ($sygnal) {
   print "$content_of_file[$i]<br />";    print "$content_of_file[$i]";
       }          }  
   }    }
     print "</pre>\n";
           if ($advans_role) {              if ($advans_role) {  
               print "<b><big>The link to ";                print "<b><big>The link to ";
               $logfilename=~s/\/home\/httpd//;                $logfilename=~s/\/home\/httpd//;
       print "<a href=\"$logfilename\">Your log file </a></big></b>";        print "<a href=\"$logfilename\">Your log file </a></big></b>";
       print "\n";        print "\n";
               #link tooriginal LaTeX file (included according Michael Hamlin desire)                #link tooriginal LaTeX file (included according Michael Hamlin desire)
       my $tex_temporary_file=IO::File->new($texfile) || die "Couldn't open file for reading: $!\n";        my $tex_temporary_file=IO::File->new($texfile) || die "Couldn't open tex file $texfile for reading: $!\n";
       my @tex_content_of_file = <$tex_temporary_file>;        my @tex_content_of_file = <$tex_temporary_file>;
       close $tex_temporary_file;         close $tex_temporary_file; 
       my $body_tex_file = join(' ',@tex_content_of_file);        my $body_tex_file = join(' ',@tex_content_of_file);
Line 274  foreach $texfile (@texfile) { Line 275  foreach $texfile (@texfile) {
   $name_file =~ s/\.tex/\.dvi/;    $name_file =~ s/\.tex/\.dvi/;
   my $new_name_file = $name_file;    my $new_name_file = $name_file;
   $new_name_file =~ s/\.dvi/\.ps/;    $new_name_file =~ s/\.dvi/\.ps/;
   my @papers=('letter','legal','tabloid','executive','','a3','a4','a5','');    my $papera=$paper;
   my $papera=$papers[$paper];  
   if ($papera eq 'letter') {$papera='';}    if ($papera eq 'letter') {$papera='';}
   if ($papera ne '') {$papera='-t'.$papera;}    if ($papera ne '') {$papera='-t'.$papera;}
   my $comma = "dvips $papera -Ppdf -G0 -o $new_name_file";    my $comma = "dvips $papera -Ppdf -G0 -o $new_name_file";
Line 293  foreach $texfile (@texfile) { Line 293  foreach $texfile (@texfile) {
      "for $status_statement now Modifying PS layout",       "for $status_statement now Modifying PS layout",
      \%prog_state,$tempo_file);        \%prog_state,$tempo_file); 
       } elsif ($laystyle eq 'book' and $numberofcolumns eq '2') {        } elsif ($laystyle eq 'book' and $numberofcolumns eq '2') {
   my @papers=('letter','legal','tabloid','executive','','a3','a4','a5','');    my $papera=$paper;
                   my $papera=$papers[$paper];                    if ($papera eq 'letter') {$papera='';}
   if ($papera ne '') {$papera='-p'.$papera;}    if ($papera ne '') {$papera='-p'.$papera;}
   $comma = 'pstops '.$papera.' "2:0+1(0.48w,0)"';    $comma = 'pstops '.$papera.' "2:0+1(0.48w,0)"';
   &busy_wait_command("$comma $new_name_file $tempo_file 1>/dev/null 2>/dev/null",    &busy_wait_command("$comma $new_name_file $tempo_file 1>/dev/null 2>/dev/null",
Line 327  foreach $texfile (@texfile) { Line 327  foreach $texfile (@texfile) {
   print "<a href=\"$logfilename\">Your log file </a></big></b>";    print "<a href=\"$logfilename\">Your log file </a></big></b>";
   print "\n";    print "\n";
   #link tooriginal LaTeX file (included according Michael Hamlin desire)    #link tooriginal LaTeX file (included according Michael Hamlin desire)
   my $tex_temporary_file=IO::File->new($texfile) || die "Couldn't open file for reading: $!\n";    my $tex_temporary_file=IO::File->new($texfile) || die "Couldn't open tex file $texfile for reading: $!\n";
   my @tex_content_of_file = <$tex_temporary_file>;    my @tex_content_of_file = <$tex_temporary_file>;
   close $tex_temporary_file;     close $tex_temporary_file; 
   my $body_tex_file = join(' ',@tex_content_of_file);    my $body_tex_file = join(' ',@tex_content_of_file);
Line 346  foreach $texfile (@texfile) { Line 346  foreach $texfile (@texfile) {
   $name_file =~ s/\.tex/\.dvi/;    $name_file =~ s/\.tex/\.dvi/;
   my $new_name_file = $name_file;    my $new_name_file = $name_file;
   $new_name_file =~ s/\.dvi/\.ps/;    $new_name_file =~ s/\.dvi/\.ps/;
   my @papers=('letter','legal','tabloid','executive','','a3','a4','a5','');    my $papera=$paper;
   my $papera=$papers[$paper];  
   if ($papera eq 'letter') {$papera='';}    if ($papera eq 'letter') {$papera='';}
   if ($papera ne '') {$papera='-t'.$papera;}    if ($papera ne '') {$papera='-t'.$papera;}
   my $comma = "dvips $papera -Ppdf -G0 -o $new_name_file";    my $comma = "dvips $papera -Ppdf -G0 -o $new_name_file";
Line 365  foreach $texfile (@texfile) { Line 364  foreach $texfile (@texfile) {
      "for $status_statement now Modifying PS layout",       "for $status_statement now Modifying PS layout",
      \%prog_state,$tempo_file);       \%prog_state,$tempo_file);
       } elsif ($laystyle eq 'book' and $numberofcolumns eq '2') {        } elsif ($laystyle eq 'book' and $numberofcolumns eq '2') {
   my @papers=('letter','legal','tabloid','executive','','a3','a4','a5','');    $papera=~s/t/p/;
                   my $papera=$papers[$paper];    $comma = 'pstops '.$papera.' "2:0+1(0.48w,0)"';
   if ($papera ne '') {$papera='-p'.$papera;}  
   $comma = 'pstops -pa4 "2:0+1(0.48w,0)"';  
   &busy_wait_command("$comma $new_name_file $tempo_file 1>/dev/null 2>/dev/null",    &busy_wait_command("$comma $new_name_file $tempo_file 1>/dev/null 2>/dev/null",
      "for $status_statement now Modifying PS layout",       "for $status_statement now Modifying PS layout",
      \%prog_state,$tempo_file);        \%prog_state,$tempo_file); 
       } else {        } else {
   $ps_file=$new_name_file;    $ps_file=$new_name_file;
       }        }
       if ($paper eq '6') {        my $addtoPSfile={'legal'=>'<< /PageSize [612 1008] >> setpagedevice',
   open(FFH,'<',$ps_file) || die "Couldn't open file for reading: $!\n";                                 'tabloid'=>'<< /PageSize [792 1224] >> setpagedevice',
                                  'executive'=>,'<< /PageSize [540 720] >> setpagedevice',
                                  'a2'=>'<< /PageSize [1195.02 1690.09] >> setpagedevice',
                                  'a3'=>'<< /PageSize [842 1195.02] >> setpagedevice',
                                  'a4'=>'<< /PageSize [595.2 842] >> setpagedevice',
                                  'a5'=>'<< /PageSize [421.1 595.2] >> setpagedevice',
                                  'a6'=>'<< /PageSize [298.75 421.1] >> setpagedevice',
      };
         if ($paper ne 'letter') {
     open(FFH,'<',$ps_file) || die "Couldn't open ps file $ps_file for reading: $!\n";
   my $new_ps_file='new'.$ps_file;    my $new_ps_file='new'.$ps_file;
   open(FFHS,'>',$new_ps_file) || die "Couldn't open file for reading: $!\n";    open(FFHS,'>',$new_ps_file) || die "Couldn't open new ps file $new_ps_file for reading: $!\n";
   my $i=-1;    print FFHS $addtoPSfile->{$paper}."\n";
   while (<FFH>) {    while (<FFH>) {
       $i++;  
       if ($i==0) {print FFHS '<< /PageSize [595.2 842] >> setpagedevice'."\n";}   
       print FFHS $_;        print FFHS $_;
   }    }
   close(FFH);    close(FFH);
Line 404  foreach $texfile (@texfile) { Line 408  foreach $texfile (@texfile) {
       my @garb = ($texlog,$texaux,$texdvi,$texps);        my @garb = ($texlog,$texaux,$texdvi,$texps);
 #  unlink @garb;  #  unlink @garb;
       unlink $duefile;        unlink $duefile;
       print "<a href=\"/prtspool/$pdf_file\">$link_text</a>";        print "<a href=\"/prtspool/$pdf_file\">$link_text - click here to download pdf</a>";
       print "\n";        print "\n";
   }    }
       }          }  
Removed from v.1.63  
changed lines
  Added in v.1.71

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