diff options
| author | Nicolas Lécureuil <neoclust@mageia.org> | 2020-06-02 11:36:28 +0200 |
|---|---|---|
| committer | Nicolas Lécureuil <neoclust@mageia.org> | 2020-06-02 11:36:28 +0200 |
| commit | d4b68c2aa72b106d364f1203702e271efc2fd9b0 (patch) | |
| tree | 34a7e5847e8a6e506ca0d59ab0d3fbc72af0c308 /draksnapshot-config | |
| parent | 6720e3e361b89e5a425f4eb2cbb4c7edff884cb3 (diff) | |
| download | draksnapshot-d4b68c2aa72b106d364f1203702e271efc2fd9b0.tar draksnapshot-d4b68c2aa72b106d364f1203702e271efc2fd9b0.tar.gz draksnapshot-d4b68c2aa72b106d364f1203702e271efc2fd9b0.tar.bz2 draksnapshot-d4b68c2aa72b106d364f1203702e271efc2fd9b0.tar.xz draksnapshot-d4b68c2aa72b106d364f1203702e271efc2fd9b0.zip | |
Fix add of interval_titles ( fixes previous commit)
Diffstat (limited to 'draksnapshot-config')
| -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); |