package admt::cdbi::adslot;
use base 'cdbi';

__PACKAGE__->set_up_table('adslot');
__PACKAGE__->has_a('blockid' => 'admt::cdbi::block');

package admt::cdbi::block;

use base 'cdbi';

__PACKAGE__->set_up_table('block');
__PACKAGE__->has_many('adslot' => ['admt::cdbi::adslot', 'blockid']);


##</code><code>##

CREATE TABLE `adslot` (
  `id` bigint(20) unsigned NOT NULL auto_increment,
  `blockid` bigint(20) NOT NULL default '0',
  `sl_position` int(11) NOT NULL default '0',
  `sl_keywords_EN` varchar(255) NOT NULL default '',
  `sl_keywords_FR` varchar(255) NOT NULL default '',
  `sl_start` datetime NOT NULL default '0000-00-00 00:00:00',
  `sl_end` datetime NOT NULL default '0000-00-00 00:00:00',
  `sl_section` varchar(255) NOT NULL default '',
  `sl_smallimage_EN` varchar(255) NOT NULL default '',
  `sl_smallimage_FR` varchar(255) NOT NULL default '',
  `sl_smallimagealt_EN` varchar(255) NOT NULL default '',
  `sl_smallimagealt_FR` varchar(255) NOT NULL default '',
  `sl_smallimagelink_EN` varchar(255) NOT NULL default '',
  `sl_smallimagelink_FR` varchar(255) NOT NULL default '',
  `sl_shortdesc_EN` varchar(255) NOT NULL default '',
  `sl_shortdesc_FR` varchar(255) NOT NULL default '',
  `sl_shortdesclink_EN` varchar(255) NOT NULL default '',
  `sl_shortdesclink_FR` varchar(255) NOT NULL default '',
  `sl_depcity` text NOT NULL,
  `sl_deal` varchar(255) NOT NULL default '',
  `sl_iframe` varchar(255) NOT NULL default '',
  PRIMARY KEY  (`id`)
) TYPE=MyISAM;

CREATE TABLE `block` (
  `id` bigint(20) unsigned NOT NULL auto_increment,
  `blk_key` varchar(32) NOT NULL default '',
  `blk_start` datetime NOT NULL default '0000-00-00 00:00:00',
  `blk_end` datetime NOT NULL default '0000-00-00 00:00:00',
  `blk_desc` varchar(80) NOT NULL default '',
  `blk_notes` varchar(255) NOT NULL default '',
  `blk_app` varchar(32) NOT NULL default '',
  `blk_app_date` date NOT NULL default '0000-00-00',
  `blk_app_by` varchar(32) NOT NULL default '',
  PRIMARY KEY  (`id`)
) TYPE=MyISAM;


##</code><code>##

  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";
  }


##</code><code>##

$VAR1 = bless( {
                 '_data' => [
                              {
                                'id' => '1'
                              },
                              {
                                'id' => '2'
                              }
                            ],
                 '_place' => 3,
                 '_mapper' => [
                                'blockid'
                              ],
                 '_class' => 'admt::cdbi::adslot'
               }, 'Class::DBI::Iterator' );



##</code><code>##

$VAR1 = bless( {
                 'id' => '1'
               }, 'admt::cdbi::block' );
$VAR1 = bless( {
                 'id' => '1'
               }, 'admt::cdbi::block' );
;