diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-04-16 21:37:34 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-04-16 21:37:34 +0000 |
| commit | dbb2f1b8d650e53f04a8a176d12c1e116bbe5f89 (patch) | |
| tree | 238cf075b032023c0ecd0c2774142d94a092ff39 /perl-install/install/steps_gtk.pm | |
| parent | dab58304559132dcbb7f7f368928ddc8e34ec106 (diff) | |
| download | drakx-dbb2f1b8d650e53f04a8a176d12c1e116bbe5f89.tar drakx-dbb2f1b8d650e53f04a8a176d12c1e116bbe5f89.tar.gz drakx-dbb2f1b8d650e53f04a8a176d12c1e116bbe5f89.tar.bz2 drakx-dbb2f1b8d650e53f04a8a176d12c1e116bbe5f89.tar.xz drakx-dbb2f1b8d650e53f04a8a176d12c1e116bbe5f89.zip | |
(choosePackagesTree) display informations, even if we failed to retrieve the package header
the later is needed only for description.
"No description" will be merged in from rpmdrake
Diffstat (limited to 'perl-install/install/steps_gtk.pm')
| -rw-r--r-- | perl-install/install/steps_gtk.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/install/steps_gtk.pm b/perl-install/install/steps_gtk.pm index e484416dc..6909ec7b3 100644 --- a/perl-install/install/steps_gtk.pm +++ b/perl-install/install/steps_gtk.pm @@ -407,12 +407,12 @@ sub choosePackagesTree { my $imp = translate($install::pkgs::compssListDesc{$p->flag_base ? 5 : $p->rate}); my $tag = { 'foreground' => 'royalblue3' }; - $@ ? N("Bad package") : + [ [ N("Name: "), $tag ], [ $p->name . "\n" ], [ N("Version: "), $tag ], [ $p->version . '-' . $p->release . "\n" ], [ N("Size: "), $tag ], [ N("%d KB\n", $p->size / 1024) ], if_($imp, [ N("Importance: "), $tag ], [ "$imp\n" ]), - [ "\n" ], [ formatLines($p->description) ] ]; + [ "\n" ], [ formatLines($p->description || N("No description")) ] ]; }, toggle_nodes => sub { my $set_state = shift @_; |