[Maypole] Case insensitive search

From: Veljko Vidovic (veljko.vidovic at canadair.ca)
Date: Tue Sep 14 2004 - 18:03:28 BST

Hi, all

I was just wondering if there is nicer way to do case insensitive search,
than
overriding search_where like this:

sub search_where :Exported {
    my $class = shift;
    my $where = (ref $_[0]) ? $_[0] : { @_ };
    my $attr = (ref $_[0]) ? $_[1] : undef;

    #Make case insensitive search
    $attr->{convert} = 'upper';
    $class->SUPER::search_where($where, $attr);
}

Regards,
Veljko

_______________________________________________
maypole mailing list
maypole at lists.netthink.co.uk
http://lists.netthink.co.uk/listinfo/maypole

This archive was generated by hypermail 2.1.3 : Thu Feb 24 2005 - 22:25:56 GMT