Changeset 9300fe5 for perl/lib/BarnOwl/Complete/Zephyr.pm

Timestamp:

Sep 30, 2009, 9:32:36 PM (15 years ago)

Author:

Nelson Elhage <nelhage@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:

27a1903

Parents:

b0a6ea0

git-author:

Nelson Elhage <nelhage@mit.edu> (09/18/09 12:25:26)

git-committer:

Nelson Elhage <nelhage@mit.edu> (09/30/09 21:32:36)

Message:

Zephyr completion: Convert fields to lowercase for completing.

Classes, instances, and username are case-insensitive, so canonicalize
on lower-case for storing completions.

File:

• perl/lib/BarnOwl/Complete/Zephyr.pm (modified) (1 diff)

perl/lib/BarnOwl/Complete/Zephyr.pm

@@ -45 +45 @@
     my $m = shift;
     return unless $m->type eq 'zephyr';
-    $classes{$m->class} = 1;
-    $realms{$m->realm} = 1;
-    $users{BarnOwl::Message::Zephyr::strip_realm($m->sender)} = 1;
+    $classes{lc $m->class} = 1;
+    $realms{lc $m->realm} = 1;
+    $users{lc BarnOwl::Message::Zephyr::strip_realm($m->sender)} = 1;
 }