summary refs log tree commit diff
diff options
context:
space:
mode:
Diffstat (limited to '')
-rwxr-xr-xgen-gdf.pl4
1 files changed, 3 insertions, 1 deletions
diff --git a/gen-gdf.pl b/gen-gdf.pl
index 4ac0c65..b849637 100755
--- a/gen-gdf.pl
+++ b/gen-gdf.pl
@@ -57,6 +57,7 @@ while ( my $package = $packages->next ) {
 say "done";
 
 print "creating edges ... ";
+my $id = 0;
 $struct_graph->{ gexf }->{ graph }->{ edges } = {};
 my $edges = $dbmap->resultset( 'edges' )->search;
 while ( my $edge = $edges->next ) {
@@ -64,7 +65,8 @@ while ( my $edge = $edges->next ) {
         cardinal => 1,
         source   => $edge->dist_from,
         target   => $edge->dist_to,
-
+        type => 'dir',
+        id => ++$id,
         #attvalue	=> [ { id => 3, value => 'prereq' } ],
     };
 }