update_by_id syntax, working script

5 files changed, 12 insertions, 6 deletions

diff --git a/bucky2/bin/fix-files b/bucky2/bin/fix-files
index 3ef693a..080ef78 100644
--- a/bucky2/bin/fix-files
+++ b/bucky2/bin/fix-files
@@ -4,7 +4,7 @@ use lib "../lib";
 use Bucky;
 
 my $bucky = new Bucky;
-my $file_list = $bucky->db->select("file", {'thread = 2833 AND id > 16186 LIMIT 20'});
+my $file_list = $bucky->db->select("file", {'thread = 2833 AND id > 16186'});
 my $file_map = {};
 foreach my $f (@$file_list) {
   $file_map->{ $f->{'filename'} } = $f->{'id'};
@@ -31,10 +31,8 @@ foreach my $thread_id (@dirs) {
     
     my $file_id = $file_map->{$filename};
     
-    $bucky->db->update('file', {
-      "criteria" => {
-        "id" => $file_id
-      },
+    $bucky->db->update_by_id('file', {
+      "id" => $file_id,
       "record" => {
         "thread" => $thread_id
       }
diff --git a/bucky2/bin/gross.db b/bucky2/bin/gross.db
deleted file mode 100644
index 6df80d0..0000000
--- a/bucky2/bin/gross.db
+++ /dev/null
diff --git a/bucky2/cgi-bin/gross.db b/bucky2/cgi-bin/gross.db
deleted file mode 100644
index b5a1629..0000000
--- a/bucky2/cgi-bin/gross.db
+++ /dev/null
diff --git a/bucky2/cgi-bin/gross.db.1 b/bucky2/cgi-bin/gross.db.1
deleted file mode 100644
index 074684d..0000000
--- a/bucky2/cgi-bin/gross.db.1
+++ /dev/null
diff --git a/bucky2/lib/Bucky/DB.pm b/bucky2/lib/Bucky/DB.pm
index 9690f40..682e48e 100644
--- a/bucky2/lib/Bucky/DB.pm
+++ b/bucky2/lib/Bucky/DB.pm
@@ -56,10 +56,18 @@ sub update
 	my $criteria_string = $self->criteria($criteria);
 	return unless length $criteria_string;
 
-	my $sql = "UPDATE $type SET $key_value_string WHERE $criteria_string";
+	my $sql = "UPDATE $type SET $key_value_string $criteria_string";
 	
 	$self->execute($sql);
 	}
+sub update_by_id
+	{
+	my ($self, $type, $opt) = @_;
+	my $id = $opt->{'id'} + 0;
+	$opt->{'criteria'} = "id=$id";
+	
+	$self->update($type, $opt)
+	}
 sub select
 	{
 	my ($self, $type, $criteria) = @_;