From 51e366b15656bb6d914145638b1059ba16b340fa Mon Sep 17 00:00:00 2001
From: Mercier Pierre-Olivier <nemunaire@acu.epita.fr>
Date: Thu, 12 Sep 2013 13:36:43 +0200
Subject: [PATCH] Fix args order

---
 process/files/intradata_get.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/process/files/intradata_get.pl b/process/files/intradata_get.pl
index 349b125..d00af83 100644
--- a/process/files/intradata_get.pl
+++ b/process/files/intradata_get.pl
@@ -62,7 +62,7 @@ sub update_project
 
     log INFO, "Update $year/$project_id/butler.xml";
 
-    return $_ if (! create_tree($project_id, $year));
+    return $_ if (! create_tree($year, $project_id));
 
     open my $out, ">", "$year/$project_id/butler.xml";
     print $out $butler;