App-Office-CMS

 view release on metacpan or  search on metacpan

docs/html/cms.help.html  view on Meta::CPAN

<p>But first,
a note on deleting things.</p>

<h1><a class='u' href='#___top' title='click to go to top of document'
name="Deletion_of_Sites/Designs/Pages"
>Deletion of Sites/Designs/Pages</a></h1>

<p>Each delete button displays a Javascript warning,
so you can cancel the delete before any message is sent to the server.</p>

<p>Deletes cascade,
which means deleting a site <i>automatically</i> deletes all designs and pages (and their content!) which belong to that site.</p>

<p>In the same way,
deleting a design <i>automatically</i> deletes all pages (and their content!) which belong to that design.</p>

<p>So,
proceed with caution.</p>

<h1><a class='u' href='#___top' title='click to go to top of document'
name="Duplication_of_Data"

docs/pod/cms.help.pod  view on Meta::CPAN

If you have designs on file, the program will default to the [Edit Site] tab,
where you use the search engine to find a site, design or page to work on.

But first, a note on deleting things.

=head1 Deletion of Sites/Designs/Pages

Each delete button displays a Javascript warning, so you can cancel the delete
before any message is sent to the server.

Deletes cascade, which means deleting a site I<automatically> deletes all designs
and pages (and their content!) which belong to that site.

In the same way, deleting a design I<automatically> deletes all pages (and their content!)
which belong to that design.

So, proceed with caution.

=head1 Duplication of Data

There are various buttons allowing you the duplicate sites, designs and pages.

lib/App/Office/CMS/Util/Create.pm  view on Meta::CPAN

	my($engine)        = $self -> engine;
	my($foreign_key_1) = $engine ? ', index (asset_type_id), foreign key (asset_type_id)' : '';
	my($foreign_key_2) = $engine ? ', index (design_id), foreign key (design_id)' : '';
	my($foreign_key_3) = $engine ? ', index (page_id), foreign key (page_id)' : '';
	my($foreign_key_4) = $engine ? ', index (site_id), foreign key (site_id)' : '';
	my($result)        = $self -> creator -> create_table(<<SQL);
create table $table_name
(
id $primary_key,
asset_type_id integer not null $foreign_key_1 references asset_types(id),
design_id integer not null $foreign_key_2 references designs(id) on delete cascade,
page_id integer not null $foreign_key_3 references pages(id) on delete cascade,
site_id integer not null $foreign_key_4 references sites(id) on delete cascade
) $engine
SQL
	$self -> report($table_name, 'created', $result);

}	# End of create_assets_table.

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

sub create_asset_types_table
{

lib/App/Office/CMS/Util/Create.pm  view on Meta::CPAN

	my($table_name)    = 'contents';
	my($primary_key)   = $self -> creator -> generate_primary_key_sql($table_name);
	my($engine)        = $self -> engine;
	my($foreign_key_1) = $engine ? ', index (design_id), foreign key (design_id)' : '';
	my($foreign_key_2) = $engine ? ', index (page_id), foreign key (page_id)' : '';
	my($foreign_key_3) = $engine ? ', index (site_id), foreign key (site_id)' : '';
	my($result)        = $self -> creator -> create_table(<<SQL);
create table $table_name
(
id $primary_key,
design_id integer not null $foreign_key_1 references designs(id) on delete cascade,
page_id integer not null $foreign_key_2 references pages(id) on delete cascade,
site_id integer not null $foreign_key_3 references sites(id) on delete cascade,
body_text text not null,
head_text text not null
) $engine
SQL
	$self -> report($table_name, 'created', $result);

}	# End of create_contents_table.

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

lib/App/Office/CMS/Util/Create.pm  view on Meta::CPAN

	my($primary_key)   = $self -> creator -> generate_primary_key_sql($table_name);
	my($engine)        = $self -> engine;
	my($foreign_key_1) = $engine ? ', index (menu_orientation_id), foreign key (menu_orientation_id)' : '';
	my($foreign_key_2) = $engine ? ', index (os_type_id), foreign key (os_type_id)' : '';
	my($foreign_key_3) = $engine ? ', index (site_id), foreign key (site_id)' : '';
	my($result)        = $self -> creator -> create_table(<<SQL);
create table $table_name
(
id $primary_key,
menu_orientation_id integer not null $foreign_key_1 references menu_orientations(id),
os_type_id integer not null $foreign_key_2 references os_types(id) on delete cascade,
site_id integer not null $foreign_key_3 references sites(id) on delete cascade,
name varchar(255) not null,
output_directory varchar(255) not null,
output_doc_root varchar(255) not null,
upper_name varchar(255) not null,
unique (site_id, upper_name)
) $engine
SQL
	$self -> report($table_name, 'created', $result);

}	# End of create_designs_table.

lib/App/Office/CMS/Util/Create.pm  view on Meta::CPAN

	my($self)          = @_;
	my($table_name)    = 'pages';
	my($primary_key)   = $self -> creator -> generate_primary_key_sql($table_name);
	my($engine)        = $self -> engine;
	my($foreign_key_1) = $engine ? ', index (design_id), foreign key (design_id)' : '';
	my($foreign_key_2) = $engine ? ', index (site_id), foreign key (site_id)' : '';
	my($result)        = $self -> creator -> create_table(<<SQL);
create table $table_name
(
id $primary_key,
design_id integer not null $foreign_key_1 references designs(id) on delete cascade,
site_id integer not null $foreign_key_2 references sites(id) on delete cascade,
context varchar(255) not null,
homepage varchar(3) not null,
name varchar(255) not null,
upper_name varchar(255) not null
) $engine
SQL
	$self -> report($table_name, 'created', $result);

}	# End of create_pages_table.