From 44feb7965cb4fdfbb1478e446041fb1a2c27b063 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Tue, 31 Jul 2007 15:36:35 +0000 Subject: be more consistent in variables/steps naming --- transfugdrake | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/transfugdrake b/transfugdrake index bd76c41..7cb7896 100755 --- a/transfugdrake +++ b/transfugdrake @@ -9,9 +9,9 @@ use interactive; use common; my %distrib = distrib(); -my $win_disk = get_windows_disk(); +my $windows_disk = get_windows_disk(); my @linux_users = list_users(); -my @windows_users = list_windows_users($win_disk); +my @windows_users = list_windows_users($windows_disk); my %windows_bookmarks = list_windows_bookmarks(); my %windows_mail = list_windows_mail(); @@ -30,7 +30,7 @@ my $wiz = wizards->new({ welcome => { name => N("This wizard will help you to import Windows documents and settings in your %s distribution.", $distrib{system}) . "\n" . N("It allows two differents migration methods: you can either import all documents and settings by copying them, or share them between operating systems."), post => sub { - $win_disk or return 'no_win'; + $windows_disk or return 'no_windows'; $linux_user = @linux_users == 1 && $linux_users[0]; $windows_user = @windows_users == 1 && $windows_users[0]; !$linux_user || !$windows_user ? 'users' : 'files'; @@ -53,7 +53,7 @@ my $wiz = wizards->new({ }, ], post => sub { - @windows_items = list_windows_items($win_disk, $windows_user); + @windows_items = list_windows_items($windows_disk, $windows_user); 'files'; }, }, @@ -132,7 +132,7 @@ my $wiz = wizards->new({ name => N("Congratulations, your migration is now completed!"), end => 1, }, - no_win => { + no_windows => { name => N("No Windows installation has been detected."), end => 1, }, -- cgit v1.2.1