diff options
Diffstat (limited to 'rhimport.pm')
| -rw-r--r-- | rhimport.pm | 5 |
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; } |