Package: release.debian.org Severity: normal User: release.debian....@packages.debian.org Usertags: unblock
Please unblock package libconfig-model-tkui-perl The current package has a confusing bug: the GUI shows configuration values as modified even though they are not specified in the configuration files. This patch also fixes a bug where wrong values or values with warnings can be hidden from the user. This patch was taken from upstream. Thanks unblock libconfig-model-tkui-perl/1.337-2 -- System Information: Debian Release: wheezy/sid APT prefers unstable APT policy: (990, 'unstable'), (500, 'testing'), (500, 'stable'), (1, 'experimental') Architecture: amd64 (x86_64) Foreign Architectures: i386 Kernel: Linux 3.2.0-3-amd64 (SMP w/4 CPU cores) Locale: LANG=fr_FR.UTF-8, LC_CTYPE=fr_FR.UTF-8 (charmap=UTF-8) Shell: /bin/sh linked to /bin/bash
diff -Nru libconfig-model-tkui-perl-1.337/debian/changelog libconfig-model-tkui-perl-1.337/debian/changelog --- libconfig-model-tkui-perl-1.337/debian/changelog 2012-06-29 14:26:50.000000000 +0200 +++ libconfig-model-tkui-perl-1.337/debian/changelog 2012-09-19 14:16:29.000000000 +0200 @@ -1,3 +1,9 @@ +libconfig-model-tkui-perl (1.337-2) unstable; urgency=low + + * added upstream patch to fix green arrow display (Closes: #688097) + + -- Dominique Dumont <d...@debian.org> Wed, 19 Sep 2012 14:14:17 +0200 + libconfig-model-tkui-perl (1.337-1) unstable; urgency=low * Imported Upstream version 1.337: diff -Nru libconfig-model-tkui-perl-1.337/debian/patches/fix-green-arrow-and-show-hide.patch libconfig-model-tkui-perl-1.337/debian/patches/fix-green-arrow-and-show-hide.patch --- libconfig-model-tkui-perl-1.337/debian/patches/fix-green-arrow-and-show-hide.patch 1970-01-01 01:00:00.000000000 +0100 +++ libconfig-model-tkui-perl-1.337/debian/patches/fix-green-arrow-and-show-hide.patch 2012-09-19 14:16:29.000000000 +0200 @@ -0,0 +1,40 @@ +Description: Fix green arrow and show hide.patch + This patch fixes the logic used to display the + green arrow. + Also don't hide values which have errors or warnings. + when + the 'show only custom values' checkbox is set. +Bug-Debian: 688097 +Forwarded: yes +Author: dod +--- a/lib/Config/Model/TkUI.pm ++++ b/lib/Config/Model/TkUI.pm +@@ -835,13 +835,15 @@ + my $value = $leaf_object->fetch(check => 'no', silent => 1) ; + my $tkt = $cw->{tktree} ; + +- my ($is_customised, $img) ; ++ my ($is_customised, $img,$has_error,$has_warning) ; + { + no warnings qw/uninitialized/ ; +- $is_customised = ! ( $std_v eq $value) ; ++ $is_customised = !! ( defined $value and ( $std_v ne $value )) ; + $img = $cust_img if $is_customised ; +- $img = $warn_img if $leaf_object->warning_msg ; +- $img = $error_img if $leaf_object->error_msg; ++ $has_warning = !! $leaf_object->warning_msg ; ++ $img = $warn_img if $has_warning ; ++ $has_error = !! $leaf_object->error_msg; ++ $img = $error_img if $has_error; + } + + if (defined $img) { +@@ -859,7 +861,7 @@ + + $tkt->itemCreate($path,3, -text => $cw->trim_value($std_v)) ; + +- my $meth = ($cw->{show_only_custom} and not $is_customised) ? 'hide' : 'show' ; ++ my $meth = ($cw->{show_only_custom} and not ($is_customised or $has_error or $has_warning)) ? 'hide' : 'show' ; + $tkt->$meth(entry => $path) ; + } + diff -Nru libconfig-model-tkui-perl-1.337/debian/patches/series libconfig-model-tkui-perl-1.337/debian/patches/series --- libconfig-model-tkui-perl-1.337/debian/patches/series 2012-06-29 14:26:50.000000000 +0200 +++ libconfig-model-tkui-perl-1.337/debian/patches/series 2012-09-19 14:16:29.000000000 +0200 @@ -0,0 +1 @@ +fix-green-arrow-and-show-hide.patch