sanity check for clear carts when in pool mode for single cart show

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

1 files changed, 6 insertions, 1 deletions

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;