From 29d66dcc764a02e67afeb0f9703139966029e6a5 Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Mon, 15 Feb 2010 18:16:07 +0100
Subject: wip

---
 lib/githubexplorer/Gexf.pm | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/lib/githubexplorer/Gexf.pm b/lib/githubexplorer/Gexf.pm
index 7d8538f..7e82f80 100644
--- a/lib/githubexplorer/Gexf.pm
+++ b/lib/githubexplorer/Gexf.pm
@@ -160,10 +160,13 @@ sub profiles_from_repositories {
     while ( my $repos = $repositories->next ) {
         my $forks = $self->schema->resultset('Fork')
             ->search( { repos => $repos->id } );
-        my $lang = $self->schema->resultset('RepoLang')->search({repository => $repos->id}, {order_by => 'size'})->first;
-        warn "on a ".$repos->name. " qui est en ".$lang."\n";
-        if ($lang && exists $self->avg_contrib_by_lang->{$lang}->{avg} && $forks <= $self->avg_contrib_by_lang->{$lang}->{avg}) {
-            warn ">>>> on skip pour ".$repos->name." qui est ecris en $lang";
+        my $language;
+        my $lang_rs = $self->schema->resultset('RepoLang')->search({repository => $repos->id}, {order_by => 'size'})->first;
+        if ($lang_rs) {
+            $language = $lang_rs->language->name;
+        }
+        if ($language && exists $self->avg_contrib_by_lang->{$language}->{avg} && $forks <= $self->avg_contrib_by_lang->{$language}->{avg}){
+            warn ">>>>> on skip pour ".$repos->name."\n";
             next;
         }
         my @profiles;
-- 
cgit 1.4.1