version 1.49, 2006/07/07 21:25:02
|
version 1.50, 2006/07/07 21:57:58
|
Line 2295 sub change_privs_form {
|
Line 2295 sub change_privs_form {
|
my $exp_or_del = 0; |
my $exp_or_del = 0; |
if (ref($$memchg{'deletion'}) eq 'ARRAY') { |
if (ref($$memchg{'deletion'}) eq 'ARRAY') { |
if (@{$$memchg{'deletion'}} > 0) { |
if (@{$$memchg{'deletion'}} > 0) { |
$r->print('<tr><td> </td><td colspan="3"><b>'.$lt{'tode'}.':</b><br /><ul>'); |
$r->print('<b>'.$lt{'tode'}.':</b><br /><ul>'); |
foreach my $user (@{$$memchg{'deletion'}}) { |
foreach my $user (@{$$memchg{'deletion'}}) { |
$r->print('<li>'.$$userdata{$user}[$$idx{fullname}]. |
$r->print('<li>'.$$userdata{$user}[$$idx{fullname}]. |
' ('.$user.')</li>'); |
' ('.$user.')</li>'); |
Line 2306 sub change_privs_form {
|
Line 2306 sub change_privs_form {
|
} |
} |
if (ref($$memchg{'expire'}) eq 'ARRAY') { |
if (ref($$memchg{'expire'}) eq 'ARRAY') { |
if (@{$$memchg{'expire'}} > 0) { |
if (@{$$memchg{'expire'}} > 0) { |
$r->print('<tr><td> </td><td colspan="3"><b>'.$lt{'toex'}.':</b><br /><ul>'); |
$r->print('<b>'.$lt{'toex'}.':</b><br /><ul>'); |
foreach my $user (@{$$memchg{'expire'}}) { |
foreach my $user (@{$$memchg{'expire'}}) { |
$r->print('<li>'.$$userdata{$user}[$$idx{fullname}]. |
$r->print('<li>'.$$userdata{$user}[$$idx{fullname}]. |
' ('.$user.')</li>'); |
' ('.$user.')</li>'); |