|
version 1.1, 2008/02/24 23:23:39
|
version 1.2, 2008/02/29 21:01:36
|
|
Line 73 sub handler {
|
Line 73 sub handler {
|
| my %domconfig = &Apache::lonnet::get_dom('configuration',['usercreation'],$domain); |
my %domconfig = &Apache::lonnet::get_dom('configuration',['usercreation'],$domain); |
| if (ref($domconfig{'usercreation'}) eq 'HASH') { |
if (ref($domconfig{'usercreation'}) eq 'HASH') { |
| if (ref($domconfig{'usercreation'}{'cancreate'}) eq 'HASH') { |
if (ref($domconfig{'usercreation'}{'cancreate'}) eq 'HASH') { |
| if ($domconfig{'usercreation'}{'cancreate'}{'selfenroll'} ne 'none') { |
if ($domconfig{'usercreation'}{'cancreate'}{'selfcreate'} ne 'none') { |
| $cancreate = $domconfig{'usercreation'}{'cancreate'}{'selfenroll'}; |
$cancreate = $domconfig{'usercreation'}{'cancreate'}{'selfcreate'}; |
| } |
} |
| } |
} |
| } |
} |
|
Line 754 sub guest_format_check {
|
Line 754 sub guest_format_check {
|
| if (@user_rules > 0) { |
if (@user_rules > 0) { |
| my %rule_check = |
my %rule_check = |
| &Apache::lonnet::inst_rulecheck($domain,$useremail,undef, |
&Apache::lonnet::inst_rulecheck($domain,$useremail,undef, |
| 'selfenroll',\@user_rules); |
'selfcreate',\@user_rules); |
| if (keys(%rule_check) > 0) { |
if (keys(%rule_check) > 0) { |
| foreach my $item (keys(%rule_check)) { |
foreach my $item (keys(%rule_check)) { |
| if ($rule_check{$item}) { |
if ($rule_check{$item}) { |
![[BACK]](/icons/back.gif){kind=icon}
Return to createaccount.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface