From ea7c8c1f95e4937a7b5f69e2d71ca4ffcb27c481 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Sat, 23 May 2009 16:31:57 +0200
Subject: centro

---
 lib/LDFM/MainController.pm | 68 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 68 insertions(+)

diff --git a/lib/LDFM/MainController.pm b/lib/LDFM/MainController.pm
index 328167e..9f7a16c 100644
--- a/lib/LDFM/MainController.pm
+++ b/lib/LDFM/MainController.pm
@@ -190,6 +190,74 @@ sub rename {
     return;
 }
 
+sub copy_lr {
+    my ($self)=@_;
+
+    my @files=$self->get_files_from_list('left');
+    my $destpath=$self->{cur_right_path};
+
+    $self->copy_files(@files,$destpath);
+
+    return;
+}
+
+sub copy_rl {
+    my ($self)=@_;
+
+    my @files=$self->get_files_from_list('right');
+    my $destpath=$self->{cur_left_path};
+
+    $self->copy_files(@files,$destpath);
+
+    return;
+}
+
+sub copy_files {
+    my $self=shift;
+    my $destdir=pop;
+    my @files=@_;
+
+    for my $file (@files) {
+        warn "Copierei $file in $destdir\n";
+    }
+
+    return;
+}
+
+sub move_lr {
+    my ($self)=@_;
+
+    my @files=$self->get_files_from_list('left');
+    my $destpath=$self->{cur_right_path};
+
+    $self->move_files(@files,$destpath);
+
+    return;
+}
+
+sub move_rl {
+    my ($self)=@_;
+
+    my @files=$self->get_files_from_list('right');
+    my $destpath=$self->{cur_left_path};
+
+    $self->move_files(@files,$destpath);
+
+    return;
+}
+
+sub move_files {
+    my $self=shift;
+    my $destdir=pop;
+    my @files=@_;
+
+    for my $file (@files) {
+        warn "Sposterei $file in $destdir\n";
+    }
+
+    return;
+}
+
 sub quit {
     Gtk2->main_quit;
 }
-- 
cgit v1.2.3