Changeset cdaf294 for perl/modules/Jabber/lib/BarnOwl/Message

Timestamp:

May 14, 2009, 11:54:55 PM (15 years ago)

Author:

Geoffrey Thomas <geofft@mit.edu>

Branches:

master, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

b8bf727

Parents:

dfaa47d

git-author:

Geoffrey Thomas <geofft@mit.edu> (05/14/09 23:54:35)

git-committer:

Geoffrey Thomas <geofft@mit.edu> (05/14/09 23:54:55)

Message:

Fix an issue with the previous commit on outgoing Jabber messages.

Signed-off-by: Geoffrey Thomas <geofft@mit.edu>

File:

• perl/modules/Jabber/lib/BarnOwl/Message/Jabber.pm (modified) (1 diff)

perl/modules/Jabber/lib/BarnOwl/Message/Jabber.pm

@@ -53 +53 @@
 
 sub personal_context {
-    return "to " . shift->to;
+    my $self = shift;
+    if ($self->is_incoming) {
+        return "to " . $self->to;
+    } else {
+        return "from " . $self->from;
+    }
 }