From 610ff1b6daf50470ad80e6a7c1770ef817c209c1 Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Mon, 6 Apr 2009 13:27:07 +0200
Subject: add type and id in edge

---
 gen-gdf.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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' } ],
     };
 }
-- 
cgit v1.2.3