diff options
| -rwxr-xr-x[-rw-r--r--] | draksnapshot-config | 12 |
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); |