diff options
author | Norbert Preining <preining@logic.at> | 2016-04-24 01:11:07 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2016-04-24 01:11:07 +0000 |
commit | 238f4da71a619747ff78fc5f4cb603914b40024f (patch) | |
tree | 8e9f39d3675aad7fab629147098336083a354ebd | |
parent | 826bc6ca3dfd2afbb7734677720ac7e51575bbba (diff) |
tlmgrgui: display verification status
git-svn-id: svn://tug.org/texlive/trunk@40712 c570f23f-e606-0410-a88d-b1316a301751
-rwxr-xr-x | Master/texmf-dist/scripts/texlive/tlmgrgui.pl | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/Master/texmf-dist/scripts/texlive/tlmgrgui.pl b/Master/texmf-dist/scripts/texlive/tlmgrgui.pl index 51936a78d54..7c6d9a929f7 100755 --- a/Master/texmf-dist/scripts/texlive/tlmgrgui.pl +++ b/Master/texmf-dist/scripts/texlive/tlmgrgui.pl @@ -2578,18 +2578,17 @@ sub update_loaded_location_string { my @tags = sort keys %repos; my @vals; if ($#tags > 0) { - @vals = map { "$_:$repos{$_}" } sort sort_main_first @tags; + @vals = map { + "$_:$repos{$_} (" . + ($remotetlpdb->virtual_get_tlpdb($_)->is_verified ? + __("verified") : __("not verified")) . ")" + } sort sort_main_first @tags; } else { + $arg .= " (" . ($remotetlpdb->is_verified ? + __("verified") : __("not verified")) . ")"; @vals = ( $arg ); } - my $locstr; if ($#tags > 0) { - $locstr = $repos{'main'}; - for my $t (keys %repos) { - if ($t ne 'main') { - $locstr .= " $repos{$t}"; - } - } $loaded_text_button->configure(-text => __("multiple repositories")); } else { $loaded_text_button->configure(-text => $arg); |