diff options
author | Thierry Vignaud <tv@mageia.org> | 2012-02-07 21:22:14 +0000 |
---|---|---|
committer | Thierry Vignaud <tv@mageia.org> | 2012-02-07 21:22:14 +0000 |
commit | 30471ac7a60c358578d6fc63d1ebce22baa0912c (patch) | |
tree | a55fe34ffa2e4a4f54c83cf52214a9fe14fba414 | |
parent | b276471734a5aa247418c0700e2eb827ed517e61 (diff) | |
download | rpmdrake-30471ac7a60c358578d6fc63d1ebce22baa0912c.tar rpmdrake-30471ac7a60c358578d6fc63d1ebce22baa0912c.tar.gz rpmdrake-30471ac7a60c358578d6fc63d1ebce22baa0912c.tar.bz2 rpmdrake-30471ac7a60c358578d6fc63d1ebce22baa0912c.tar.xz rpmdrake-30471ac7a60c358578d6fc63d1ebce22baa0912c.zip |
(format_filesize) introduce it
-rw-r--r-- | Rpmdrake/formatting.pm | 6 | ||||
-rw-r--r-- | Rpmdrake/pkg.pm | 3 |
2 files changed, 7 insertions, 2 deletions
diff --git a/Rpmdrake/formatting.pm b/Rpmdrake/formatting.pm index 2bdfc67a..6a617778 100644 --- a/Rpmdrake/formatting.pm +++ b/Rpmdrake/formatting.pm @@ -43,6 +43,7 @@ our @EXPORT = qw( format_list format_name_n_summary format_size + format_filesize format_update_field my_fullname pkg2medium @@ -167,6 +168,11 @@ sub format_size { N("%s of disk space will be freed.", formatXiB(-$size)); } +sub format_filesize { + my ($filesize) = @_; + $filesize ? N("%s of packages will be retrieved.", formatXiB($filesize)) : (); +} + sub format_list { join("\n", map { s/^(\s)/ $1/mg; "- $_" } sort { uc($a) cmp uc($b) } @_) } 1; diff --git a/Rpmdrake/pkg.pm b/Rpmdrake/pkg.pm index 0739c417..40e96d61 100644 --- a/Rpmdrake/pkg.pm +++ b/Rpmdrake/pkg.pm @@ -695,8 +695,7 @@ sub perform_installation { #- (partially) duplicated from /usr/sbin/urpmi :-( : N("The following packages have to be removed for others to be upgraded:")), $r), if_($to_install, $to_install)) : $to_install), format_size($size), - $filesize ? N("%s of packages will be retrieved.", formatXiB($filesize)) - : (), + format_filesize($filesize), N("Is it ok to continue?")), scroll => 1, yesno => 1) or return 1; |