added support for music pools

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;