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

Timestamp:

05/18/06 18:19:44 (6 years ago)

Author:

nick

Message:

Improve the node versions listing code and tests

Files:

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

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

@@ -1464 +1464 @@
     $sth->execute( $node_id );
 
+        # Need to hold onto the last row by hash ref, so we don't trash
+        #  it every time
+        my %first_data;
+        my $dataref = \%first_data;
+
         # Haul out the data
         my @versions;
         while(my @results = $sth->fetchrow_array) {
-                # TODO: Support metadata multi-rows
-                my %data;
+                my %data = %$dataref;
+
+                # Is it the same version as last time?
+                if(%data && $data{'version'} != $results[2]) {
+                        # New version
+                        push @versions, $dataref;
+                        %data = ();
+                } else {
+                        # Same version as last time, must be more metadata
+                }
+
+                # Grab the core data (will be the same on multi-row for metadata)
                 @data{ qw( node_id name version last_modified ) } = @results;
 
@@ -1477 +1492 @@
                 }
                 if($with_metadata) {
-                        warn("Not supported properly yet");
+                        my ($m_type,$m_value) = @results[$i,($i+1)];
+                        $data{'metadata'}->{$m_type} = $m_value;
                 }
 
-                push @versions, \%data;
+                # Save where we've got to
+                $dataref = \%data;
+        }
+
+        # Handle final row saving
+        if($dataref) {
+                push @versions, $dataref;
         }