diff options
Diffstat (limited to 'lib')
| -rwxr-xr-x | lib/RHRD/rddb.pm | 5 |
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]; |