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

[sakharuk]

sakharuk		Mon Jun 28 14:12:30 2004 EDT

  Modified files:              
    /loncom/interface	lonprintout.pm 
  Log:
  Bug 2950 (Printing due date for multiple students) is fixed.
  
  
Index: loncom/interface/lonprintout.pm
diff -u loncom/interface/lonprintout.pm:1.310 loncom/interface/lonprintout.pm:1.311
--- loncom/interface/lonprintout.pm:1.310	Mon Jun 28 11:02:55 2004
+++ loncom/interface/lonprintout.pm	Mon Jun 28 14:12:30 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.310 2004/06/28 15:02:55 sakharuk Exp $
+# $Id: lonprintout.pm,v 1.311 2004/06/28 18:12:30 sakharuk Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1033,6 +1033,11 @@
 	 my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,'Print Status','Class Print Status',$#students+1);
 	 my $student_counter=-1;
 	 foreach my $person (@students) {
+             my $duefile="/home/httpd/prtspool/$ENV{'user.name'}_$ENV{'user.domain'}_printout.due";
+	     if (-e $duefile) {
+		 my $temp_file = Apache::File->new('>>'.$duefile);
+		 print $temp_file "1969\n";
+	     }
 	     $student_counter++;
 	     my $i=int($student_counter/$helper->{'VARS'}{'NUMBER_TO_PRINT'});
 	     my ($output,$fullname)=&print_resources($r,$helper,$person,$type,\%moreenv,\@master_seq,$flag_latex_header_remove);