sub jamcharts
{
   my $html = shift;
   my( @rValue ) = ();
   my( $headline, $url, $count );
   my( $table, $start, $entry );

   print "--> :: canTickerHandler ::\n";

   #print "html: $html";

   $start = 10;
   $table = zUtil::getNthItemNew( $start, $html, "<table", "</table>" );
   if( !($table =~ /\<div id\=smtext\>/gsi) )
   {
       $start = $start + 1;
       $table = zUtil::getNthItemNew( $start, $html, "<table", "</table>" );
   }

   $count = 1;
   $max = 20;
   $entry = zUtil::getNthItemNew( $count, $table, "<tr", "</tr>" );
   while( !($entry =~ /^$/) )
   {
       #print "entry: $entry\n";
       $song = zUtil::getNthItemNew( 5, $entry, "<td", "</td>" );
       #print "song: $song\n";
       if ( $count - 5 < $max ) {
           if( $song =~ /<td.*?><div\ id.*?>(.*?)<BR><B>(.*?)<\/B>.*?/gsi )
           {
               $album    = $1;
               $group    = $2;
               
               $album =~ tr/[A-Z]/[a-z]/;
               $group =~ tr/[A-Z]/[a-z]/;
               $name = "$group, $album";
               print "name: $name\n";
               push @rValue,
               {
                   'name'      => $name,
                   'thisweek'  => $count - 4
                   };
           }
       }
       $count++;
       $entry = zUtil::getNthItemNew( $count, $table, "<tr", "</tr>" );
   }

   return @rValue;  
}

return 1;
