loncom/interface/londropadd.pm - diff

Return to londropadd.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.127, 2005/04/07 06:56:23	version 1.129, 2005/04/19 03:58:23
Line 1460 END	Line 1460 END
$name,$section]);	$name,$section]);
my $col = 5;	my $col = 5;
foreach my $time ($start,$end) {	foreach my $time ($start,$end) {
$excel_sheet->write($row,$col++,	if (defined($time) && $time != 0) {
	$excel_sheet->write($row,$col++,
&Apache::lonstathelpers::calc_serial($time),	&Apache::lonstathelpers::calc_serial($time),
$format->{'date'});	$format->{'date'});
	} else {
	$excel_sheet->write($row,$col++,'none');
	}
}	}
$excel_sheet->write($row,$col++,$status);	$excel_sheet->write($row,$col++,$status);
$row++;	$row++;
Line 2208 sub upfile_drop_add {	Line 2212 sub upfile_drop_add {
sub drop_student_list {	sub drop_student_list {
my $r=shift;	my $r=shift;
my $count=0;	my $count=0;
my @droplist;	my @droplist = &Apache::loncommon::get_env_multiple('form.droplist');
if (ref($env{'form.droplist'})) {
@droplist = @{$env{'form.droplist'}};
} else {
@droplist = ($env{'form.droplist'});
}
foreach (@droplist) {	foreach (@droplist) {
my ($uname,$udom)=split(/\:/,$_);	my ($uname,$udom)=split(/\:/,$_);
# drop student	# drop student