version 1.36, 2007/12/16 17:48:18
|
version 1.38, 2008/01/01 18:48:17
|
Line 281 sub handler {
|
Line 281 sub handler {
|
' /> '. |
' /> '. |
'<input type="button" value="uncheck all" '. |
'<input type="button" value="uncheck all" '. |
'onclick="javascript:uncheckAll(document.pickactions.actions)"'. |
'onclick="javascript:uncheckAll(document.pickactions.actions)"'. |
' /></p>'); |
' /></p><div class="LC_left_float">'); |
|
my ($numitems,$midpoint,$seconddiv,$count); |
|
$numitems = @prefs_order; |
|
$midpoint = int($numitems/2); |
|
if ($numitems%2) { |
|
$midpoint ++; |
|
} |
|
$count = 0; |
foreach my $item (@prefs_order) { |
foreach my $item (@prefs_order) { |
$r->print('<p><label><input type="checkbox" name="actions" value="'.$item.'" /> '.$prefs{$item}->{'text'}.'</label></p>'); |
$r->print('<h4><label><input type="checkbox" name="actions" value="'.$item.'" /> '.$prefs{$item}->{'text'}.'</label></h4>'); |
|
$count ++; |
|
if ((!$seconddiv) && ($count >= $midpoint)) { |
|
$r->print('</div>'."\n".'<div class="LC_left_float">'."\n"); |
|
$seconddiv = 1; |
|
} |
} |
} |
$r->print('<h3>'.&mt('Display options').'</h3>'."\n". |
$r->print('</div><div class="LC_clear_float_footer"></div><h3>'. |
|
&mt('Display options').'</h3>'."\n". |
'<p><span class="LC_nobreak">'.&mt('Display using: ')."\n". |
'<p><span class="LC_nobreak">'.&mt('Display using: ')."\n". |
'<label><input type="radio" name="numcols" value="1">'. |
'<label><input type="radio" name="numcols" value="1">'. |
&mt('one column').'</label> '. |
&mt('one column').'</label> '. |
Line 1333 sub print_usercreation {
|
Line 1346 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 1378 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 2109 sub check_configuser {
|
Line 2131 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 = |