[LON-CAPA-cvs] cvs: loncom /interface lonprintout.pm

[sakharuk]

sakharuk		Thu Feb  5 13:35:58 2004 EDT

  Modified files:              
    /loncom/interface	lonprintout.pm 
  Log:
  Changes to implement status window for PDF production and for figures conversion.
  
  
Index: loncom/interface/lonprintout.pm
diff -u loncom/interface/lonprintout.pm:1.273 loncom/interface/lonprintout.pm:1.274
--- loncom/interface/lonprintout.pm:1.273	Tue Feb  3 16:57:48 2004
+++ loncom/interface/lonprintout.pm	Thu Feb  5 13:35:58 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.273 2004/02/03 21:57:48 sakharuk Exp $
+# $Id: lonprintout.pm,v 1.274 2004/02/05 18:35:58 sakharuk Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -706,6 +706,7 @@
     }
     $LaTeXwidth.=' mm';
     my @print_array=();
+    my @student_names=();
     
     if ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'current_document') {
       #-- single document - problem, page, html, xml, ...
@@ -1024,6 +1025,7 @@
 		$current_output = '\strut\\newline\\noindent\\makebox[\\textwidth/$number_of_columns][b]{\\hrulefill}\\newline\\noindent{\\tiny Printed from LON-CAPA\\copyright MSU{\\hfill} Licensed under GNU General Public License }\\newpage '.$blanspages.'\setcounter{page}{1}\noindent\parbox{\minipagewidth}{\noindent\\lhead{\\textit{\\textbf{'.$fullname.'}}'.$courseidinfo.' \\hfill \\thepage \\\\ \\textit{'.$currentassignment.'}}} \vskip -5 mm '.$current_output;
 	    }
             $print_array[int($student_counter/$helper->{'VARS'}->{'NUMBER_TO_PRINT'})].=$current_output;
+            $student_names[int($student_counter/$helper->{'VARS'}->{'NUMBER_TO_PRINT'})].=$person.':'.$fullname.'_END_';
 	    &Apache::lonnet::delenv('form.counter');	    
 	    &Apache::lonxml::init_counter(); 
 	    &Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,
@@ -1141,6 +1143,13 @@
 	}
 
     }
+    my $student_names='';
+    if ($#print_array>0) {
+	for (my $i=0;$i<=$#print_array;$i++) {
+	    $student_names.=$student_names[$i].'_ENDPERSON_';
+	}
+    }
+
 
     my $identifier = time.'_'.int(rand(1000));
     &Apache::lonnet::appenv('cgi.'.$identifier.'.file'   => $filename,
@@ -1150,7 +1159,8 @@
 			    'cgi.'.$identifier.'tableofcontents' => $helper->{'VARS'}->{'TABLE_CONTENTS'},
 			    'cgi.'.$identifier.'tableofindex' => $helper->{'VARS'}->{'TABLE_INDEX'},
 			    'cgi.'.$identifier.'role' => $ENV{'request.role.adv'},
-                            'cgi.'.$identifier.'numberoffiles' => $#print_array);
+                            'cgi.'.$identifier.'numberoffiles' => $#print_array,
+                            'cgi.'.$identifier.'studentnames' => $student_names,);
  
 
 $r->print(<<FINALEND);