loncom/interface/loncoursequeueadmin.pm - diff

Return to loncoursequeueadmin.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.33, 2013/01/02 01:15:26	version 1.35, 2013/03/01 04:48:59
Line 536 sub update_request_queue {	Line 536 sub update_request_queue {
$firsturl);	$firsturl);
my $count=0;	my $count=0;
while (my @course = &Apache::loncommon::get_env_multiple('form.'.$count.'radioreq')) {	while (my @course = &Apache::loncommon::get_env_multiple('form.'.$count.'radioreq')) {
if (@course[0] =~ /^\d+:.*/) {	if ($course[0] =~ /^\d+:.*/) {
push(@approvals,@course[0]);	push(@approvals,$course[0]);
} elsif (@course[0] =~ /^later:.*/) {	} elsif ($course[0] =~ /^later:.*/) {
#decide later	#decide later
} else {	} else {
push(@rejections,@course[0]);	push(@rejections,$course[0]);
}	}
$count+=1;	$count+=1;
}	}
Line 1352 sub build_batchcreatehash {	Line 1352 sub build_batchcreatehash {
}	}
$batchhash{'title'} = $details->{'cdescr'};	$batchhash{'title'} = $details->{'cdescr'};
$batchhash{'coursecode'} = $details->{'instcode'};	$batchhash{'coursecode'} = $details->{'instcode'};
	if ($domdefs->{'officialcredits'} \|\| $domdefs->{'unofficialcredits'}) {
	$batchhash{'defaultcredits'} = $details->{'defaultcredits'};
	}
$batchhash{'emailenc'} = $emailenc;	$batchhash{'emailenc'} = $emailenc;
$batchhash{'adds'} = $details->{'autoadds'};	$batchhash{'adds'} = $details->{'autoadds'};
$batchhash{'drops'} = $details->{'autodrops'};	$batchhash{'drops'} = $details->{'autodrops'};