Changeset 423

Timestamp:

05/01/08 12:21:49 (4 years ago)

Author:

nick

Message:

Command line delete tool

Location:

wiki-toolkit/trunk

Files:

• MANIFEST (modified) (1 diff)
• bin/wiki-toolkit-delete-node (added)
• lib/Wiki/Toolkit/Store/Database.pm (modified) (1 diff)
• t/004_write_and_retrieve.t (modified) (2 diffs)

wiki-toolkit/trunk/MANIFEST

@@ -6 +6 @@
 SIGNATURE
 bin/wiki-toolkit-rename-node
+bin/wiki-toolkit-delete-node
 bin/wiki-toolkit-setupdb
 bin/user-setup-mysql-dbixfts.pl

wiki-toolkit/trunk/lib/Wiki/Toolkit/Store/Database.pm

@@ -1122 +1122 @@
         post_delete_node($name,$node_id,$version,$args{plugins});
     return 1;
+}
+
+# Returns the name of the node with the given ID
+# Not normally used except when doing low-level maintenance
+sub node_name_for_id {
+        my ($self, $node_id) = @_;
+    my $dbh = $self->dbh;
+
+    my $name_sql = "SELECT name FROM node WHERE id=?";
+    my $name_sth = $dbh->prepare($name_sql);
+    $name_sth->execute($node_id);
+        my ($name) = $name_sth->fetchrow_array;
+    $name_sth->finish;
+
+        return $name;
 }
 

wiki-toolkit/trunk/t/004_write_and_retrieve.t

@@ -6 +6 @@
     plan skip_all => "no backends configured";
 } else {
-    plan tests => ( 11 * scalar @Wiki::Toolkit::TestLib::wiki_info );
+    plan tests => ( 12 * scalar @Wiki::Toolkit::TestLib::wiki_info );
 }
 
@@ -38 +38 @@
             "...and false for a nonexistent one" );
 
+    # Test -> node_name_for_id
+    my $id = $wiki->store->{_dbh}->selectrow_array("SELECT id FROM node WHERE name = 'A Node'");
+    is( "A Node", $wiki->store->node_name_for_id($id),
+        "Can fetch the name of a node with a id" );
 }