version 1.24, 2009/08/23 03:51:53
|
version 1.25, 2009/08/25 14:59:53
|
Line 2112 sub print_request_outcome {
|
Line 2112 sub print_request_outcome {
|
$env{'user.domain'},$env{'user.name'}); |
$env{'user.domain'},$env{'user.name'}); |
if ($userreqhash{$statuskey} ne '') { |
if ($userreqhash{$statuskey} ne '') { |
$modified = 1; |
$modified = 1; |
my %queuehash = &Apache::lonnet::get_dom('courserequestqueue', |
my $uname = &Apache::lonnet::get_domainconfiguser($dom); |
[$cnum.'_approval', |
my %queuehash = &Apache::lonnet::get('courserequestqueue', |
$cnum.'_pending'],$dom); |
[$cnum.'_approval', |
|
$cnum.'_pending'],$dom,$uname); |
if (($queuehash{$cnum.'_approval'} ne '') || |
if (($queuehash{$cnum.'_approval'} ne '') || |
($queuehash{$cnum.'_pending'} ne '')) { |
($queuehash{$cnum.'_pending'} ne '')) { |
$queued = 1; |
$queued = 1; |