Changeset 499

Timestamp:

10/05/09 16:29:44 (15 years ago)

Author:

nanardon

Message:

• make discovery case insensitive

File:

• LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/Aliases.pm (modified) (1 diff)

LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/Aliases.pm

@@ -57 +57 @@
         : ()
     );
+}
+
+sub new {
+    my ($class, $base, $id) = @_;
+    my $sth = $base->db->prepare_cached(q{
+        select name from aliases where lower(name) = lower(?)
+    });
+    $sth->execute($id);
+    my $res = $sth->fetchrow_hashref;
+    $sth->finish;
+    if ($res) {
+        $class->SUPER::new($base, $res->{name});
+    } else {
+        return;
+    }
 }