diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2006-10-09 12:22:26 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2006-10-09 12:22:26 +0000 |
| commit | 681f957c1a5952b69570557f1972f979a6d499fe (patch) | |
| tree | d2ce5ed4e3a4d61d9adc33ff2ef3833bf5790891 | |
| parent | b9cfdbea18a512e40ebf5d09f4c98e5f5071671a (diff) | |
| download | userdrake-681f957c1a5952b69570557f1972f979a6d499fe.tar userdrake-681f957c1a5952b69570557f1972f979a6d499fe.tar.gz userdrake-681f957c1a5952b69570557f1972f979a6d499fe.tar.bz2 userdrake-681f957c1a5952b69570557f1972f979a6d499fe.tar.xz userdrake-681f957c1a5952b69570557f1972f979a6d499fe.zip | |
(Edit) simplify
| -rwxr-xr-x | userdrake | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -703,7 +703,7 @@ sub Edit() { 0, $us->{o}{acheckexpire} = Gtk2::CheckButton->new(N("Enable account expiration")), 0, gtkpack__(my $h = Gtk2::HBox->new(0, 10), Gtk2::Label->new(N("Account expires (YYYY-MM-DD):")), - map { my $s = $_->[0]; my $value = $_->[1]; my $minv = $_->[2]; my $maxv = $_->[3]; #my $spc = $_->[4]; + map { my ($s, $value, $minv, $maxv) = @$_; #my $spc = $_->[4]; $us->{o}{$s} = Gtk2::SpinButton->new(Gtk2::Adjustment->new($value, $minv , $maxv, 1, 10, 10), 1, 0); } (['expy', $valy, 1970, 10000], ['expm', $valm, 1, 12], ['expd', $vald, 1, 31]), ), |