summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristian Pointner <equinox@helsinki.at>2010-05-04 11:10:51 (GMT)
committerChristian Pointner <equinox@helsinki.at>2010-05-04 11:10:51 (GMT)
commitf95e2dc92022863d48f78cc4e056ba9078544dd7 (patch)
tree56235e49d1d5a6c00ac57bb1af52fa94ceebacb4
parent7c5c216325e3124ba912207745b395e7313f0abd (diff)
added group description to pool names
git-svn-id: https://svn.helsinki.at/rhimport/trunk@64 7c65635b-ec39-4f67-a626-873dbafdd612
-rw-r--r--rhimport.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/rhimport.pm b/rhimport.pm
index 7ecc2fe..2c3130b 100644
--- a/rhimport.pm
+++ b/rhimport.pm
@@ -47,11 +47,11 @@ sub get_dropboxes
{
my ($dbh, $user) = @_;
- 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 $sql = qq{select USER_PERMS.GROUP_NAME,DROPBOXES.PATH,DROPBOXES.TO_CART,GROUPS.DESCRIPTION from USER_PERMS, DROPBOXES, GROUPS where USER_PERMS.USER_NAME='$user' and DROPBOXES.GROUP_NAME=USER_PERMS.GROUP_NAME and DROPBOXES.GROUP_NAME=GROUPS.NAME;};
my $sth = $dbh->prepare($sql);
$sth->execute();
my @allowed_dbs;
- while(my ($group, $path, $to_cart) = $sth->fetchrow_array()) {
+ while(my ($group, $path, $to_cart, $desc) = $sth->fetchrow_array()) {
$path =~ s/\/\*$//;
my $name = $path;
$name =~ s/^\/programm\///;
@@ -65,7 +65,7 @@ sub get_dropboxes
$name = "Jingles - $1";
}
elsif($name =~ /^pool\/pool(.*)$/) {
- $name = "Pool - $1";
+ $name = "Pool $1 - $desc";
}
elsif($name =~ /^pool\/(.*)$/) {
$name = "Pool - $1";