From f95e2dc92022863d48f78cc4e056ba9078544dd7 Mon Sep 17 00:00:00 2001 From: Christian Pointner Date: Tue, 4 May 2010 11:10:51 +0000 Subject: added group description to pool names git-svn-id: https://svn.helsinki.at/rhimport/trunk@64 7c65635b-ec39-4f67-a626-873dbafdd612 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"; -- cgit v0.10.2