Minor fixes to make updating actually work.

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

diff --git a/lib/App/IdiotBox.pm b/lib/App/IdiotBox.pm
index 4895302..e9aa7fe 100644 (file)
--- a/lib/App/IdiotBox.pm
+++ b/lib/App/IdiotBox.pm
@@ -70,7 +70,7 @@ sub dispatch_request {
 
         return $self->show_edit_video_page($video, message => $err) if $err;
 
-        $self->videos->replace($video, $uv);
+        $bucket->videos->replace($video, $uv);
 
         $self->show_edit_video_page($video, message => "Video updated");
       },
@@ -79,11 +79,10 @@ sub dispatch_request {
     },
 
     sub (POST + %edit_bucket=&*) {
-      my ($self, $new_name) = @_;
-       die "WTF";
-      my ($ub, $err) = $bucket->update(
-        name => $new_name,
-      );
+      my ($self, undef, $args) = @_;
+      delete $args->{edit_bucket};
+
+      my ($ub, $err) = $bucket->update(%$args);
 
       return $self->show_admin_page(message => $err) if $err;