version 1.295.2.28, 2010/01/20 14:35:36
|
version 1.295.2.29, 2010/01/20 14:59:27
|
Line 231 sub build_tools_display {
|
Line 231 sub build_tools_display {
|
'uscu' => "Use custom", |
'uscu' => "Use custom", |
'official' => 'Can request creation of official courses', |
'official' => 'Can request creation of official courses', |
'unofficial' => 'Can request creation of unofficial courses', |
'unofficial' => 'Can request creation of unofficial courses', |
|
'community' => 'Can request creation of communities', |
); |
); |
if ($context eq 'requestcourses') { |
if ($context eq 'requestcourses') { |
%userenv = &Apache::lonnet::userenvironment($ccdomain,$ccuname, |
%userenv = &Apache::lonnet::userenvironment($ccdomain,$ccuname, |
'requestcourses.official','requestcourses.unofficial'); |
'requestcourses.official','requestcourses.unofficial', |
@usertools = ('official','unofficial'); |
'requestcourses.community'); |
|
@usertools = ('official','unofficial','community'); |
@options =('norequest','approval','autolimit','validate'); |
@options =('norequest','approval','autolimit','validate'); |
%validations = &Apache::lonnet::auto_courserequest_checks($ccdomain); |
%validations = &Apache::lonnet::auto_courserequest_checks($ccdomain); |
%reqtitles = &courserequest_titles(); |
%reqtitles = &courserequest_titles(); |
Line 2684 sub update_user_data {
|
Line 2686 sub update_user_data {
|
($env{'user.domain'} eq $env{'form.ccdomain'})) { |
($env{'user.domain'} eq $env{'form.ccdomain'})) { |
my %newenvhash; |
my %newenvhash; |
foreach my $key (keys(%changed)) { |
foreach my $key (keys(%changed)) { |
if (($key eq 'official') || ($key eq 'unofficial')) { |
if (($key eq 'official') || ($key eq 'unofficial') |
|
|| ($key eq 'community')) { |
$newenvhash{'environment.requestcourses.'.$key} = |
$newenvhash{'environment.requestcourses.'.$key} = |
$changeHash{'requestcourses.'.$key}; |
$changeHash{'requestcourses.'.$key}; |
if ($changeHash{'requestcourses.'.$key} ne '') { |
if ($changeHash{'requestcourses.'.$key} ne '') { |
Line 2745 sub update_user_data {
|
Line 2748 sub update_user_data {
|
'portfolio' => 'Portfolio Availability', |
'portfolio' => 'Portfolio Availability', |
'official' => 'Can Request Official Courses', |
'official' => 'Can Request Official Courses', |
'unofficial' => 'Can Request Unofficial Courses', |
'unofficial' => 'Can Request Unofficial Courses', |
|
'community' => 'Can Request Communities', |
'inststatus' => "Affiliation", |
'inststatus' => "Affiliation", |
'prvs' => 'Previous Value:', |
'prvs' => 'Previous Value:', |
'chto' => 'Changed To:' |
'chto' => 'Changed To:' |
Line 2898 END
|
Line 2902 END
|
'portfolio' => "Portfolio Availability", |
'portfolio' => "Portfolio Availability", |
'official' => "Can Request Official Courses", |
'official' => "Can Request Official Courses", |
'unofficial' => "Can Request Unofficial Courses", |
'unofficial' => "Can Request Unofficial Courses", |
|
'community' => "Can Request Communities", |
'inststatus' => "Affiliation", |
'inststatus' => "Affiliation", |
); |
); |
$r->print(<<"END"); |
$r->print(<<"END"); |