summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lib/LDFM/MainController.pm9
1 files 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 {