Allow creating of new buckets by using the importer

[catagits/App-IdiotBox.git] / lib / App / IdiotBox / Store / SQLite.pm

diff --git a/lib/App/IdiotBox/Store/SQLite.pm b/lib/App/IdiotBox/Store/SQLite.pm
index dfd0949..104472b 100644 (file)
--- a/lib/App/IdiotBox/Store/SQLite.pm
+++ b/lib/App/IdiotBox/Store/SQLite.pm
@@ -108,6 +108,7 @@ sub _bind_buckets {
     $_[0],
     App::IdiotBox::Inflator::Bucket->new({
       all_columns => [ qw(slug name) ],
+      body_columns => [ qw(slug name) ],
       spec_columns => [ qw(slug) ],
       class => 'App::IdiotBox::Bucket',
       raw => $_[0],
@@ -122,6 +123,13 @@ sub _bind_buckets {
         FROM buckets
         WHERE slug = ?
       },
+      insert_one => q{
+        INSERT INTO buckets
+          (slug, name)
+        VALUES
+          (?, ?)
+      }
+
     }
   )
 }