(get_main_text) split it out of format_pkg_simplifiedinfo()

1 files changed, 17 insertions, 11 deletions

diff --git a/Rpmdrake/gui.pm b/Rpmdrake/gui.pm
index 2ad32c02..d0bb11c1 100644
--- a/Rpmdrake/gui.pm
+++ b/Rpmdrake/gui.pm
@@ -149,6 +149,22 @@ sub get_description {
                                          )) };
 }
 
+sub get_main_text {
+    my ($name, $summary, $is_update, $update_descr) = @_;
+    ugtk2::markup_to_TextView_format(
+        # force align "name - summary" to the right with RTL languages (#33603):
+        if_(lang::text_direction_rtl(), "\x{200f}") .
+          join("\n",
+               format_header(join(' - ', $name, $summary)) .
+                 # workaround gtk+ bug where GtkTextView wronly limit embedded widget size to bigger line's width (#25533):
+                 "\x{200b} \x{feff}" . ' ' x 120,
+               if_($is_update, # is it an update?
+                   format_field(N("Importance: ")) . format_update_field($update_descr->{importance}),
+                   format_field(N("Reason for update: ")) . format_update_field(rpm_description($update_descr->{pre})),
+               ),
+               ''  # extra empty line
+           ));
+}
 
 sub format_pkg_simplifiedinfo {
     my ($pkgs, $key, $urpm, $descriptions) = @_;
@@ -162,17 +178,7 @@ sub format_pkg_simplifiedinfo {
     # discard update fields if not matching:
     my $is_update = ($upkg->flag_upgrade && $update_descr && $update_descr->{pre});
     my $summary = get_summary($key);
-    my $s = ugtk2::markup_to_TextView_format(
-        # force align "name - summary" to the right with RTL languages (#33603):
-        if_(lang::text_direction_rtl(), "\x{200f}") .
-        join("\n", format_header(join(' - ', $name, $summary)) .
-      # workaround gtk+ bug where GtkTextView wronly limit embedded widget size to bigger line's width (#25533):
-                                                      "\x{200b} \x{feff}" . ' ' x 120,
-      if_($is_update, # is it an update?
-	  format_field(N("Importance: ")) . format_update_field($update_descr->{importance}),
-	  format_field(N("Reason for update: ")) . format_update_field(rpm_description($update_descr->{pre})),
-      ),
-      '')); # extra empty line
+    my $s = get_main_text($name, $summary, $is_update, $update_descr);
     push @$s, get_advisory_link($update_descr) if $is_update;
 
     push @$s, get_description($pkg, $update_descr);