version 1.298, 2009/07/17 22:24:08
|
version 1.299, 2009/07/25 14:44:50
|
Line 225 sub build_tools_display {
|
Line 225 sub build_tools_display {
|
'usde' => "Use default", |
'usde' => "Use default", |
'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'); |
} else { |
} else { |
%userenv = &Apache::lonnet::userenvironment($ccdomain,$ccuname, |
%userenv = &Apache::lonnet::userenvironment($ccdomain,$ccuname, |
'tools.aboutme','tools.portfolio','tools.blog'); |
'tools.aboutme','tools.portfolio','tools.blog'); |
Line 1861 sub update_user_data {
|
Line 1863 sub update_user_data {
|
$env{'form.ccuname'}, $env{'form.ccdomain'}).'</h3>'); |
$env{'form.ccuname'}, $env{'form.ccdomain'}).'</h3>'); |
my (%alerts,%rulematch,%inst_results,%curr_rules); |
my (%alerts,%rulematch,%inst_results,%curr_rules); |
my @usertools = ('aboutme','blog','portfolio'); |
my @usertools = ('aboutme','blog','portfolio'); |
my @requestcourses = ('official','unofficial'); |
my @requestcourses = ('official','unofficial','community'); |
my ($othertitle,$usertypes,$types) = |
my ($othertitle,$usertypes,$types) = |
&Apache::loncommon::sorted_inst_types($env{'form.ccdomain'}); |
&Apache::loncommon::sorted_inst_types($env{'form.ccdomain'}); |
if ($env{'form.makeuser'}) { |
if ($env{'form.makeuser'}) { |
Line 1998 sub update_user_data {
|
Line 2000 sub update_user_data {
|
('environment',['firstname','middlename','lastname','generation', |
('environment',['firstname','middlename','lastname','generation', |
'id','permanentemail','portfolioquota','inststatus','tools.aboutme', |
'id','permanentemail','portfolioquota','inststatus','tools.aboutme', |
'tools.blog','tools.portfolio','requestcourses.official', |
'tools.blog','tools.portfolio','requestcourses.official', |
'requestcourses.unofficial'], |
'requestcourses.unofficial','requestcourses.community'], |
$env{'form.ccdomain'},$env{'form.ccuname'}); |
$env{'form.ccdomain'},$env{'form.ccuname'}); |
my ($tmp) = keys(%userenv); |
my ($tmp) = keys(%userenv); |
if ($tmp =~ /^(con_lost|error)/i) { |
if ($tmp =~ /^(con_lost|error)/i) { |
Line 2246 sub update_user_data {
|
Line 2248 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 2308 sub update_user_data {
|
Line 2311 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 2445 END
|
Line 2449 END
|
'aboutme' => "Personal Information Page Availability", |
'aboutme' => "Personal Information Page Availability", |
'portfolio' => "Portfolio Availability", |
'portfolio' => "Portfolio Availability", |
'official' => "Can Request Official Courses", |
'official' => "Can Request Official Courses", |
'unofficial' => "Can Request Unofficial Course", |
'unofficial' => "Can Request Unofficial Courses", |
|
'community' => "Can Request Communities", |
'inststatus' => "Affiliation", |
'inststatus' => "Affiliation", |
); |
); |
$r->print(<<"END"); |
$r->print(<<"END"); |