summaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
Diffstat (limited to 'lib')
-rwxr-xr-xlib/RHRD/rddb.pm5
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/RHRD/rddb.pm b/lib/RHRD/rddb.pm
index 1286a46..36a4298 100755
--- a/lib/RHRD/rddb.pm
+++ b/lib/RHRD/rddb.pm
@@ -1298,7 +1298,7 @@ sub get_show_info
{
my ($ctx, $showid) = @_;
- my $sql = qq{select SET_USER_DEFINED from DROPBOXES where STATION_NAME = ? and TO_CART = ?;};
+ my $sql = qq{select GROUP_NAME,SET_USER_DEFINED from DROPBOXES where STATION_NAME = ? and TO_CART = ?;};
my $sth = $ctx->{'dbh'}->prepare($sql)
or return (undef, 'ERROR', "Database Error: " . $ctx->{'dbh'}->errstr);
@@ -1306,7 +1306,7 @@ sub get_show_info
$sth->execute($ctx->{'config'}{'dropboxes'}{'dropbox-pseudo-station'}, $showid)
or return (undef, 'ERROR', "Database Error: " . $sth->errstr);
- my ($params) = $sth->fetchrow_array;
+ my ($group, $params) = $sth->fetchrow_array;
$sth->finish();
my @p = split(';', $params);
@@ -1317,6 +1317,7 @@ sub get_show_info
my ($title, $log, $status, $errorstring) = get_show_title_and_log($ctx, $showid);
return (undef, $status, $errorstring) unless (defined $title && defined $log);
+ $entry->{'GROUP'} = $group;
$entry->{'TITLE'} = $title;
$entry->{'LOG'} = $log;
$entry->{'RHYTHM'} = $p[1];