Fix add of interval_titles ( fixes previous commit)

1 files changed, 9 insertions, 3 deletions

diff --git a/draksnapshot-config b/draksnapshot-config
index 9d0f485..69575a7 100644..100755
--- a/draksnapshot-config
+++ b/draksnapshot-config
@@ -21,7 +21,7 @@
 ################################################################################
 
 use warnings;
-use strict;
+#use strict;
 
 use lib qw(/usr/lib/libDrakX);
 use standalone;     #- warning, standalone must be loaded very first, for 'explanations'
@@ -105,8 +105,14 @@ my $_menubar = $::isEmbedded ? Gtk3::MenuBar->new($my_win->{rwindow}, @menu_item
 #my $_menubar = create_factory_menu($my_win->{rwindow}, @menu_items);
 ######### menus end
 
+my %interval_titles = (
+    'hourly' => N("Hourly snapshots"),
+    'daily' => N("Daily snapshots"),
+    'weekly' => N("Weekly snapshots"),
+    'monthly' => N("Monthly snapshots"),
+);
 
-my $where;
+my (%entries, $where);
 
 # if not configured, just default where will be mounted the discs by HAL:
 if (!$backup_directory || $::testing) {
@@ -306,7 +312,7 @@ sub add {
 
 sub save() {
     save_keyword('retain', map {
-        my $val = $default_intervals{$_};
+    my $val = $entries{$_}->get_text;
 	if_($val, join("\t", 'retain', $_, $val));
     } @ordered_intervals);