From b6fa93258756dacc2816eb91c17337e067ebdf0d Mon Sep 17 00:00:00 2001
From: hylom <hylom@users.sourceforge.jp>
Date: Fri, 24 Mar 2017 20:02:55 +0900
Subject: [PATCH] Model::Boxes: select() now can take name parameter

---
 src/newslash_web/lib/Newslash/Model/Boxes.pm | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/src/newslash_web/lib/Newslash/Model/Boxes.pm b/src/newslash_web/lib/Newslash/Model/Boxes.pm
index 6738df3f..6696e90b 100644
--- a/src/newslash_web/lib/Newslash/Model/Boxes.pm
+++ b/src/newslash_web/lib/Newslash/Model/Boxes.pm
@@ -45,14 +45,18 @@ sub select {
     my $params = {@_};
     my $table_name = TABLE_NAME;
 
-    if ($params->{id}) {
+    my $target = '';
+    $target = 'name' if ($params->{name});
+    $target = 'id' if ($params->{id});
+
+    if ($target) {
         my $dbh = $self->connect_db;
         my $sql = <<"EOSQL";
 SELECT * FROM $table_name
-  WHERE id = ?
+  WHERE $target = ?
 EOSQL
         my $sth = $dbh->prepare($sql);
-        $sth->execute($params->{id});
+        $sth->execute($params->{$target});
         my $rs = $sth->fetchall_arrayref({});
         $self->disconnect_db;
         if (@$rs == 0) {
-- 
2.11.0