view release on metacpan or  search on metacpan

lib/Business/Cart/Generic/Database/Create.pm  view on Meta::CPAN

} # End of create_email_addresses_table.

# --------------------------------------------------

sub create_email_lists_table
{
	my($self)        = @_;
	my($table_name)  = 'email_lists';
	my($primary_key) = $self -> creator -> generate_primary_key_sql($table_name);
	my($engine)      = $self -> engine;
	my($result)      = $self -> creator -> create_table(<<SQL);
create table $table_name
(
id $primary_key,
customer_id integer not null references customers,
email_address_id integer not null references email_addresses(id)
) $engine
SQL
	$self -> report($table_name, 'created', $result);

} # End of create_email_lists_table.

# --------------------------------------------------

sub create_genders_table
{
	my($self)        = @_;
	my($table_name)  = 'genders';
	my($primary_key) = $self -> creator -> generate_primary_key_sql($table_name);
	my($engine)      = $self -> engine;
	my($result)      = $self -> creator -> create_table(<<SQL);
create table $table_name
(
id $primary_key,
name varchar(255) not null,
upper_name varchar(255) not null
) $engine
SQL
	$self -> report($table_name, 'created', $result);

} # End of create_genders_table.

# --------------------------------------------------

sub create_languages_table
{
	my($self)        = @_;
	my($table_name)  = 'languages';
	my($primary_key) = $self -> creator -> generate_primary_key_sql($table_name);
	my($engine)      = $self -> engine;
	my($result)      = $self -> creator -> create_table(<<SQL);
create table $table_name
(
id $primary_key,
currency_id integer not null references currencies(id),
charset varchar(255) not null,
code char(5) not null,
date_format_long varchar(255) not null,
date_format_short varchar(255) not null,
locale varchar(255) not null,
name varchar(255) not null,
numeric_separator_decimal varchar(255) NOT NULL,
numeric_separator_thousands varchar(255) NOT NULL,
text_direction varchar(255) not null,
time_format varchar(255) not null,
upper_name varchar(255) not null
) $engine
SQL
	$self -> report($table_name, 'created', $result);

} # End of create_languages_table.

# --------------------------------------------------

sub create_log_table
{
	my($self)        = @_;
	my($table_name)  = 'log';
	my($primary_key) = $self -> creator -> generate_primary_key_sql($table_name);
	my($type)        = $self -> creator -> db_vendor eq 'ORACLE' ? 'long' : 'text';
	my($engine)      = $self -> engine;
	my($time_option) = $self -> time_option;
	my($result)      = $self -> creator -> create_table(<<SQL);
create table $table_name
(
id $primary_key,
level varchar(255) not null,
message $type not null,
timestamp timestamp $time_option not null default current_timestamp
) $engine
SQL
	$self -> report($table_name, 'created', $result);

}	# End of create_log_table.

# --------------------------------------------------

sub create_logons_table
{
	my($self)        = @_;
	my($table_name)  = 'logons';
	my($primary_key) = $self -> creator -> generate_primary_key_sql($table_name);
	my($engine)      = $self -> engine;
	my($time_option) = $self -> time_option;
	my($result)      = $self -> creator -> create_table(<<SQL);
create table $table_name
(
id $primary_key,
customer_id integer not null references customers(id),
date timestamp $time_option not null default current_timestamp,
ip_address varchar(255) not null
) $engine
SQL
	$self -> report($table_name, 'created', $result);

}	# End of create_logons_table.

# --------------------------------------------------

sub create_manufacturers_table