version 1.12.2.11, 2010/12/07 04:19:59
|
version 1.12.2.12, 2010/12/08 03:49:34
|
Line 376 sub update_request_queue {
|
Line 376 sub update_request_queue {
|
@processing_errors,@warn_approves,@warn_rejects,@approvals, |
@processing_errors,@warn_approves,@warn_rejects,@approvals, |
@rejections,@rejectionerrors,@nopermissions,%courseroles, |
@rejections,@rejectionerrors,@nopermissions,%courseroles, |
%communityroles,%domdefs,%approvalmsg,%rejectionmsg,$crstype, |
%communityroles,%domdefs,%approvalmsg,%rejectionmsg,$crstype, |
@warn_coursereqs); |
@warn_coursereqs,$firsturl); |
@approvals = &Apache::loncommon::get_env_multiple('form.approvereq'); |
@approvals = &Apache::loncommon::get_env_multiple('form.approvereq'); |
@rejections = &Apache::loncommon::get_env_multiple('form.rejectreq'); |
@rejections = &Apache::loncommon::get_env_multiple('form.rejectreq'); |
$now = time; |
$now = time; |
Line 390 sub update_request_queue {
|
Line 390 sub update_request_queue {
|
$hostname = &Apache::lonnet::hostname($chome); |
$hostname = &Apache::lonnet::hostname($chome); |
$protocol = $Apache::lonnet::protocol{$chome}; |
$protocol = $Apache::lonnet::protocol{$chome}; |
$protocol = 'http' if ($protocol ne 'https'); |
$protocol = 'http' if ($protocol ne 'https'); |
|
my %domdefaults = &Apache::lonnet::get_domain_defaults($cdom); |
|
if ($domdefaults{'portal_def'}) { |
|
$firsturl = $domdefaults{'portal_def'}; |
|
} else { |
|
$firsturl = $protocol.'://'.$hostname; |
|
} |
%requesthash = &Apache::lonnet::dump($namespace,$cdom,$cnum); |
%requesthash = &Apache::lonnet::dump($namespace,$cdom,$cnum); |
$access_start = $env{'course.'.$cid.'.internal.selfenroll_start_access'}; |
$access_start = $env{'course.'.$cid.'.internal.selfenroll_start_access'}; |
$access_end = $env{'course.'.$cid.'.internal.selfenroll_end_access'}; |
$access_end = $env{'course.'.$cid.'.internal.selfenroll_end_access'}; |
Line 402 sub update_request_queue {
|
Line 408 sub update_request_queue {
|
}, |
}, |
{ |
{ |
mt => 'Visit [_1], to log-in and access the course', |
mt => 'Visit [_1], to log-in and access the course', |
args => [$protocol.'://'.$hostname], |
args => [$firsturl], |
}]; |
}]; |
$rejectedmsg = [{ |
$rejectedmsg = [{ |
mt => 'Your request for enrollment has not been approved.', |
mt => 'Your request for enrollment has not been approved.', |
Line 416 sub update_request_queue {
|
Line 422 sub update_request_queue {
|
$hostname = &Apache::lonnet::hostname($chome); |
$hostname = &Apache::lonnet::hostname($chome); |
$protocol = $Apache::lonnet::protocol{$chome}; |
$protocol = $Apache::lonnet::protocol{$chome}; |
$protocol = 'http' if ($protocol ne 'https'); |
$protocol = 'http' if ($protocol ne 'https'); |
|
my %domdefaults = &Apache::lonnet::get_domain_defaults($cdom); |
|
if ($domdefaults{'portal_def'}) { |
|
$firsturl = $domdefaults{'portal_def'}; |
|
} else { |
|
$firsturl = $protocol.'://'.$hostname; |
|
} |
my %domconfig = &Apache::lonnet::get_dom('configuration',['requestcourses'],$cdom); |
my %domconfig = &Apache::lonnet::get_dom('configuration',['requestcourses'],$cdom); |
if (ref($domconfig{'requestcourses'}) eq 'HASH') { |
if (ref($domconfig{'requestcourses'}) eq 'HASH') { |
if (ref($domconfig{'requestcourses'}{'notify'}) eq 'HASH') { |
if (ref($domconfig{'requestcourses'}{'notify'}) eq 'HASH') { |
Line 428 sub update_request_queue {
|
Line 440 sub update_request_queue {
|
}, |
}, |
{ |
{ |
mt => 'Visit [_1], to log-in and access the course', |
mt => 'Visit [_1], to log-in and access the course', |
args => [$protocol.'://'.$hostname], |
args => [$firsturl], |
}]; |
}]; |
$rejectionmsg{'course'} = |
$rejectionmsg{'course'} = |
[{ |
[{ |
Line 441 sub update_request_queue {
|
Line 453 sub update_request_queue {
|
}, |
}, |
{ |
{ |
mt => 'Visit [_1], to log-in and access the community', |
mt => 'Visit [_1], to log-in and access the community', |
args => [$protocol.'://'.$hostname], |
args => [$firsturl], |
}]; |
}]; |
|
|
$rejectionmsg{'community'} = |
$rejectionmsg{'community'} = |