summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xrhimport8
-rw-r--r--rhimport.pm7
2 files changed, 12 insertions, 3 deletions
diff --git a/rhimport b/rhimport
index 0b69652..49d981d 100755
--- a/rhimport
+++ b/rhimport
@@ -216,6 +216,7 @@ sub start_import_gui()
my $co_dropbox = $guixml->get_widget('co_dropbox');
my $dropbox = $allowed_dbs[$co_dropbox->get_active]->{'PATH'};
my $group = $allowed_dbs[$co_dropbox->get_active]->{'GROUP'};
+ my $to_cart = $allowed_dbs[$co_dropbox->get_active]->{'TO_CART'};
$l_status->set_label("importiere von $file");
@@ -223,7 +224,7 @@ sub start_import_gui()
if($POOL) {
my $cb_clear_carts = $guixml->get_widget('cb_clear_carts');
if($cb_clear_carts->get_active) {
- rhimport::clear_carts($dbh, $group);
+ rhimport::clear_carts($dbh, $group, $to_cart);
}
$ret = rhimport::import_playlist($file, $dropbox, $gui_progress_cb);
} else {
@@ -344,9 +345,12 @@ if($POOL) {
}
my $group = '';
+my $to_cart = 0;
for my $href (@allowed_dbs) {
if($href->{'PATH'} eq $DROPBOX) {
$group = $href->{'GROUP'};
+ $to_cart = $href->{'TO_CART'};
+ last;
}
}
@@ -358,7 +362,7 @@ if($group eq '') {
my $ret;
if($POOL) {
if(!$KEEPCARTS) {
- rhimport::clear_carts($dbh, $group);
+ rhimport::clear_carts($dbh, $group, $to_cart);
}
$ret = rhimport::import_playlist($FILE, $DROPBOX);
diff --git a/rhimport.pm b/rhimport.pm
index 4729969..333e61c 100644
--- a/rhimport.pm
+++ b/rhimport.pm
@@ -97,7 +97,12 @@ sub clear_carts
{
my $dbh = shift;
my $group = shift;
- my ($low_cart, $high_cart) = get_cart_range($dbh, $group);
+ my $to_cart = shift;
+
+ my ($low_cart, $high_cart) = ($to_cart, $to_cart);
+ if($to_cart == 0) {
+ ($low_cart, $high_cart) = get_cart_range($dbh, $group);
+ }
print "clearing Carts $low_cart - $high_cart\n";
my $cart = $low_cart;