[livejournal] r23417: LJSUP-13388: Add some features.

U   trunk/cgi-bin/weblib.pl

Modified: trunk/cgi-bin/weblib.pl
===================================================================
--- trunk/cgi-bin/weblib.pl	2012-12-05 07:46:30 UTC (rev 23416)
+++ trunk/cgi-bin/weblib.pl	2012-12-05 10:20:54 UTC (rev 23417)
@@ -185,6 +185,7 @@
     my @list = LJ::get_authas_list($u, $opts);
 
     # only do most of form if there are options to select from
+    shift @list if $opts->{'remove_self'};
     if (@list > 1 || $list[0] ne $u->{'user'}) {
         my $ret;
         my $label = $BML::ML{'web.authas.label'};
@@ -194,7 +195,8 @@
                                  'selected' => $opts->{'authas'} || $u->{'user'},
                                  'class' => 'hideable',
                                  },
-                                 map { $_, $_ } @list) . " ";
+                                 ## We loaded all users in LJ::get_authas_list(). Here we use their singletons.
+                                 map { my $u = LJ::load_user ($_); ($_, $u->display_name) } @list) . " ";
         $ret .= $opts->{'button_tag'} . LJ::html_submit(undef, $opts->{'button'} || $BML::ML{'web.authas.btn'}) . $opts->{'button_close_tag'};
         return $ret;
     }