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

Timestamp:

05/18/06 14:32:00 (6 years ago)

Author:

nick

Message:

Support for preserving internal_links when doing a drop+recreate

Files:

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

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

@@ -25 +25 @@
         my %metadatas;
         my %contents;
+        my @internal_links;
         my %ids;
 
@@ -85 +86 @@
         }
 
+        # Grab all the internal links
+        $sth = $dbh->prepare("SELECT link_from,link_to FROM internal_links");
+        $sth->execute;
+        while( my($link_from,$link_to) = $sth->fetchrow_array) {
+                my %il;
+                $il{'link_from'} = $link_from;
+                $il{'link_to'} = $link_to;
+                push @internal_links, \%il;
+        }
+
         print "done\n";
 
         # Return it all
-        return (\%nodes,\%contents,\%metadatas,\%ids);
+        return (\%nodes,\%contents,\%metadatas,\@internal_links,\%ids);
 }
 # Fetch from schema version 8, and upgrade to version 9
@@ -96 +107 @@
         my %metadatas;
         my %contents;
+        my @internal_links;
 
         print "Grabbing and upgrading old data... ";
@@ -140 +152 @@
         }
 
+        # Grab all the internal links
+        $sth = $dbh->prepare("SELECT link_from,link_to FROM internal_links");
+        $sth->execute;
+        while( my($link_from,$link_to) = $sth->fetchrow_array) {
+                my %il;
+                $il{'link_from'} = $link_from;
+                $il{'link_to'} = $link_to;
+                push @internal_links, \%il;
+        }
+
         print "done\n";
 
         # Return it all
-        return (\%nodes,\%contents,\%metadatas);
+        return (\%nodes,\%contents,\%metadatas,\@internal_links);
 }
 
@@ -183 +205 @@
 # Put the latest data into the latest database structure
 sub bulk_data_insert {
-        my ($dbh, $nodesref, $contentsref, $metadataref) = @_;
+        my ($dbh, $nodesref, $contentsref, $metadataref, $internallinksref) = @_;
 
         print "Bulk inserting upgraded data... ";
@@ -212 +234 @@
         }
 
-        # Add metadata
-        $sth = $dbh->prepare("INSERT INTO metadata (node_id,version,metadata_type,metadata_value) VALUES (?,?,?,?)");
-        foreach my $key (keys %$metadataref) {
-                my %metadata = %{$metadataref->{$key}};
-                $sth->execute($metadata{'node_id'},
+    # Add metadata
+    $sth = $dbh->prepare("INSERT INTO metadata (node_id,version,metadata_type,metadata_value) VALUES (?,?,?,?)");
+    foreach my $key (keys %$metadataref) {
+        my %metadata = %{$metadataref->{$key}};
+        $sth->execute($metadata{'node_id'},
                       $metadata{'version'},
                       $metadata{'metadata_type'},
                       $metadata{'metadata_value'});
-        }
-
-        print "done\n";
-}
+    }
+
+    # Add internal links
+    $sth = $dbh->prepare("INSERT INTO internal_links (link_from,link_to) VALUES (?,?)");
+    foreach my $ilr (@$internallinksref) {
+        my %il = %{$ilr};
+        $sth->execute($il{'link_from'},
+                      $il{'link_to'});
+    }
+
+    print "done\n";
+}