diff options
Diffstat (limited to 'lib/LDFM')
-rw-r--r-- | lib/LDFM/MainController.pm | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/lib/LDFM/MainController.pm b/lib/LDFM/MainController.pm index 31b45da..76818cf 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 { |