version 1.295.2.26, 2010/01/19 23:41:43
|
version 1.295.2.29, 2010/01/20 14:59:27
|
Line 219 END_SCRIPT
|
Line 219 END_SCRIPT
|
sub build_tools_display { |
sub build_tools_display { |
my ($ccuname,$ccdomain,$context) = @_; |
my ($ccuname,$ccdomain,$context) = @_; |
my (@usertools,%userenv,$output,@options,%validations,%reqtitles,%reqdisplay, |
my (@usertools,%userenv,$output,@options,%validations,%reqtitles,%reqdisplay, |
$colspan); |
$colspan,$isadv,%domconfig); |
my %lt = &Apache::lonlocal::texthash ( |
my %lt = &Apache::lonlocal::texthash ( |
'blog' => "Personal User Blog", |
'blog' => "Personal User Blog", |
'aboutme' => "Personal Information Page", |
'aboutme' => "Personal Information Page", |
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(); |
%reqdisplay = &courserequest_display(); |
%reqdisplay = &courserequest_display(); |
$colspan = ' colspan="2"'; |
$colspan = ' colspan="2"'; |
|
%domconfig = |
|
&Apache::lonnet::get_dom('configuration',['requestcourses'],$ccdomain); |
|
$isadv = &Apache::lonnet::is_advanced_user($ccuname,$ccdomain); |
} 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 287 sub build_tools_display {
|
Line 292 sub build_tools_display {
|
&Apache::loncommon::start_data_table_row()."\n"; |
&Apache::loncommon::start_data_table_row()."\n"; |
if ($context eq 'requestcourses') { |
if ($context eq 'requestcourses') { |
my ($curroption,$currlimit); |
my ($curroption,$currlimit); |
$curroption = $userenv{$context.'.'.$item}; |
if ($userenv{$context.'.'.$item} ne '') { |
|
$curroption = $userenv{$context.'.'.$item}; |
|
} else { |
|
my (@inststatuses); |
|
$curroption = |
|
&Apache::loncoursequeueadmin::get_processtype($ccuname,$ccdomain,$isadv,$ccdomain, |
|
$item,\@inststatuses,\%domconfig); |
|
} |
if (!$curroption) { |
if (!$curroption) { |
$curroption = 'norequest'; |
$curroption = 'norequest'; |
} |
} |
Line 1474 sub display_existing_roles {
|
Line 1486 sub display_existing_roles {
|
if ($area =~ m{^/($match_domain)/($match_courseid)} ) { |
if ($area =~ m{^/($match_domain)/($match_courseid)} ) { |
$class='Course'; |
$class='Course'; |
my ($coursedom,$coursedir) = ($1,$2); |
my ($coursedom,$coursedir) = ($1,$2); |
$sortkey.="\0$coursedom"; |
my $cid = $1.'_'.$2; |
# $1.'_'.$2 is the course id (eg. 103_12345abcef103l3). |
# $1.'_'.$2 is the course id (eg. 103_12345abcef103l3). |
my %coursedata= |
my %coursedata= |
&Apache::lonnet::coursedescription($1.'_'.$2); |
&Apache::lonnet::coursedescription($cid); |
if ($coursedir =~ /^$match_community$/) { |
if ($coursedir =~ /^$match_community$/) { |
$class='Community'; |
$class='Community'; |
} |
} |
Line 1499 sub display_existing_roles {
|
Line 1511 sub display_existing_roles {
|
} |
} |
} |
} |
$sortkey.="\0$coursedir"; |
$sortkey.="\0$coursedir"; |
$inccourses->{$1.'_'.$2}=1; |
$inccourses->{$cid}=1; |
if ((&Apache::lonnet::allowed('c'.$role_code,$1.'/'.$2)) || |
if ((&Apache::lonnet::allowed('c'.$role_code,$coursedom.'/'.$coursedir)) || |
(&Apache::lonnet::allowed('c'.$role_code,$ccdomain))) { |
(&Apache::lonnet::allowed('c'.$role_code,$ccdomain))) { |
$allowed=1; |
$allowed=1; |
} |
} |
Line 1514 sub display_existing_roles {
|
Line 1526 sub display_existing_roles {
|
} |
} |
} |
} |
} |
} |
if ((&Apache::lonnet::allowed('dro',$1)) || |
if ((&Apache::lonnet::allowed('dro',$coursedom)) || |
(&Apache::lonnet::allowed('dro',$ccdomain))) { |
(&Apache::lonnet::allowed('dro',$ccdomain))) { |
$delallowed=1; |
$delallowed=1; |
} |
} |
# - custom role. Needs more info, too |
# - custom role. Needs more info, too |
if ($croletitle) { |
if ($croletitle) { |
if (&Apache::lonnet::allowed('ccr',$1.'/'.$2)) { |
if (&Apache::lonnet::allowed('ccr',$coursedom.'/'.$coursedir)) { |
$allowed=1; |
$allowed=1; |
$thisrole.='.'.$role_code; |
$thisrole.='.'.$role_code; |
} |
} |
Line 2674 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 2735 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 2888 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"); |