version 1.352, 2010/10/11 14:36:04
|
version 1.354, 2011/01/07 23:35:45
|
Line 638 END
|
Line 638 END
|
|
|
sub entry_form { |
sub entry_form { |
my ($dom,$srch,$forcenewuser,$context,$responsemsg,$crstype) = @_; |
my ($dom,$srch,$forcenewuser,$context,$responsemsg,$crstype) = @_; |
my %domconf = &Apache::lonnet::get_dom('configuration',['usercreation'],$dom); |
|
my ($usertype,$inexact); |
my ($usertype,$inexact); |
if (ref($srch) eq 'HASH') { |
if (ref($srch) eq 'HASH') { |
if (($srch->{'srchin'} eq 'dom') && |
if (($srch->{'srchin'} eq 'dom') && |
Line 646 sub entry_form {
|
Line 645 sub entry_form {
|
($srch->{'srchtype'} eq 'exact') && |
($srch->{'srchtype'} eq 'exact') && |
($srch->{'srchdomain'} ne '') && |
($srch->{'srchdomain'} ne '') && |
($srch->{'srchterm'} ne '')) { |
($srch->{'srchterm'} ne '')) { |
|
my (%curr_rules,%got_rules); |
my ($rules,$ruleorder) = |
my ($rules,$ruleorder) = |
&Apache::lonnet::inst_userrules($srch->{'srchdomain'},'username'); |
&Apache::lonnet::inst_userrules($srch->{'srchdomain'},'username'); |
$usertype = &Apache::lonuserutils::check_usertype($srch->{'srchdomain'},$srch->{'srchterm'},$rules); |
$usertype = &Apache::lonuserutils::check_usertype($srch->{'srchdomain'},$srch->{'srchterm'},$rules,\%curr_rules,\%got_rules); |
} else { |
} else { |
$inexact = 1; |
$inexact = 1; |
} |
} |
Line 942 sub print_user_modification_page {
|
Line 942 sub print_user_modification_page {
|
my ($rules,$ruleorder) = |
my ($rules,$ruleorder) = |
&Apache::lonnet::inst_userrules($ccdomain,'username'); |
&Apache::lonnet::inst_userrules($ccdomain,'username'); |
$usertype = |
$usertype = |
&Apache::lonuserutils::check_usertype($ccdomain,$ccuname,$rules); |
&Apache::lonuserutils::check_usertype($ccdomain,$ccuname,$rules, |
|
\%curr_rules,\%got_rules); |
my $cancreate = |
my $cancreate = |
&Apache::lonuserutils::can_create_user($ccdomain,$context, |
&Apache::lonuserutils::can_create_user($ccdomain,$context, |
$usertype); |
$usertype); |
Line 4384 sub print_main_menu {
|
Line 4385 sub print_main_menu {
|
course => { |
course => { |
upload => 'Upload a File of Course Users', |
upload => 'Upload a File of Course Users', |
singleuser => 'Add/Modify a Course User', |
singleuser => 'Add/Modify a Course User', |
listusers => 'Manage Course Users', |
listusers => 'List and Modify Multiple Course Users', |
}, |
}, |
community => { |
community => { |
upload => 'Upload a File of Community Users', |
upload => 'Upload a File of Community Users', |
singleuser => 'Add/Modify a Community User', |
singleuser => 'Add/Modify a Community User', |
listusers => 'Manage Community Users', |
listusers => 'List and Modify Multiple Community Users', |
}, |
}, |
); |
); |
my %linktitles = ( |
my %linktitles = ( |