summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorSebastien Dupont <sdupont@mandriva.com>2002-01-15 04:09:10 +0000
committerSebastien Dupont <sdupont@mandriva.com>2002-01-15 04:09:10 +0000
commitd391a40b454b02bc4e69b002fb2bcc87d28814ae (patch)
tree78d2bc3c3d7e803f93b6c56ac232f7dbff52d2ca /perl-install/standalone
parent564cf94a56903bbe191d92fb2c5b11cf8ce0765d (diff)
downloaddrakx-backup-do-not-use-d391a40b454b02bc4e69b002fb2bcc87d28814ae.tar
drakx-backup-do-not-use-d391a40b454b02bc4e69b002fb2bcc87d28814ae.tar.gz
drakx-backup-do-not-use-d391a40b454b02bc4e69b002fb2bcc87d28814ae.tar.bz2
drakx-backup-do-not-use-d391a40b454b02bc4e69b002fb2bcc87d28814ae.tar.xz
drakx-backup-do-not-use-d391a40b454b02bc4e69b002fb2bcc87d28814ae.zip
fix progress bar problem.
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/drakfont8
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont
index 63d63753d..48487eced 100755
--- a/perl-install/standalone/drakfont
+++ b/perl-install/standalone/drakfont
@@ -219,9 +219,9 @@ sub chk_empty_xfs_path {
sub search_installed_fonts {
list_fontpath();
- $interactive and progress($pbar, 0.01, _("Search installed fonts"));
+ $interactive and progress($pbar, 0.1, _("Search installed fonts"));
push @installed_fonts, all($_) foreach @installed_fonts_path;
- $interactive and progress($pbar, 1/4, _("Unselect fonts installed"));
+ $interactive and progress($pbar, 0.1, _("Unselect fonts installed"));
}
sub search_installed_fonts_full_path {
@@ -251,7 +251,7 @@ sub search_windows_font {
grep ( /$i$/, @font_list) or push @font_list, "$win_dir/$_->[1]/fonts/$i";
}
}
- $interactive && $nb_dir and progress($pbar, 1/4, _("done"));
+ $interactive && $nb_dir and progress($pbar, 1, _("done"));
}
if(!@font_list) {
print "drakfont:: could not find any font in /win*/fonts \n";
@@ -293,7 +293,7 @@ sub search_dir_font {
}
$interactive and progress($pbar, 0.50/@install, _("Reselect correct fonts"));
}
- $interactive and progress($pbar, 1/3, _("done"));
+ $interactive and progress($pbar, 1, _("done"));
!@font_list && $interactive and display_error(_("could not find any font.\n"));
}