make image_by_name case-insensitive
authorTony Cook <tony@develop-help.com>
Tue, 19 Mar 2013 11:52:15 +0000 (22:52 +1100)
committerTony Cook <tony@develop-help.com>
Tue, 19 Mar 2013 11:52:15 +0000 (22:52 +1100)
site/cgi-bin/modules/BSE/TB/SiteCommon.pm
t/050-local/010-api.t

index 62300cd..c9627e8 100644 (file)
@@ -2,7 +2,7 @@ package BSE::TB::SiteCommon;
 use strict;
 use Carp qw(confess);
 
-our $VERSION = "1.009";
+our $VERSION = "1.010";
 
 =head1 NAME
 
@@ -183,11 +183,11 @@ sub image_by_name {
   unless ($self->{_images_by_name}) {
     $self->{_images_by_name} =
       +{
-       map { $_->name => $_ } grep $_->name, $self->images
+       map { lc $_->name => $_ } grep $_->name, $self->images
        };
   }
 
-  my $image = $self->{_images_by_name}{$name}
+  my $image = $self->{_images_by_name}{lc $name}
     or return;
 
   return $image;
index 3d28256..57c62dd 100644 (file)
@@ -237,7 +237,7 @@ undef $art;
   is($mine[2]->displayOrder, $im3->displayOrder, "last should be last");
 
   # fetch by name
-  my $named = $site->image_by_name($prefix . "a");
+  my $named = $site->image_by_name($prefix . "A");
   is($named->id, $im3->id, "check we got the right image by name");
 
   # fetch by index