Misc fixes

Signed-off-by: Florian Pritz <bluewind@xinu.at>

1 files changed, 10 insertions, 1 deletions

diff --git a/Bugzilla/Migrate.pm b/Bugzilla/Migrate.pm
index 74bce149f..e52e1ea87 100644
--- a/Bugzilla/Migrate.pm
+++ b/Bugzilla/Migrate.pm
@@ -280,6 +280,7 @@ sub bugs {
 ###########
 
 sub check_requirements {
+  return;
   my $self = shift;
   my $missing
     = Bugzilla::Install::Requirements::_check_missing($self->REQUIRED_MODULES, 1);
@@ -687,7 +688,7 @@ sub insert_bugs {
   my $dbh = Bugzilla->dbh;
   print get_text('migrate_creating_bugs'), "\n";
 
-  my $init_statuses = Bugzilla::Status->can_change_to();
+  my $init_statuses    = Bugzilla::Status->can_change_to();
   my %allowed_statuses = map { lc($_->name) => 1 } @$init_statuses;
 
   # Bypass the question of whether or not we can file UNCONFIRMED
@@ -788,6 +789,10 @@ sub insert_bugs {
                        WHERE bug_id = ?', undef, $bug->{creation_ts},
         $bug->{creation_ts}, $created->id
       );
+      $dbh->do(
+        'UPDATE longdescs SET bug_when = ?
+                       WHERE bug_id = ?', undef, $bug->{creation_ts}, $created->id
+      );
     }
     if (defined $bug->{delta_ts}) {
       $dbh->do('UPDATE bugs SET delta_ts = ? WHERE bug_id = ?',
@@ -863,6 +868,10 @@ sub _insert_attachments {
   $self->debug(' Inserting attachments:', 2);
   foreach my $attachment (@$attachments) {
     $self->debug($attachment, 3);
+    my $data_path = delete $attachment->{data_path};
+    if (defined $data_path) {
+      $attachment->{data} = IO::File->new($data_path, 'r');
+    }
 
     # Make sure that our pointer is at the beginning of the file,
     # because usually it will be at the end, having just been fully