diff options
| author | Guillaume Cottenceau <gc@mandriva.com> | 2004-02-16 14:40:36 +0000 |
|---|---|---|
| committer | Guillaume Cottenceau <gc@mandriva.com> | 2004-02-16 14:40:36 +0000 |
| commit | 457d47aed897d86887bedb8d9aea4cd85e47b660 (patch) | |
| tree | 9579845935aec65f2ac784505048a627655280d4 | |
| parent | d209c96900399180c1b52b53c87eb292d08eee3d (diff) | |
| download | rpmdrake-457d47aed897d86887bedb8d9aea4cd85e47b660.tar rpmdrake-457d47aed897d86887bedb8d9aea4cd85e47b660.tar.gz rpmdrake-457d47aed897d86887bedb8d9aea4cd85e47b660.tar.bz2 rpmdrake-457d47aed897d86887bedb8d9aea4cd85e47b660.tar.xz rpmdrake-457d47aed897d86887bedb8d9aea4cd85e47b660.zip | |
help perl_checker understand perl code (gave syntax error)
| -rwxr-xr-x | rpmdrake | 12 |
1 files changed, 4 insertions, 8 deletions
@@ -881,16 +881,12 @@ Is it ok to continue?", to_utf8($urpm->translate_why_removed($urpm->{state}, @{$ 0, 1, 1, 2, 'fill', 'fill', 0, 0); $table->attach(create_scrolled_window($info), 1, 2, 1, 2, ['expand', 'fill'], ['expand', 'fill'], 0, 0); + my %mode2title = (remove => N("Software Packages Removal"), + update => N("Mandrake Update"), + install => N("Software Packages Installation")); gtkadd($w->{window}, gtkpack_(Gtk2::VBox->new(0, 3), - if_(!$::isEmbedded, - 0, Gtk2::Banner->new("title-$MODE", - { remove => N("Software Packages Removal"), - update => N("Mandrake Update"), - install => N("Software Packages Installation"), - }->{$MODE} - ), - ), + if_(!$::isEmbedded, 0, Gtk2::Banner->new("title-$MODE", $mode2title{$MODE})), 1, gtkadd(gtkset_shadow_type(gtkset_border_width(Gtk2::Frame->new, 3), 'none'), gtkpack_(Gtk2::VBox->new(0, 3), 0, gtkpack__(Gtk2::HBox->new(0, 10), |