version 1.360, 2012/04/25 21:22:01
|
version 1.361, 2012/06/01 11:39:24
|
Line 223 sub build_tools_display {
|
Line 223 sub build_tools_display {
|
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", |
|
'webdav' => "WebDAV access to authoring spaces (if SSL and author/co-author)", |
'portfolio' => "Personal User Portfolio", |
'portfolio' => "Personal User Portfolio", |
'avai' => "Available", |
'avai' => "Available", |
'cusa' => "availability", |
'cusa' => "availability", |
Line 248 sub build_tools_display {
|
Line 249 sub build_tools_display {
|
$isadv = &Apache::lonnet::is_advanced_user($ccuname,$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', |
@usertools = ('aboutme','blog','portfolio'); |
'tools.webdav'); |
|
@usertools = ('aboutme','blog','webdav','portfolio'); |
} |
} |
foreach my $item (@usertools) { |
foreach my $item (@usertools) { |
my ($custom_access,$curr_access,$cust_on,$cust_off,$tool_on,$tool_off, |
my ($custom_access,$curr_access,$cust_on,$cust_off,$tool_on,$tool_off, |
Line 356 sub build_tools_display {
|
Line 358 sub build_tools_display {
|
$currdisp = ($curr_access?&mt('Yes'):&mt('No')); |
$currdisp = ($curr_access?&mt('Yes'):&mt('No')); |
$custdisp = '<span class="LC_nobreak"><label>'. |
$custdisp = '<span class="LC_nobreak"><label>'. |
'<input type="radio" name="'.$context.'_'.$item.'"'. |
'<input type="radio" name="'.$context.'_'.$item.'"'. |
' value="1"'. $tool_on.'/>'.&mt('On').'</label> <label>'. |
' value="1" '.$tool_on.'/>'.&mt('On').'</label> <label>'. |
'<input type="radio" name="'.$context.'_'.$item.'" value="0" '. |
'<input type="radio" name="'.$context.'_'.$item.'" value="0" '. |
$tool_off.'/>'.&mt('Off').'</label></span>'; |
$tool_off.'/>'.&mt('Off').'</label></span>'; |
$custradio = (' 'x2).'--'.$lt{'cusa'}.': '.$custdisp. |
$custradio = (' 'x2).'--'.$lt{'cusa'}.': '.$custdisp. |
Line 1256 ENDNOPORTPRIV
|
Line 1258 ENDNOPORTPRIV
|
if (&Apache::lonnet::allowed('mut',$env{'request.role.domain'})) { |
if (&Apache::lonnet::allowed('mut',$env{'request.role.domain'})) { |
my %lt=&Apache::lonlocal::texthash( |
my %lt=&Apache::lonlocal::texthash( |
'utav' => "User Tools Availability", |
'utav' => "User Tools Availability", |
'yodo' => "You do not have privileges to modify Portfolio, Blog or Personal Information Page settings for this user.", |
'yodo' => "You do not have privileges to modify Portfolio, Blog, WebDAV, or Personal Information Page settings for this user.", |
'ifch' => "If a change is required, contact a domain coordinator for the domain", |
'ifch' => "If a change is required, contact a domain coordinator for the domain", |
); |
); |
$user_tools_text = <<ENDNOTOOLSPRIV; |
$user_tools_text = <<ENDNOTOOLSPRIV; |
Line 2312 sub update_user_data {
|
Line 2314 sub update_user_data {
|
|
|
my (%alerts,%rulematch,%inst_results,%curr_rules); |
my (%alerts,%rulematch,%inst_results,%curr_rules); |
my @userinfo = ('firstname','middlename','lastname','generation','permanentemail','id'); |
my @userinfo = ('firstname','middlename','lastname','generation','permanentemail','id'); |
my @usertools = ('aboutme','blog','portfolio'); |
my @usertools = ('aboutme','blog','webdav','portfolio'); |
my @requestcourses = ('official','unofficial','community'); |
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'}); |
Line 2465 sub update_user_data {
|
Line 2467 sub update_user_data {
|
my %userenv = &Apache::lonnet::get |
my %userenv = &Apache::lonnet::get |
('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.webdav','tools.portfolio', |
'requestcourses.unofficial','requestcourses.community', |
'requestcourses.official','requestcourses.unofficial', |
'reqcrsotherdom.official','reqcrsotherdom.unofficial', |
'requestcourses.community','reqcrsotherdom.official', |
'reqcrsotherdom.community'], |
'reqcrsotherdom.unofficial','reqcrsotherdom.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 2918 sub display_userinfo {
|
Line 2920 sub display_userinfo {
|
'permanentemail' => 'Permanent e-mail address', |
'permanentemail' => 'Permanent e-mail address', |
'quota' => 'Disk space allocated to portfolio files', |
'quota' => 'Disk space allocated to portfolio files', |
'blog' => 'Blog Availability', |
'blog' => 'Blog Availability', |
|
'webdav' => 'WebDAV Availability', |
'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', |