summaryrefslogtreecommitdiff
path: root/rhimport.pm
diff options
context:
space:
mode:
authorChristian Pointner <equinox@helsinki.at>2010-03-25 17:36:50 (GMT)
committerChristian Pointner <equinox@helsinki.at>2010-03-25 17:36:50 (GMT)
commit7b1ee536f84eadb63776a1b7ff7b5b57fb3b1670 (patch)
treed8fbfedf5cc18242b3b261479f2f084a4c2d8b57 /rhimport.pm
parent20f753dec4fa15abc9e7bd685d6666a3ce2e20e7 (diff)
get TO_CART field for dropboxes as well
git-svn-id: https://svn.helsinki.at/rhimport/trunk@26 7c65635b-ec39-4f67-a626-873dbafdd612
Diffstat (limited to 'rhimport.pm')
-rw-r--r--rhimport.pm5
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;
}