diff options
author | Angelo Naselli <anaselli@linux.it> | 2014-06-25 17:57:02 +0200 |
---|---|---|
committer | Angelo Naselli <anaselli@linux.it> | 2014-06-25 17:57:02 +0200 |
commit | cdfeb58a3eba4f25d0ec1890d07345ef8e8cfd3a (patch) | |
tree | b8e5d09e4aba4c13409d3bd643b50d0c40e5f781 | |
parent | ecf275d1ed5ad4da361aa7aaa758a3d217e4a758 (diff) | |
download | manatools-cdfeb58a3eba4f25d0ec1890d07345ef8e8cfd3a.tar manatools-cdfeb58a3eba4f25d0ec1890d07345ef8e8cfd3a.tar.gz manatools-cdfeb58a3eba4f25d0ec1890d07345ef8e8cfd3a.tar.bz2 manatools-cdfeb58a3eba4f25d0ec1890d07345ef8e8cfd3a.tar.xz manatools-cdfeb58a3eba4f25d0ec1890d07345ef8e8cfd3a.zip |
loaded list of ntp servers from TimeZone
-rw-r--r-- | lib/AdminPanel/Module/Clock.pm | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/lib/AdminPanel/Module/Clock.pm b/lib/AdminPanel/Module/Clock.pm index de733575..673aacc7 100644 --- a/lib/AdminPanel/Module/Clock.pm +++ b/lib/AdminPanel/Module/Clock.pm @@ -168,8 +168,14 @@ sub start { }; +## returns ntp servers in the format +## Zone|Nation: server +sub _get_NTPservers { + my $self = shift; - + my $servs = $self->sh_tz->ntpServers(); + [ map { "$servs->{$_}: $_" } sort { $servs->{$a} cmp $servs->{$b} || $a cmp $b } keys %$servs ]; +} sub _adminClockPanel { my $self = shift; @@ -223,9 +229,9 @@ sub _adminClockPanel { my $hbox1 = $factory->createHBox($vbox); $factory->createLabel($hbox1,$self->loc->N("Server:")); my $ntpServers = $factory->createComboBox( $hbox1, "" ); - -# - + my $servers = $self->_get_NTPservers(); + my $itemCollection = $self->sh_gui->arrayListToYItemCollection({item_list => $servers,}); + $ntpServers->addItems($itemCollection); |