version 1.33, 2013/01/02 01:15:26
|
version 1.36, 2013/07/24 18:21:39
|
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 1256 sub update_request_queue {
|
Line 1256 sub update_request_queue {
|
} |
} |
$output .= '</ul></p>'; |
$output .= '</ul></p>'; |
} else { |
} else { |
$output .= '<p>'.&mt("For the following course/community requests an error occurred when removing requests for the following from the pending queue:").'<ul>'; |
$output .= '<p>'.&mt("For the following course/community requests an error occurred when removing requests from the pending queue:").'<ul>'; |
foreach my $cnum (@warn_dels) { |
foreach my $cnum (@warn_dels) { |
my $showcourse; |
my $showcourse; |
if (ref($requesthash{$cnum.'_'.$queue})) { |
if (ref($requesthash{$cnum.'_'.$queue})) { |
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'}; |