version 1.329, 2009/11/28 21:33:53
|
version 1.332, 2010/01/14 20:08:13
|
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 935 sub print_user_modification_page {
|
Line 945 sub print_user_modification_page {
|
); |
); |
my $response; |
my $response; |
if ($env{'form.origform'} eq 'crtusername') { |
if ($env{'form.origform'} eq 'crtusername') { |
$response = '<span class="LC_warning">'.&mt('No match was found for the username ([_1]) in LON-CAPA domain: [_2]',$ccuname,$ccdomain). |
$response = '<span class="LC_warning">'.&mt('No match found for the username [_1] in LON-CAPA domain: [_2]','<b>'.$ccuname.'</b>',$ccdomain). |
'</span><br />'; |
'</span><br />'; |
} |
} |
$response .= '<p class="LC_warning">' |
$response .= '<p class="LC_warning">' |
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} = |
$newenvhash{'environment.canrequest.'.$key} = 1; |
$changeHash{'requestcourses.'.$key}; |
|
} 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 5861 sub build_search_response {
|
Line 5870 sub build_search_response {
|
my ($context,$srch,%srch_results) = @_; |
my ($context,$srch,%srch_results) = @_; |
my ($currstate,$response,$forcenewuser); |
my ($currstate,$response,$forcenewuser); |
my %names = ( |
my %names = ( |
'uname' => 'username', |
'uname' => 'username', |
'lastname' => 'last name', |
'lastname' => 'last name', |
'lastfirst' => 'last name, first name', |
'lastfirst' => 'last name, first name', |
'crs' => 'this course', |
'crs' => 'this course', |
'dom' => 'LON-CAPA domain: ', |
'dom' => 'LON-CAPA domain', |
'instd' => 'the institutional directory for domain: ', |
'instd' => 'the institutional directory for domain', |
); |
); |
|
|
my %single = ( |
my %single = ( |
Line 5886 sub build_search_response {
|
Line 5895 sub build_search_response {
|
$currstate = 'modify'; |
$currstate = 'modify'; |
$response = &mt("$single{$srch->{'srchtype'}} was found for the $names{$srch->{'srchby'}} ([_1]) in $names{$srch->{'srchin'}}.",$srch->{'srchterm'}); |
$response = &mt("$single{$srch->{'srchtype'}} was found for the $names{$srch->{'srchby'}} ([_1]) in $names{$srch->{'srchin'}}.",$srch->{'srchterm'}); |
if ($srch->{'srchin'} eq 'dom' || $srch->{'srchin'} eq 'instd') { |
if ($srch->{'srchin'} eq 'dom' || $srch->{'srchin'} eq 'instd') { |
$response .= &display_domain_info($srch->{'srchdomain'}); |
$response .= ': '.&display_domain_info($srch->{'srchdomain'}); |
} |
} |
} else { |
} else { # Search has nothing found. Prepare message to user. |
$response = '<span class="LC_warning">'.&mt("$nomatch{$srch->{'srchtype'}} found for the $names{$srch->{'srchby'}} ([_1]) in $names{$srch->{'srchin'}}",$srch->{'srchterm'}); |
$response = '<span class="LC_warning">'; |
if ($srch->{'srchin'} eq 'dom' || $srch->{'srchin'} eq 'instd') { |
if ($srch->{'srchin'} eq 'dom' || $srch->{'srchin'} eq 'instd') { |
$response .= &display_domain_info($srch->{'srchdomain'}); |
$response .= &mt("$nomatch{$srch->{'srchtype'}} found for the $names{$srch->{'srchby'}} [_1] in $names{$srch->{'srchin'}}: [_2]", |
|
'<b>'.$srch->{'srchterm'}.'</b>', |
|
&display_domain_info($srch->{'srchdomain'})); |
|
} else { |
|
$response .= &mt("$nomatch{$srch->{'srchtype'}} found for the $names{$srch->{'srchby'}} [_1] in $names{$srch->{'srchin'}}.", |
|
'<b>'.$srch->{'srchterm'}.'</b>'); |
} |
} |
$response .= '</span>'; |
$response .= '</span>'; |
|
|
if ($srch->{'srchin'} ne 'alc') { |
if ($srch->{'srchin'} ne 'alc') { |
$forcenewuser = 1; |
$forcenewuser = 1; |
my $cansrchinst = 0; |
my $cansrchinst = 0; |