loncom/interface/londropadd.pm - diff

Return to londropadd.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.41, 2002/05/06 17:48:57	version 1.42, 2002/05/09 15:56:02
Line 763 sub menu_phase_two_viewcsv {	Line 763 sub menu_phase_two_viewcsv {
sub show_class_list {	sub show_class_list {
my ($r,$mode,%currentlist)=@_;	my ($r,$mode,%currentlist)=@_;
my $cid=$ENV{'request.course.id'};	my $cid=$ENV{'request.course.id'};
	# Print out header
if ($mode eq 'view') {	if ($mode eq 'view') {
$r->print(<<END);	$r->print(<<END);
<p>	<p>
Line 803 END	Line 804 END
</tr>	</tr>
END	END
} elsif ($mode eq 'csv') {	} elsif ($mode eq 'csv') {
$r->print($sname.','.	my @line = ();
$sdom.','.	foreach ($sname,$sdom,$reply{$sname},
$reply{$sname}.','.	$info{'lastname'},$info{'firstname'},
$info{'lastname'}.','.	$info{'middlename'},$info{'generation'},$ssec) {
$info{'firstname'}.','.	push @line,&Apache::loncommon::csv_translate($_);
$info{'middlename'}.','.	}
$info{'generation'}.','.	my $tmp = $";
$ssec."\n");	$" = '","';
	$r->print("\"@line\"\n");
	$" = $tmp;
}	}
}	}
}	}