summaryrefslogtreecommitdiff
path: root/rhimport.pm
diff options
context:
space:
mode:
authorChristian Pointner <equinox@helsinki.at>2010-04-19 10:34:41 (GMT)
committerChristian Pointner <equinox@helsinki.at>2010-04-19 10:34:41 (GMT)
commit5bf539bc9fe4aea3ad2e9115f551c9b2e330c88e (patch)
tree53b6538b0b8a7138eb71a475d3951729468b428d /rhimport.pm
parentde92273e6de01bf9bada5cb89d72118943d23b51 (diff)
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
Diffstat (limited to 'rhimport.pm')
-rw-r--r--rhimport.pm6
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