Pending lists not clearly shown as "pending" in the web GUI (#738)

default/web_tt2/my.tt2

@@ -13,7 +13,7 @@
                 [% END %]
                 <div class="item[% additional_class %]">
                     <div class="item_content">
-                        <a class="item_title" href="[% 'info' | url_rel([l.key]) %]">
+                        <a href="[% 'info' | url_rel([l.key]) %]">
                             [%|obfuscate(conf.spam_protection) %][% l.key %][% END %]
                             [% IF l.value.is_owner || l.value.is_editor || l.value.is_subscriber ~%]
                                 <span class="highlighted">(
@@ -34,6 +34,11 @@
                                 )</span>
                             [% END %]
                         </a>
+                        [%~ IF l.value.status && l.value.status != 'open' ~%]
+                            <span class="warning label">
+                                [% l.value.status | optdesc('status') %]
+                            </span>
+                        [%~ END %]
                         <p class="list_subject">[% l.value.subject %]</p>
                         [% IF l.value.listsuspend %]
                             [% IF l.value.listenddate %]

src/cgi/wwsympa.fcgi.in

@@ -14180,6 +14180,7 @@ sub _set_my_lists_info {
             my $l = $list->{'name'};
             $which->{$l}{'subject'} = $list->{'admin'}{'subject'};
+            $which->{$l}{'status'}  = $list->{'admin'}{'status'}; # new 6.2.46
             $which->{$l}{'is_subscriber'} = 1;    # New on 6.2b.2.
             # Compat. < 6.2b.2.
             $which->{$l}{'info'} = 1;
@@ -14236,6 +14237,7 @@ sub _set_my_lists_info {
             my $l = $list->{'name'};
             $which->{$l}{'subject'} = $list->{'admin'}{'subject'};
+            $which->{$l}{'status'}  = $list->{'admin'}{'status'}; # new 6.2.46
             $which->{$l}{'is_owner'} = 1;    # New on 6.2b.2.
             # Compat. < 6.2b.1.
             $which->{$l}{'info'}  = 1;
@@ -14247,6 +14249,7 @@ sub _set_my_lists_info {
             my $l = $list->{'name'};
             $which->{$l}{'subject'} = $list->{'admin'}{'subject'};
+            $which->{$l}{'status'}  = $list->{'admin'}{'status'}; # new 6.2.46
             $which->{$l}{'is_editor'} = 1;    # New on 6.2b.2.
             # Compat. < 6.2b.1.
             $which->{$l}{'info'}  = 1;