Introducing a very barebones admin UI for managing buckets. I would

[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 2f17260..be69881 100644 (file)
--- a/lib/App/IdiotBox/Store/SQLite.pm
+++ b/lib/App/IdiotBox/Store/SQLite.pm
@@ -71,7 +71,7 @@ sub _bind_announcements {
         ORDER BY
           announcement.made_at DESC
       },
-      insert_sql => sub {
+      insert_one => sub {
         my ($store, undef, $dbh, $args) = @_;
         $store->_sth_for($dbh, q{
           INSERT INTO announcements
@@ -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,18 @@ sub _bind_buckets {
         FROM buckets
         WHERE slug = ?
       },
+      insert_one => q{
+        INSERT INTO buckets
+          (slug, name)
+        VALUES
+          (?, ?)
+      },
+      delete_one => q{
+        DELETE FROM buckets WHERE slug = ?
+      },
+      update_one => q{
+        UPDATE buckets SET slug = ?, name = ? WHERE slug = ?
+      },
     }
   )
 }