version 1.437, 2017/03/26 22:19:24
|
version 1.438, 2017/03/30 14:08:18
|
Line 835 sub entry_form {
|
Line 835 sub entry_form {
|
$inexact = 1; |
$inexact = 1; |
} |
} |
} |
} |
my $cancreate = |
my ($cancreate,$noinstd); |
&Apache::lonuserutils::can_create_user($dom,$context,$usertype); |
if ($env{'form.action'} eq 'accesslogs') { |
|
$noinstd = 1; |
|
} else { |
|
$cancreate = |
|
&Apache::lonuserutils::can_create_user($dom,$context,$usertype); |
|
} |
my ($userpicker,$cansearch) = |
my ($userpicker,$cansearch) = |
&Apache::loncommon::user_picker($dom,$srch,$forcenewuser, |
&Apache::loncommon::user_picker($dom,$srch,$forcenewuser, |
'document.crtuser',$cancreate,$usertype,$context,$fixeddom); |
'document.crtuser',$cancreate,$usertype,$context,$fixeddom,$noinstd); |
my $srchbutton = &mt('Search'); |
my $srchbutton = &mt('Search'); |
if ($env{'form.action'} eq 'singlestudent') { |
if ($env{'form.action'} eq 'singlestudent') { |
$srchbutton = &mt('Search and Enroll'); |
$srchbutton = &mt('Search and Enroll'); |
Line 1046 ENDSCRIPT
|
Line 1051 ENDSCRIPT
|
$r->print('</h3>'); |
$r->print('</h3>'); |
} elsif ($env{'form.action'} eq 'accesslogs') { |
} elsif ($env{'form.action'} eq 'accesslogs') { |
$r->print("<b>$lt{'srcva'}</b><br />"); |
$r->print("<b>$lt{'srcva'}</b><br />"); |
$r->print(&entry_form($srch->{'srchdomain'},$srch,undef,'accesslogs',undef,undef,1)); |
$r->print(&entry_form($srch->{'srchdomain'},$srch,undef,$context,undef,undef,1)); |
$r->print('<h3>'.$lt{'vacsel'}.'</h3>'); |
$r->print('<h3>'.$lt{'vacsel'}.'</h3>'); |
} |
} |
} |
} |
Line 8260 sub user_search_result {
|
Line 8265 sub user_search_result {
|
} else { |
} else { |
unless (($context eq 'requestcrs') && ($srch->{'srchtype'} eq 'exact')) { |
unless (($context eq 'requestcrs') && ($srch->{'srchtype'} eq 'exact')) { |
my $domd_chk = &domdirectorysrch_check($srch); |
my $domd_chk = &domdirectorysrch_check($srch); |
if ($domd_chk ne 'ok') { |
if (($domd_chk ne 'ok') && ($env{'form.action'} ne 'accesslogs')) { |
my $instd_chk = &instdirectorysrch_check($srch); |
my $instd_chk = &instdirectorysrch_check($srch); |
$response .= '<span class="LC_warning">'.$domd_chk.'</span><br />'; |
$response .= '<span class="LC_warning">'.$domd_chk.'</span><br />'; |
if ($instd_chk eq 'ok') { |
if ($instd_chk eq 'ok') { |
Line 8611 sub build_search_response {
|
Line 8616 sub build_search_response {
|
if ($srch->{'srchin'} ne 'alc') { |
if ($srch->{'srchin'} ne 'alc') { |
$forcenewuser = 1; |
$forcenewuser = 1; |
my $cansrchinst = 0; |
my $cansrchinst = 0; |
if ($srch->{'srchdomain'}) { |
if (($srch->{'srchdomain'}) && ($env{'form.action'} ne 'accesslogs')) { |
my %domconfig = &Apache::lonnet::get_dom('configuration',['directorysrch'],$srch->{'srchdomain'}); |
my %domconfig = &Apache::lonnet::get_dom('configuration',['directorysrch'],$srch->{'srchdomain'}); |
if (ref($domconfig{'directorysrch'}) eq 'HASH') { |
if (ref($domconfig{'directorysrch'}) eq 'HASH') { |
if ($domconfig{'directorysrch'}{'available'}) { |
if ($domconfig{'directorysrch'}{'available'}) { |