diff options
| author | dakkar <dakkar@thenautilus.net> | 2009-05-23 16:32:47 +0200 |
|---|---|---|
| committer | dakkar <dakkar@thenautilus.net> | 2009-05-23 16:32:47 +0200 |
| commit | 521e1e8b5485a83ede407b5c71e72b2beaf6c1ee (patch) | |
| tree | fcab52089e0fbbbad0a535b670029cf2a40a58ea /lib/LDFM | |
| parent | tipi (diff) | |
| download | GtkPerlFileManager-step-presentazione.tar.gz GtkPerlFileManager-step-presentazione.tar.bz2 GtkPerlFileManager-step-presentazione.zip | |
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 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 { |