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

Diff for /loncom/interface/printout.pl between versions 1.45 and 1.47

version 1.45, 2004/02/06 14:16:39 version 1.47, 2004/02/13 21:17:50
Line 32  use LONCAPA::loncgi(); Line 32  use LONCAPA::loncgi();
 use File::Path;  use File::Path;
 use IO::File;  use IO::File;
 use Image::Magick;  use Image::Magick;
   use Apache::lonhtmlcommon;
   
   
   my %origENV=%ENV;
 if (! &LONCAPA::loncgi::check_cookie_and_load_env()) {  if (! &LONCAPA::loncgi::check_cookie_and_load_env()) {
     print <<END;      print <<END;
 Content-type: text/html  Content-type: text/html
Line 61  END Line 64  END
   my $back_ref = $ENV{'cgi.'.$identifier.'backref'};    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 @names_pack=();    my @names_pack=();
   if ($student_names=~/_END_/) {      if ($student_names=~/_END_/) {  
       @names_pack=split(/_ENDPERSON_/,$student_names);        @names_pack=split(/_ENDPERSON_/,$student_names);
   }    }
     #got what we needed reset ENV in case it is to big for system
     %ENV=%origENV;
   
   my $figfile = $texfile;    my $figfile = $texfile;
   $figfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.dat/;    $figfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.dat/;
Line 78  END Line 84  END
       my @content_of_file = <$temporary_file>;        my @content_of_file = <$temporary_file>;
       close $temporary_file;          close $temporary_file;  
       my $noteps;        my $noteps;
       &Create_StatWin ('Starting eps pictures creation', 'Pictires Status window');        my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin('','Pictures CreationPrint Status','Pictires Status window',$#content_of_file);
       foreach $not_eps (@content_of_file) {        foreach $not_eps (@content_of_file) {
   if ($not_eps ne '') {    if ($not_eps ne '') {
               my $status_statement='EPS picture for '.$not_eps;                my $status_statement='EPS picture for '.$not_eps;
       &Update_StaWin ($status_statement);        &Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state,'last PDF file '.$not_eps); 
       $not_eps=~s|\/\.\/|\/|g;        $not_eps=~s|\/\.\/|\/|g;
       my $eps_f = $not_eps;        my $eps_f = $not_eps;
       $eps_f =~ s/\.[^.]*$/\.eps/i;        $eps_f =~ s/\.[^.]*$/\.eps/i;
Line 119  END Line 125  END
       }          }  
   }    }
       }        }
       &Close_StatWin();        &Apache::lonhtmlcommon::Close_PrgWin('',\%prog_state);
   }    }
   #print "$texfile\n"; #name of the tex file for debugging only       #print "$texfile\n"; #name of the tex file for debugging only   
   my @texfile=($texfile);    my @texfile=($texfile);
Line 131  END Line 137  END
       }         } 
   }    }
 my $ind=-1;  my $ind=-1;
 &Create_StatWin ('Starting PDF production for students', 'PDF Status window');  my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin('','Print Status','Class Print Status',$number_of_files);
 foreach $texfile (@texfile) {  foreach $texfile (@texfile) {
   my $final_statement="<b>Link to your PDF document:</b> ";    my $final_statement="<a href=\"$backref\"><b>Back to where you started</b></a><br /><br /><b>Link to your PDF document:</b> ";
   my $status_statement='PDF document for ';    my $status_statement='PDF document for ';
   if ($number_of_files>1) {    if ($number_of_files>1) {
       $ind++;        $ind++;
Line 147  foreach $texfile (@texfile) { Line 153  foreach $texfile (@texfile) {
   $status_statement.=' -  '.$tempo_array[3];    $status_statement.=' -  '.$tempo_array[3];
       }         } 
   }    }
 &Update_StaWin ($status_statement);  &Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state,'last PDF file '.$status_statement); 
   if (-e $texfile) {    if (-e $texfile) {
       $texfile =~ m/^(.*)\/([^\/]+)$/;         $texfile =~ m/^(.*)\/([^\/]+)$/; 
       my $name_file = $2;        my $name_file = $2;
Line 335  if ($number_of_files>1) { Line 341  if ($number_of_files>1) {
     $zipfile=~s/\/home\/httpd//;      $zipfile=~s/\/home\/httpd//;
     print "<br /> <a href=\"$zipfile\">Your ZIP file is here</a>";      print "<br /> <a href=\"$zipfile\">Your ZIP file is here</a>";
 }  }
 &Close_StatWin();  &Apache::lonhtmlcommon::Close_PrgWin('',\%prog_state);
   
   
 sub Create_StatWin {  
     my ($title, $heading)=@_;  
     print('<script>'.  
     "popwin=window.open('','popwin','width=400,height=100');".  
     "popwin.document.writeln('<html><head><title>$title</title></head>".  
       "<body bgcolor=\"#88DDFF\">".  
               "<h4>$heading</h4>".  
               "<form name=popremain>".  
               '<input type="text" size="55" name="remaining" value="'.  
       'Starting'.'"></form>'.  
               "</body></html>');".  
     "popwin.document.close();".  
     "</script>");  
 }  
   
 sub Update_StaWin {  
     my ($info)=@_;  
     print('<script>popwin.document.popremain.remaining.value="'.  
       $info.'";'.'</script>');  
 }  
      
 sub Close_StatWin {  
     print('<script>popwin.window.close()</script>'."\n");  
   
 }  
   
   
   
Removed from v.1.45  
changed lines
  Added in v.1.47

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