version 1.331, 2009/12/29 20:00:26
|
version 1.333, 2010/01/20 09:49:54
|
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 243 sub build_tools_display {
|
Line 243 sub build_tools_display {
|
%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 289 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 2680 sub update_user_data {
|
Line 2690 sub update_user_data {
|
$newenvhash{'environment.requestcourses.'.$key} = |
$newenvhash{'environment.requestcourses.'.$key} = |
$changeHash{'requestcourses.'.$key}; |
$changeHash{'requestcourses.'.$key}; |
if ($changeHash{'requestcourses.'.$key} ne '') { |
if ($changeHash{'requestcourses.'.$key} ne '') { |
$newenvhash{'environment.canrequest.'.$key} = 1 |
$newenvhash{'environment.canrequest.'.$key} = 1; |
} else { |
} else { |
$newenvhash{'environment.canrequest.'.$key} = |
$newenvhash{'environment.canrequest.'.$key} = |
&Apache::lonnet::usertools_access($env{'user.name'},$env{'user.domain'}, |
&Apache::lonnet::usertools_access($env{'user.name'},$env{'user.domain'}, |
Line 4476 sub print_main_menu {
|
Line 4486 sub print_main_menu {
|
}, |
}, |
{ |
{ |
linktext => $linktext{$crstype}{'groups'}, |
linktext => $linktext{$crstype}{'groups'}, |
icon => 'conf.png', |
icon => 'grps.png', |
#help => 'Course_Manage_Group', |
#help => 'Course_Manage_Group', |
url => '/adm/coursegroups?refpage=cusr', |
url => '/adm/coursegroups?refpage=cusr', |
permission => $permission->{'grp_manage'}, |
permission => $permission->{'grp_manage'}, |