added rhrd-show search

1 files changed, 4 insertions, 3 deletions

diff --git a/lib/RHRD/rddb.pm b/lib/RHRD/rddb.pm
index a1ab7e6..62146b5 100755
--- a/lib/RHRD/rddb.pm
+++ b/lib/RHRD/rddb.pm
@@ -1052,9 +1052,9 @@ sub list_shows
 {
   my ($ctx, $groupname) = @_;
 
-  my $sql = qq{select TO_CART,SET_USER_DEFINED from DROPBOXES where STATION_NAME = ? order by TO_CART;};
+  my $sql = qq{select GROUP_NAME,TO_CART,SET_USER_DEFINED from DROPBOXES where STATION_NAME = ? order by TO_CART;};
   if(defined($groupname)) {
-    $sql = qq{select TO_CART,SET_USER_DEFINED from DROPBOXES where STATION_NAME = ? and GROUP_NAME = ? order by TO_CART;};
+    $sql = qq{select GROUP_NAME,TO_CART,SET_USER_DEFINED from DROPBOXES where STATION_NAME = ? and GROUP_NAME = ? order by TO_CART;};
   }
 
   my $sth = $ctx->{'dbh'}->prepare($sql)
@@ -1069,7 +1069,7 @@ sub list_shows
   }
 
   my @show_dbs;
-  while(my ($to_cart, $params) = $sth->fetchrow_array()) {
+  while(my ($group, $to_cart, $params) = $sth->fetchrow_array()) {
     my @p = split(';', $params);
     next if ('S' ne $p[0]);
 
@@ -1080,6 +1080,7 @@ sub list_shows
       $sth->finish();
       return (undef, $status, $errorstring);
     }
+    $entry->{'GROUP'} = $group;
     $entry->{'TITLE'} = $title;
     $entry->{'LOG'} = $log;
     $entry->{'RHYTHM'} = $p[1];