make image_by_name case-insensitive

diff --git a/site/cgi-bin/modules/BSE/TB/SiteCommon.pm b/site/cgi-bin/modules/BSE/TB/SiteCommon.pm
index 62300cd267308c9df730e590139c4227738a5838..c9627e836369193dd3a795ed3a0aad0ebf0e7884 100644 (file)
--- a/site/cgi-bin/modules/BSE/TB/SiteCommon.pm
+++ b/site/cgi-bin/modules/BSE/TB/SiteCommon.pm
@@ -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;

diff --git a/t/050-local/010-api.t b/t/050-local/010-api.t
index 3d282565ca2616364fc099ded83ecb214a295c92..57c62dd3ade8ed97da520ead161e3d094acd1ce3 100644 (file)
--- a/t/050-local/010-api.t
+++ b/t/050-local/010-api.t
@@ -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