get TO_CART field for dropboxes as well

1 files changed, 3 insertions, 2 deletions

diff --git a/rhimport.pm b/rhimport.pm
index 2541660..4729969 100644
--- a/rhimport.pm
+++ b/rhimport.pm
@@ -30,11 +30,11 @@ sub get_dropboxes
   my $dbh = shift;
   my $user = shift;
 
-  my $sql = qq{select USER_PERMS.GROUP_NAME,DROPBOXES.PATH from USER_PERMS, DROPBOXES where USER_PERMS.USER_NAME='$user' and DROPBOXES.GROUP_NAME=USER_PERMS.GROUP_NAME;};
+  my $sql = qq{select USER_PERMS.GROUP_NAME,DROPBOXES.PATH,DROPBOXES.TO_CART from USER_PERMS, DROPBOXES where USER_PERMS.USER_NAME='$user' and DROPBOXES.GROUP_NAME=USER_PERMS.GROUP_NAME;};
   my $sth = $dbh->prepare($sql);
   $sth->execute();
   my @allowed_dbs;
-  while(my ($group, $path) = $sth->fetchrow_array()) {
+  while(my ($group, $path, $to_cart) = $sth->fetchrow_array()) {
     $path =~ s/\/\*$//;
     my $name = $path;
     $name =~ s/^\/programm\///;
@@ -59,6 +59,7 @@ sub get_dropboxes
     my $perm = {};
     $perm->{'GROUP'} = $group;
     $perm->{'PATH'} = $path;
+    $perm->{'TO_CART'} = $to_cart;
     $perm->{'NAME'} = $name;
     push @allowed_dbs, $perm;
   }