aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--Rpmdrake/gui.pm8
1 files changed, 4 insertions, 4 deletions
diff --git a/Rpmdrake/gui.pm b/Rpmdrake/gui.pm
index 7d8be590..5f09ea62 100644
--- a/Rpmdrake/gui.pm
+++ b/Rpmdrake/gui.pm
@@ -80,7 +80,7 @@ sub get_summary {
}
sub build_expander {
- my ($key, $label, $type, $get_data) = @_;
+ my ($pkg, $label, $type, $get_data) = @_;
my $textview;
gtkadd(
gtkshow(my $exp = gtksignal_connect(
@@ -90,7 +90,7 @@ sub build_expander {
return if $first;
$first = 1;
slow_func($::main_window->window, sub {
- extract_header($pkgs->{$key}, $urpm, $type);
+ extract_header($pkg, $urpm, $type);
gtktext_insert($textview, $get_data->() || [ [ N("(Not available)") ] ]);
});
})),
@@ -152,7 +152,7 @@ sub format_pkg_simplifiedinfo {
)) ];
$exp0->set_use_markup(1);
push @$s, [ "\n\n" ];
- push @$s, [ build_expander($key, N("Files:"), 'files', sub {
+ push @$s, [ build_expander($pkg, N("Files:"), 'files', sub {
exists $pkg->{files} ?
ugtk2::markup_to_TextView_format('<tt>' . $spacing .
join("\n$spacing",
@@ -160,7 +160,7 @@ sub format_pkg_simplifiedinfo {
) . '</tt>') #- to highlight information
: ()}) ];
push @$s, [ "\n\n" ];
- push @$s, [ build_expander($key, N("Changelog:"), 'changelog', sub { $pkg->{changelog} }) ];
+ push @$s, [ build_expander($pkg, N("Changelog:"), 'changelog', sub { $pkg->{changelog} }) ];
$s;
}