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

[albertel]

albertel		Wed Mar 15 11:17:58 2006 EDT

  Modified files:              
    /loncom/interface	lonprintout.pm 
  Log:
  - eliminating junk variables
  - some style -> split()
  
  
Index: loncom/interface/lonprintout.pm
diff -u loncom/interface/lonprintout.pm:1.429 loncom/interface/lonprintout.pm:1.430
--- loncom/interface/lonprintout.pm:1.429	Tue Mar 14 18:24:46 2006
+++ loncom/interface/lonprintout.pm	Wed Mar 15 11:17:53 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.429 2006/03/14 23:24:46 foxr Exp $
+# $Id: lonprintout.pm,v 1.430 2006/03/15 16:17:53 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1471,7 +1471,7 @@
 	 my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,'Print Status','Class Print Status',$#students+1,'inline','75');
 	 my $student_counter=-1;
 	 my $i = 0;
-	 my ($junku, $junkd, $last_section) = split /:/,$students[0];
+	 my $last_section = (split(/:/,$students[0]))[2];
 	 foreach my $person (@students) {
 
              my $duefile="/home/httpd/prtspool/$env{'user.name'}_$env{'user.domain'}_printout.due";
@@ -1481,8 +1481,7 @@
 	     }
 	     $student_counter++;
 	     if ($split_on_sections) {
-		 my $this_section;
-		 ($junku, $junkd, $this_section) = split /:/,$person;
+		 my $this_section = (split(/:/,$person))[2];
 		 if ($this_section ne $last_section) {
 		     $i++;
 		     $last_section = $this_section;