diff options
Diffstat (limited to 'lib')
| -rwxr-xr-x | lib/rddb.pm | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/lib/rddb.pm b/lib/rddb.pm index a5c1f20..c48add5 100755 --- a/lib/rddb.pm +++ b/lib/rddb.pm @@ -145,10 +145,10 @@ sub get_dropboxes my $entry = {}; $entry->{'GROUP'} = $group; $entry->{'GROUPDESC'} = $groupdesc; - $entry->{'GROUPLOWCART'} = $lowcart; - $entry->{'GROUPHIGHCART'} = $highcart; - $entry->{'NORMLEVEL'} = $normlevel; - $entry->{'TRIMLEVEL'} = $trimlevel; + $entry->{'GROUPLOWCART'} = int $lowcart; + $entry->{'GROUPHIGHCART'} = int $highcart; + $entry->{'NORMLEVEL'} = int $normlevel; + $entry->{'TRIMLEVEL'} = int $trimlevel; $entry->{'PARAM'} = $params; if($p[0] eq "S") { $entry->{'TYPE'} = 'show'; @@ -170,8 +170,9 @@ sub get_dropboxes } elsif($p[0] eq "J") { $entry->{'TYPE'} = 'jingle'; $entry->{'JINGLETITLE'} = $groupdesc; - $entry->{'JINGLECART'} = int $p[1]; - $entry->{'JINGLECARTDISABLED'} = int $p[2]; + } elsif($p[0] eq "M") { + $entry->{'TYPE'} = 'musicpool'; + $entry->{'MUSICPOOLTITLE'} = $groupdesc; } push @allowed_dbs, $entry; |