App-Office-CMS

 view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

lib/App/Office/CMS/Controller/Initialize.pm
lib/App/Office/CMS/Controller/Page.pm
lib/App/Office/CMS/Controller/Search.pm
lib/App/Office/CMS/Controller/Site.pm
lib/App/Office/CMS/Database.pm
lib/App/Office/CMS/Database/Asset.pm
lib/App/Office/CMS/Database/Base.pm
lib/App/Office/CMS/Database/Content.pm
lib/App/Office/CMS/Database/Design.pm
lib/App/Office/CMS/Database/Event.pm
lib/App/Office/CMS/Database/Menu.pm
lib/App/Office/CMS/Database/Page.pm
lib/App/Office/CMS/Database/Site.pm
lib/App/Office/CMS/Util/Config.pm
lib/App/Office/CMS/Util/Create.pm
lib/App/Office/CMS/Util/Logger.pm
lib/App/Office/CMS/Util/Validator.pm
lib/App/Office/CMS/View.pm
lib/App/Office/CMS/View/Base.pm
lib/App/Office/CMS/View/Content.pm
lib/App/Office/CMS/View/Page.pm

htdocs/assets/templates/app/office/cms/site.tx  view on Meta::CPAN

<tr>
<td>Site name:</td>
<td align="left" colspan="4"><input type="text" name="name" id="name" size="50" maxlength="255" value="<: $name :>" class="required" title="Site name is required" /></td>
</tr>
<tr>
<td>Design name:</td>
<td align="left" colspan="4"><input type="text" name="design_name" id="design_name" size="50" maxlength="255" value="<: $design_name :>" class="required" title="Design name is required" /></td>
</tr>
<!--
<tr>
<td>Menu orientation:</td>
<td align="left" colspan="4"><: $menu_orientation :></td>
</tr>
<tr>
<td>Output operating system:</td>
<td align="left" colspan="4"><: $os_type :></td>
</tr>
-->
<tr>
<td>Output directory:</td>
<td align="left" colspan="4"><input type="text" name="output_directory" id="output_directory" size="50" maxlength="255" value="<: $output_directory :>" class="required" title="Output directory is required" /></td>

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

package App::Office::CMS::Database;

use strict;
use warnings;

use App::Office::CMS::Database::Asset;
use App::Office::CMS::Database::Content;
use App::Office::CMS::Database::Design;
use App::Office::CMS::Database::Event;
use App::Office::CMS::Database::Menu;
use App::Office::CMS::Database::Page;
use App::Office::CMS::Database::Site;
use App::Office::CMS::Util::Config;
use App::Office::CMS::Util::Logger;

use DBI;

use DBIx::Admin::CreateTable;

use DBIx::Simple;

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

has logger =>
(
	is  => 'rw',
	isa => Any,
);

has menu =>
(
	is  => 'rw',
	isa => Any, # 'App::Office::CMS::Database::Menu',
);

has page =>
(
	is  => 'rw',
	isa => Any, # 'App::Office::CMS::Database::Page',
);

has session =>
(

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

	if ($$config{dsn} =~ /SQLite/i)
	{
		$self -> dbh -> do('PRAGMA foreign_keys = ON');
	}

	$self -> asset(App::Office::CMS::Database::Asset -> new(db => $self) );
	$self -> content(App::Office::CMS::Database::Content -> new(db => $self) );
	$self -> design(App::Office::CMS::Database::Design -> new(db => $self) );
	$self -> event(App::Office::CMS::Database::Event -> new(db => $self) );
	$self -> logger(App::Office::CMS::Util::Logger -> new(db => $self) );
	$self -> menu(App::Office::CMS::Database::Menu -> new(db => $self) );
	$self -> page(App::Office::CMS::Database::Page -> new(db => $self) );
	$self -> simple(DBIx::Simple -> new($self -> dbh) );
	$self -> site(App::Office::CMS::Database::Site -> new(db => $self) );

	return $self;

}	# End of BUILD.

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

lib/App/Office/CMS/Database/Design.pm  view on Meta::CPAN

	my($message) = "Deleted design '$$design{name}' for site '$$site{name}'";

	if ($self -> db -> get_design_count == 0)
	{
		# This assumes the design's site_id field is valid,
		# or (same thing) the site's id field is valid.

		$self -> log(debug => "Using site_id of design: $$site{id}");

		# Defaults:
		# o Menu orientation: 4 - Vertical
		# o Doc root: /

		my($os_type_id)     = $self -> db -> get_default_os_type_id;
		my($default_design) = $self -> db -> build_default_design($$site{id}, 'Default', 4, $os_type_id, File::Spec -> tmpdir, '/');
		$message            .= '. No designs left, so a default design has been generated';

		$self -> add($site, $default_design);
	}

	return $message;

lib/App/Office/CMS/Database/Menu.pm  view on Meta::CPAN

package App::Office::CMS::Database::Menu;

use strict;
use warnings;

use Moo;

use Tree::DAG_Node::Persist;

use Types::Standard qw/Str/;

lib/App/Office/CMS/View/Site.pm  view on Meta::CPAN

sub build_new_site_html
{
	my($self) = @_;

	$self -> log(debug => 'build_new_site_html()');

	my($context) = 'new';
	my($param)   =
	{
	 context          => $context,
	 design_name      => '', # Menu orientation 4 is vertical.
#	 menu_orientation => mark_raw($self -> build_select('menu_orientations', 4) ),
	 name             => '',
#	 os_type          => mark_raw($self -> build_select('os_types', $self -> db -> get_default_os_type_id) ),
	 output_doc_root  => '/',
	 output_directory => File::Spec -> tmpdir,
	 sid              => $self -> session -> id,
	 submit_text      => 'Save',
	 ucfirst_context  => ucfirst $context,
	};