[Bps-public-commit] r8838 - rt2-to-rt3/trunk

[falcone at bestpractical.com]

Author: falcone
Date: Thu Aug 30 13:48:59 2007
New Revision: 8838

Modified:
   rt2-to-rt3/trunk/   (props changed)
   rt2-to-rt3/trunk/rt-2.0-to-dumpfile

Log:
 r24261 at ketch:  falcone | 2007-08-30 13:46:22 -0400
 * bring over the links during an incremental import, otherwise
   merges for tickets after the initial import won't have
   proper Links


Modified: rt2-to-rt3/trunk/rt-2.0-to-dumpfile
==============================================================================
--- rt2-to-rt3/trunk/rt-2.0-to-dumpfile	(original)
+++ rt2-to-rt3/trunk/rt-2.0-to-dumpfile	Thu Aug 30 13:48:59 2007
@@ -316,6 +316,17 @@
     print STDERR "Exporting Users\n";
     my @users = export_users($ds);
     $ds->{'User'} = \@users;
+    print STDERR "Exporting Links\n";
+    my $links = RT::Links->new($RT::SystemUser);
+    $links->UnLimit();
+    while ( my $l = $links->Next ) {
+        my $link_ds;
+        foreach my $param ( sort @{$FIELD_MAPPINGS{'RT::Link'}} ) {
+            $link_ds->{$param} = $l->_Value($param)
+              if ( $l->_Value($param) );
+        }
+        push ( @{ $ds->{'Link'} }, $link_ds );
+    }
 
     open( META, ">$export_dir_base/metadata" );
     print META "sub Data {\n";