Committer: wisest-owl
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; }