[evolvis-commits] r13219: Start migrating tasks

mirabilos at evolvis.org mirabilos at evolvis.org
Mon Feb 28 02:23:25 CET 2011


Author: mirabilos
Date: 2011-02-28 02:23:24 +0100 (Mon, 28 Feb 2011)
New Revision: 13219

Modified:
   trunk/gforge_base/evolvisforge-5.1/gforge/contrib/migrate-from-gfas.pl
Log:
Start migrating tasks

Modified: trunk/gforge_base/evolvisforge-5.1/gforge/contrib/migrate-from-gfas.pl
===================================================================
--- trunk/gforge_base/evolvisforge-5.1/gforge/contrib/migrate-from-gfas.pl	2011-02-28 01:23:22 UTC (rev 13218)
+++ trunk/gforge_base/evolvisforge-5.1/gforge/contrib/migrate-from-gfas.pl	2011-02-28 01:23:24 UTC (rev 13219)
@@ -36,7 +36,7 @@
     
     my $sql1 = "SELECT " . join (", ", @scols) . " FROM $tsrc $where" ;
     my $sth1 = $dbhAS->prepare ($sql1) ;
-    print STDERR Dumper $sql1 ;
+    # print STDERR Dumper $sql1 ;
 
     my $sql2 = "INSERT INTO $tdest (" . join (", ", map { $mapping->{$_} } @scols)
 	. ") VALUES (" . join (", ", map { "?" } @scols) . ")" ;
@@ -623,6 +623,43 @@
 	die "Rolling back" ;
 } ;
 
+### Task managers
+$map = {
+    'tracker_id' => 'group_project_id',
+    'project_id' => 'group_id',
+    'tracker_name' => 'project_name',
+    'description' => 'description',
+    'is_public' => 'is_public',
+    'email_address' => 'send_all_posts_to',
+} ;
+print STDERR "Migrating task managers\n" ;
+migrate_with_mapping ('tracker', 'project_group_list', $map, 'where datatype=2')
+    or do {
+	$dbhFF->rollback ;
+	die "Rolling back" ;
+} ;
+
+$map = {
+    'ti.tracker_item_id' => 'project_task_id',
+    'ti.tracker_id' => 'group_project_id',
+    'case when ti.status_id = 0 then 2 else ti.status_id end' => 'status_id',
+    'ti.priority' => 'priority',
+    'ti.submitted_by' => 'created_by',
+    'extract (epoch from ti.open_date)::integer' => 'start_date',
+    'extract (epoch from ti.close_date)::integer' => 'end_date',
+    'ti.summary' => 'summary',
+    'ti.details' => 'details',
+    'extract (epoch from ti.last_modified_date)::integer' => 'last_modified_date',
+    'ti.parent_id' => 'parent_id',
+} ;
+migrate_with_mapping ('tracker_item ti, tracker t', 'project_task', $map, 'where ti.tracker_id = t.tracker_id and t.datatype = 2')
+    or do {
+	$dbhFF->rollback ;
+	die "Rolling back" ;
+} ;
+		      
+
+
 sub push_sequence_for_table {
     my $table = shift ;
     my $field = shift ;
@@ -665,6 +702,8 @@
 &push_sequence_for_table ('artifact_extra_field_data', 'data_id', 'artifact_extra_field_data_data_id_seq') ;
 &push_sequence_for_table ('artifact_canned_responses', 'id', 'artifact_canned_response_id_seq') ;
 &push_sequence_for_table ('artifact_query', 'artifact_query_id', 'artifact_query_artifact_query_id_seq') ;
+&push_sequence_for_table ('project_group_list', 'group_project_id', 'project_group_list_pk_seq') ;
+&push_sequence_for_table ('project_task', 'project_task_id', 'project_task_pk_seq') ;
 
 print STDERR "Migration script completed OK\n" ;
-$dbhFF->commit ; print STDERR "Committed\n" ;
+# $dbhFF->commit ; print STDERR "Committed\n" ;



More information about the evolvis-commits mailing list