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

Timestamp:

05/10/08 17:34:11 (4 years ago)

Author:

dom

Message:

whitespace-only change to fix some POD bugs and generally make things read
more nicely. Tab-damage fixing still todo...

Files:

• wiki-toolkit/trunk/lib/Wiki/Toolkit/Store/Database.pm (modified) (10 diffs)

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

@@ -24 +24 @@
   $CAN_USE_ENCODE = $@ ? 0 : 1;
 }
-
 
 =head1 NAME
@@ -143 +142 @@
         }
 }
-
 
 =item B<retrieve_node>
@@ -680 +678 @@
 Uses the internal_links table to identify the nodes that link to this
 one, and re-writes any wiki links in these to point to the new name.
-=cut
+
+=cut
+
 sub rename_node {
     my ($self, %args) = @_;
@@ -827 +827 @@
 highest moderated version, then update the node's contents to hold
 this version.
+
 =cut
 
@@ -928 +929 @@
 
 Sets if new node versions will require moderation or not
+
 =cut
 
@@ -1700 +1702 @@
       metadata_type  => "latitude"
   );
-=cut
+
+=cut
+
 sub list_nodes_by_missing_metadata {
     my ($self, %args) = @_;
@@ -1746 +1750 @@
 
 =item B<_get_list_by_metadata_sql>
+
 Return the SQL to do a match by metadata. Should expect the metadata type
 as the first SQL parameter, and the metadata value as the second.
 
 If possible, should take account of $args{ignore_case}
-=cut
+
+=cut
+
 sub _get_list_by_metadata_sql {
         # SQL 99 version
@@ -1775 +1782 @@
 
 =item B<_get_list_by_missing_metadata_sql>
+
 Return the SQL to do a match by missing metadata. Should expect the metadata 
 type as the first SQL parameter.
 
 If possible, should take account of $args{ignore_case}
-=cut
+
+=cut
+
 sub _get_list_by_missing_metadata_sql {
         # SQL 99 version
@@ -1889 +1899 @@
 
 =item B<list_last_version_before>
-        List the last version of every node before a given date.
-        If no version existed before that date, will return undef for version.
-        Returns a hash of id, name, version and date
-
-        my @nv = $wiki->list_last_version_before('2007-01-02 10:34:11')
-        foreach my $data (@nv) {
-                
-        }
-=cut
+
+    List the last version of every node before a given date.
+    If no version existed before that date, will return undef for version.
+    Returns a hash of id, name, version and date
+
+    my @nv = $wiki->list_last_version_before('2007-01-02 10:34:11')
+    foreach my $data (@nv) {
+        
+    }
+
+=cut
+
 sub list_last_version_before {
         my ($self, $date) = @_;
@@ -1931 +1944 @@
 
 =item B<list_metadata_by_type>
-        List all the currently defined values of the given type of metadata.
-
-        Will only work with the latest moderated version
-
-        # List all of the different metadata values with the type 'category'
-        my @categories = $wiki->list_metadata_by_type('category');
-=cut
+
+    List all the currently defined values of the given type of metadata.
+
+    Will only work with the latest moderated version
+
+    # List all of the different metadata values with the type 'category'
+    my @categories = $wiki->list_metadata_by_type('category');
+
+=cut
+
 sub list_metadata_by_type {
         my ($self, $type) = @_;