loncom/interface/lonprintout.pm - diff

Return to lonprintout.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.429, 2006/03/14 23:24:46	version 1.430, 2006/03/15 16:17:53
Line 1471 ENDPART	Line 1471 ENDPART
my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,'Print Status','Class Print Status',$#students+1,'inline','75');	my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,'Print Status','Class Print Status',$#students+1,'inline','75');
my $student_counter=-1;	my $student_counter=-1;
my $i = 0;	my $i = 0;
my ($junku, $junkd, $last_section) = split /:/,$students[0];	my $last_section = (split(/:/,$students[0]))[2];
foreach my $person (@students) {	foreach my $person (@students) {

my $duefile="/home/httpd/prtspool/$env{'user.name'}_$env{'user.domain'}_printout.due";	my $duefile="/home/httpd/prtspool/$env{'user.name'}_$env{'user.domain'}_printout.due";
Line 1481 ENDPART	Line 1481 ENDPART
}	}
$student_counter++;	$student_counter++;
if ($split_on_sections) {	if ($split_on_sections) {
my $this_section;	my $this_section = (split(/:/,$person))[2];
($junku, $junkd, $this_section) = split /:/,$person;
if ($this_section ne $last_section) {	if ($this_section ne $last_section) {
$i++;	$i++;
$last_section = $this_section;	$last_section = $this_section;