libreccm-legacy/ccm-core/pdl/com/arsdigita/kernel/SiteNode.pdl

71 lines
2.5 KiB
Plaintext
Executable File

//
// Copyright (C) 2001-2004 Red Hat Inc. All Rights Reserved.
//
// This library is free software; you can redistribute it and/or
// modify it under the terms of the GNU Lesser General Public License
// as published by the Free Software Foundation; either version 2.1 of
// the License, or (at your option) any later version.
//
// This library is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
// Lesser General Public License for more details.
//
// You should have received a copy of the GNU Lesser General Public
// License along with this library; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
//
// $Id: SiteNode.pdl 2141 2011-01-16 12:17:15Z pboy $
// $DateTime: 2004/08/16 18:10:38 $
model com.arsdigita.kernel;
// SiteNode Object Type Definition
//
// A "site node" is a node in a URL hierarchy that can be mapped
// to an application instance.
//
// @version "$Id: SiteNode.pdl 2141 2011-01-16 12:17:15Z pboy $"
//
object type SiteNode extends ACSObject {
String name = site_nodes.name VARCHAR(100);
String url = site_nodes.url VARCHAR(3000);
// If true, it is legal to create child nodes.
Boolean[1..1] isDirectory = site_nodes.directory_p BIT;
// If true, URLs that are logical children of this node should
// be mapped to this node, e.g. "www.arsdigita.com/news/item123"
// would be mapped to this node still.
Boolean[1..1] isPattern = site_nodes.pattern_p BIT;
SiteNode[0..1] parent = join site_nodes.parent_id to site_nodes.node_id;
component SiteNode[0..n] children =
join site_nodes.node_id to site_nodes.parent_id;
PackageInstance[0..1] mountedObject =
join site_nodes.object_id to apm_packages.package_id;
// Stylesheet[0..n] defaultStyle = join site_nodes.node_id
// to acs_stylesheet_node_map.node_id,
// join acs_stylesheet_node_map.stylesheet_id
// to acs_stylesheets.stylesheet_id;
unique (parent, name);
reference key ( site_nodes.node_id );
aggressive load (parent.id);
}
data operation updateSiteNodeDescendants {
do {
update site_nodes
set url = :newPrefix || substr(url, :oldPrefixLength + 1)
where url like :oldPrefix || '%'
and not node_id = :id
}
}