(format_size) split it out of perform_installation() (needed for next commit)

1 files changed, 8 insertions, 1 deletions

diff --git a/Rpmdrake/formatting.pm b/Rpmdrake/formatting.pm
index 39453fb1..51ac8935 100644
--- a/Rpmdrake/formatting.pm
+++ b/Rpmdrake/formatting.pm
@@ -33,7 +33,7 @@ use ugtk2 qw(escape_text_for_TextView_markup_format);
 
 use Exporter;
 our @ISA = qw(Exporter);
-our @EXPORT = qw(format_field format_header format_name_n_summary localtime2changelog my_fullname pkg2medium rpm_description split_fullname urpm_name);
+our @EXPORT = qw(format_field format_header format_name_n_summary format_size localtime2changelog my_fullname pkg2medium rpm_description split_fullname urpm_name);
 
 
 sub rpm_description {
@@ -97,4 +97,11 @@ sub format_field {
     '<b>' . escape_text_for_TextView_markup_format($str) . '</b>';
 }
 
+sub format_size {
+    my ($size) = @_;
+    $size >= 0 ? 
+      N("%s of additional disk space will be used.", formatXiB($size)) :
+        N("%s of disk space will be freed.", formatXiB(-$size));
+ }
+
 1;