Changeset 424

Timestamp:

05/10/08 17:34:11 (5 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...

Location:

wiki-toolkit/trunk

Files:

• Changes (modified) (1 diff)
• lib/Wiki/Toolkit.pm (modified) (7 diffs)
• lib/Wiki/Toolkit/Feed/Atom.pm (modified) (6 diffs)
• lib/Wiki/Toolkit/Feed/Listing.pm (modified) (3 diffs)
• lib/Wiki/Toolkit/Feed/RSS.pm (modified) (7 diffs)
• lib/Wiki/Toolkit/Setup/Database.pm (modified) (4 diffs)
• lib/Wiki/Toolkit/Store/Database.pm (modified) (10 diffs)
• lib/Wiki/Toolkit/Store/Pg.pm (modified) (1 diff)

wiki-toolkit/trunk/Changes

@@ -7 +7 @@
           any bugs that may have been introduced (I'm not convinced the test
           suite covered everything it should have).
+        Fix some badly-formatted POD documentation which accidentally included
+          some code
 
 0.74    9  June 2007

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

@@ -234 +234 @@
 highest moderated version, then update the node's contents to hold
 this version.
+
 =cut
 
@@ -255 +256 @@
 When moderation is required, new versions of a node will sit about
 until they're tagged as moderated, when they will become the new node.
+
 =cut
 
@@ -271 +273 @@
 one, and re-writes any wiki links in these to point to the new name. If
 required, it can mark these updates to other pages as a new version.
+
 =cut
 
@@ -416 +419 @@
       metadata_type  => "latitude"
   );
-=cut
+
+=cut
+
 sub list_nodes_by_missing_metadata {
     my ($self, @args) = @_;
@@ -460 +465 @@
   Otherwise, all node versions (including old ones, and possibly multiple
    per node) are returned.
+
 =cut
 
@@ -479 +485 @@
 Returns all the versions of a node, optionally including the content
 and metadata, as an array of hashes (newest versions first).
-=cut
+
+=cut
+
 sub list_node_all_versions {
     my ($self,@argsarray) = @_;
@@ -502 +510 @@
                 
         }
-=cut
+
+=cut
+
 sub list_last_version_before {
     my ($self,@argsarray) = @_;

wiki-toolkit/trunk/lib/Wiki/Toolkit/Feed/Atom.pm

@@ -77 +77 @@
 
 =cut
+
 sub build_feed_start {
   my ($self,$atom_timestamp) = @_;
@@ -118 +119 @@
 
 =cut
+
 sub build_feed_end {
     my ($self,$feed_timestamp) = @_;
@@ -129 +131 @@
   
 =cut
+
 sub generate_node_list_feed {
   my ($self,$atom_timestamp,@nodes) = @_;
@@ -217 +220 @@
   
 =cut
+
 sub generate_node_name_distance_feed {
   my ($self,$atom_timestamp,@nodes) = @_;
@@ -262 +266 @@
 
 =cut
+
 sub feed_timestamp
 {
@@ -285 +290 @@
 
 =cut
+
 sub parse_feed_timestamp {
     my ($self, $feed_timestamp) = @_;

wiki-toolkit/trunk/lib/Wiki/Toolkit/Feed/Listing.pm

@@ -193 +193 @@
 # Utility method, to help with argument passing where one of a list of 
 #  arguments must be supplied
+#
 #=cut
+
 sub handle_supply_one_of {
     my ($self,$mref,$aref) = @_;
@@ -250 +252 @@
 
 =cut
+
 sub parse_feed_timestamp { die("Not implemented by feed renderer!"); }
-
 
 1;
@@ -279 +281 @@
 under the same terms as Perl itself.
 
-
-=cut
+=cut

wiki-toolkit/trunk/lib/Wiki/Toolkit/Feed/RSS.pm

@@ -66 +66 @@
 
 =cut
+
 sub build_feed_start {
   my ($self,$feed_timestamp) = @_;
@@ -91 +92 @@
 
 =cut
+
 sub build_feed_mid {
     my ($self,$feed_timestamp) = @_;
@@ -137 +139 @@
 
 =cut
+
 sub build_feed_end {
     my ($self,$feed_timestamp) = @_;
@@ -149 +152 @@
 
 =cut
+
 sub generate_node_list_feed {
   my ($self,$feed_timestamp,@nodes) = @_;
@@ -280 +284 @@
 
 =cut
+
 sub generate_node_name_distance_feed {
   my ($self,$feed_timestamp,@nodes) = @_;
@@ -351 +356 @@
 
 =cut
+
 sub feed_timestamp {
     my ($self, $newest_node) = @_;
@@ -383 +389 @@
 
 =cut
+
 sub parse_feed_timestamp {
     my ($self, $feed_timestamp) = @_;

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

@@ -19 +19 @@
         fetch_upgrade_old_to_9(@_);
 }
+
 # Fetch from the old style database, ready for an upgrade to db version 9
 sub fetch_upgrade_old_to_9 {
@@ -101 +102 @@
         return (\%nodes,\%contents,\%metadatas,\@internal_links,\%ids);
 }
+
 # Fetch from schema version 8, and upgrade to version 9
 sub fetch_upgrade_8_to_9 {
@@ -168 +170 @@
 }
 
-
 # Get the version of the database schema
 sub get_database_version {
@@ -201 +202 @@
         }
 }
-
 
 # Put the latest data into the latest database structure

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) = @_;

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

@@ -94 +94 @@
 }
 
-
 1;