From 07241f55a28b270068e6cde4384058abea1d3d17 Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Mon, 6 Apr 2009 14:13:07 +0200
Subject: remove modules, add datetime, add version

---
 cpan-graph.pl | 16 +++++-----------
 1 file changed, 5 insertions(+), 11 deletions(-)

diff --git a/cpan-graph.pl b/cpan-graph.pl
index c9cf369..797a0d5 100755
--- a/cpan-graph.pl
+++ b/cpan-graph.pl
@@ -8,6 +8,7 @@ use lib ( 'lib' );
 use CPAN::Testers;
 use CPAN::cpants;
 use CPAN::mapcpan;
+use DateTime;
 
 my $options = GetOptions(
     'dbtest=s' => \my $db_test,
@@ -32,16 +33,6 @@ while ( my $dist = $dists->next ) {
     my $map_package = $dbmap->resultset( 'packages' )
         ->find_or_create( { dist => $dist->dist, } );
 
-    my $modules
-        = $sqlall->resultset( 'modules' )->search( { dist => $dist->id } );
-    while ( my $module = $modules->next ) {
-        my $map_module = $dbmap->resultset( 'modules' )->find_or_create(
-            {   module  => $module->module,
-                in_dist => $map_package->id,
-            }
-        );
-    }
-
     my $tests_pass = $sqltest->resultset( 'reports' )
         ->count( { distribution => $dist->dist, status => 'PASS' } );
     my $tests_fail = $sqltest->resultset( 'reports' )
@@ -51,10 +42,13 @@ while ( my $dist = $dists->next ) {
     my $tests_success = int( ( $tests_pass / $total_tests ) * 100 );
 
     my $author = $sqlall->resultset( 'author' )->find( $dist->author );
+    my ($year, $month, $day) = $dist->released =~ /^(\d{4})-(\d{2})-(\d{2})/;
     $map_package->update(
         {   tests_success => $tests_success,
             author        => $author->pauseid,
-            released      => $dist->released->ymd('/'),
+            version => $dist->version,
+            released =>
+                DateTime->new( year => $year, month => $month, day => $day ),
         }
     );
 
-- 
cgit 1.4.1