version 1.33, 2013/01/02 01:15:26
|
version 1.38, 2013/12/24 19:15:10
|
Line 435 sub build_queue_display {
|
Line 435 sub build_queue_display {
|
official => 'Official course', |
official => 'Official course', |
unofficial => 'Unofficial course', |
unofficial => 'Unofficial course', |
community => 'Community', |
community => 'Community', |
|
textbook => 'Textbook course', |
); |
); |
$output .= '<th>'.&mt('Type').'</th>'. |
$output .= '<th>'.&mt('Type').'</th>'. |
'<th>'.&mt('Date requested').'</th>'. |
'<th>'.&mt('Date requested').'</th>'. |
Line 536 sub update_request_queue {
|
Line 537 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 1257 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 1353 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'}; |
Line 1840 sub process_reqauthor {
|
Line 1844 sub process_reqauthor {
|
unless ($env{'environment.canrequest.author'}) { |
unless ($env{'environment.canrequest.author'}) { |
return '<span class="LC_warning">'. |
return '<span class="LC_warning">'. |
&mt('You do not currently have rights to request an authoring space.').'<br />'. |
&mt('You do not currently have rights to request an authoring space.').'<br />'. |
&mt('Please contact the [_1]helpdesk[_2].','<a href="/adm/helpdesk">', |
&mt('Please contact the [_1]helpdesk[_2] for assistance.','<a href="/adm/helpdesk">', |
'</a>').'</span>'; |
'</a>').'</span>'; |
} |
} |
my $queued = &reqauthor_check(); |
my $queued = &reqauthor_check(); |