my $block = admt::cdbi::block->retrieve( 'id' => $q->param('blockid') );
  my $slots = $block->adslot;
  my $otext;
  while ( my $slotdata = $slots->next ) {
    $otext .= Dumper $slotdata, "\n";
  }