version 1.34, 2007/12/12 19:44:53
|
version 1.37, 2007/12/21 04:47:24
|
Line 1333 sub print_usercreation {
|
Line 1333 sub print_usercreation {
|
} |
} |
} elsif ($position eq 'middle') { |
} elsif ($position eq 'middle') { |
my @creators = ('author','course'); |
my @creators = ('author','course'); |
|
my ($rules,$ruleorder) = |
|
&Apache::lonnet::inst_userrules($dom,'username'); |
my %lt = &usercreation_types(); |
my %lt = &usercreation_types(); |
my %checked; |
my %checked; |
if (ref($settings) eq 'HASH') { |
if (ref($settings) eq 'HASH') { |
Line 1363 sub print_usercreation {
|
Line 1365 sub print_usercreation {
|
$datatable .= '<tr'.$css_class.'>'. |
$datatable .= '<tr'.$css_class.'>'. |
'<td><span class="LC_nobreak">'.$lt{$item}. |
'<td><span class="LC_nobreak">'.$lt{$item}. |
'</span></td><td align="right">'; |
'</span></td><td align="right">'; |
foreach my $option ('any','official','unofficial','none') { |
my @options = ('any'); |
|
if (ref($rules) eq 'HASH') { |
|
if (keys(%{$rules}) > 0) { |
|
push(@options,('official','unofficial')); |
|
} |
|
} |
|
push(@options,'none'); |
|
foreach my $option (@options) { |
my $check = ' '; |
my $check = ' '; |
if ($checked{$item} eq $option) { |
if ($checked{$item} eq $option) { |
$check = ' checked="checked" '; |
$check = ' checked="checked" '; |
Line 1391 sub print_usercreation {
|
Line 1400 sub print_usercreation {
|
} |
} |
} |
} |
} |
} |
|
} else { |
|
foreach my $item (@contexts) { |
|
foreach my $auth (@authtypes) { |
|
$checked{$item}{$auth} = ' checked="checked" '; |
|
} |
|
} |
} |
} |
my @authtypes = ('int','krb4','krb5','loc'); |
|
my %title = &context_names(); |
my %title = &context_names(); |
my %authname = &authtype_names(); |
my %authname = &authtype_names(); |
my $rownum = 0; |
my $rownum = 0; |
Line 2104 sub check_configuser {
|
Line 2118 sub check_configuser {
|
sub check_authorstatus { |
sub check_authorstatus { |
my ($dom,$confname,%currroles) = @_; |
my ($dom,$confname,%currroles) = @_; |
my $author_ok; |
my $author_ok; |
if (!$currroles{':'.$dom.':au'}) { |
if (!$currroles{$confname.':'.$dom.':au'}) { |
my $start = time; |
my $start = time; |
my $end = 0; |
my $end = 0; |
$author_ok = |
$author_ok = |