From 521e1e8b5485a83ede407b5c71e72b2beaf6c1ee Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Sat, 23 May 2009 16:32:47 +0200
Subject: file

---
 lib/LDFM/MainController.pm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/lib/LDFM/MainController.pm b/lib/LDFM/MainController.pm
index 571d5ab..b719b31 100644
--- a/lib/LDFM/MainController.pm
+++ b/lib/LDFM/MainController.pm
@@ -105,8 +105,13 @@ sub use_a_row {
     my ($row_num)=$tree_path->get_indices();
     my $row_ref=$self->{"${side}_data"}->[$row_num];
     my $relpath=$row_ref->[0];
-
-    $self->update_list_with_path($side,$relpath);
+    my $abspath=dir($relpath)->absolute($self->{"cur_${side}_path"})->cleanup;
+    if (-d $abspath) {
+        $self->update_list_with_path($side,$relpath);
+    }
+    else {
+        warn "Aprirei il file $abspath\n";
+    }
 }
 
 sub use_left_row {
-- 
cgit v1.2.3