summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/scripts/texlive/tlmgrgui.pl
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2016-04-24 01:11:07 +0000
committerNorbert Preining <preining@logic.at>2016-04-24 01:11:07 +0000
commit238f4da71a619747ff78fc5f4cb603914b40024f (patch)
tree8e9f39d3675aad7fab629147098336083a354ebd /Master/texmf-dist/scripts/texlive/tlmgrgui.pl
parent826bc6ca3dfd2afbb7734677720ac7e51575bbba (diff)
tlmgrgui: display verification status
git-svn-id: svn://tug.org/texlive/trunk@40712 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/scripts/texlive/tlmgrgui.pl')
-rwxr-xr-xMaster/texmf-dist/scripts/texlive/tlmgrgui.pl15
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);