From f95e2dc92022863d48f78cc4e056ba9078544dd7 Mon Sep 17 00:00:00 2001
From: Christian Pointner <equinox@helsinki.at>
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