version 1.206, 2009/01/03 19:34:21
|
version 1.207, 2009/01/20 16:38:39
|
Line 1572 sub domains_row {
|
Line 1572 sub domains_row {
|
my ($r,$status,$item,$all_doms,$access_controls,$now,$then) = @_; |
my ($r,$status,$item,$all_doms,$access_controls,$now,$then) = @_; |
my ($num,$scope,$end,$start) = &set_identifiers($status,$item,$now,$then, |
my ($num,$scope,$end,$start) = &set_identifiers($status,$item,$now,$then, |
'domains'); |
'domains'); |
my $dom_select = '<select name="dom_'.$num.'" size="4" multiple="true">'. |
my $dom_select = '<select name="dom_'.$num.'" size="4" multiple="multiple">'. |
' <option value="">'.&mt('Please select').'</option>'; |
' <option value="">'.&mt('Please select').'</option>'; |
if ($status eq 'old') { |
if ($status eq 'old') { |
my $content = $$access_controls{$item}; |
my $content = $$access_controls{$item}; |
Line 1716 sub role_selectors {
|
Line 1716 sub role_selectors {
|
'group' => $groups, |
'group' => $groups, |
); |
); |
foreach my $item ('role','access','section','group') { |
foreach my $item ('role','access','section','group') { |
$output .= '<td><select name="'.$item.$longid.'" multiple="true" size="4">'."\n"; |
$output .= '<td><select name="'.$item.$longid.'" multiple="multiple" size="4">'."\n"; |
foreach my $entry (@{$allitems{$item}}) { |
foreach my $entry (@{$allitems{$item}}) { |
if ($caller eq 'display') { |
if ($caller eq 'display') { |
if ((@{$$content{'roles'}{$role_id}{$item}} > 0) && |
if ((@{$$content{'roles'}{$role_id}{$item}} > 0) && |