Fix emailpost.bml to use trust groups API instead of the login protocol.
Patch by kareila.
diffs (22 lines):
diff -r 8c9107777876 -r 2820a1a7fa83 htdocs/manage/emailpost.bml
--- a/htdocs/manage/emailpost.bml Sun Jul 12 21:34:10 2009 +0000
+++ b/htdocs/manage/emailpost.bml Sun Jul 12 21:47:55 2009 +0000
@@ -443,14 +443,16 @@ body<=
{
"ver" => ( $LJ::UNICODE ? "1" : "0" ),
"username" => $u->{'user'},
- "friendgroups" => 1,
+# "friendgroups" => 1,
"getpickws" => 1,
},
undef,
{ "noauth" => 1, }
);
- my @groups = map { $_->{'name'} } @{ $res->{'friendgroups'} };
+ my $trusted = $u->trust_groups;
+ my @groups = map { $trusted->{$_}->{'groupname'} }
+ sort { $trusted->{$a}->{'sortorder'} <=> $trusted->{$b}->{'sortorder'}
} keys %$trusted;
my @userpics = @{ $res->{'pickws'} };
$ret .= "<?p " . BML::ml('.intro', {'aopts' =>
"href='$LJ::SITEROOT/manage/emailpost.bml?mode=help'"}) . " p?><br />";
_______________________________________________
dw-changelog mailing list
[email protected]
http://lists.dwscoalition.org/mailman/listinfo/dw-changelog
