added message dialog at import end

disabling buttons while importing


git-svn-id: https://svn.helsinki.at/rhimport/trunk@53 7c65635b-ec39-4f67-a626-873dbafdd612

1 files changed, 5 insertions, 1 deletions

diff --git a/rhimport.pm b/rhimport.pm
index df67f74..948d675 100644
--- a/rhimport.pm
+++ b/rhimport.pm
@@ -117,7 +117,8 @@ sub clear_carts
     ($low_cart, $high_cart) = get_cart_range($dbh, $group);
   }
 
-  print "clearing Carts $low_cart - $high_cart\n";
+  my $log = "clearing Carts $low_cart - $high_cart\n";
+  print $log; 
   my $cart = $low_cart;
   while($cart <= $high_cart) {
     $progress_cb->($cart - $low_cart, $high_cart + 1 - $low_cart, "deleting $cart") if($progress_cb);
@@ -127,6 +128,7 @@ sub clear_carts
     $sth->execute();
     while(my $cut_name = $sth->fetchrow_array()) {
       delete_file("/var/snd/$cut_name.wav");
+      $log .= " - deleting file /var/snd/$cut_name.wav";
     }
     $sth->finish();
     
@@ -142,6 +144,8 @@ sub clear_carts
 
     $cart++;
   }
+
+  return $log;
 }
 
 sub import_playlist