Dave Cross: Still Munging Data With Perl: Online event - Mar 17 Learn more

# -*- perl -*-
#
# $Id: SiteRestr.pm,v 1.2 2005/02/03 00:06:28 eserte Exp $
# Author: Slaven Rezic
#
# Copyright (C) 2001 Online Office Berlin. All rights reserved.
# Copyright (C) 2002,2005 Slaven Rezic.
# This is free software; you can redistribute it and/or modify it under the
# terms of the GNU General Public License, see the file COPYING.
#
# Mail: slaven@rezic.de
#
use strict;
use vars qw($VERSION);
$VERSION = sprintf("%d.%02d", q$Revision: 1.2 $ =~ /(\d+)\.(\d+)/);
sub instantiable { 1 }
sub insertable_types { [qw(WE::Obj::Folder
WE::Obj::Sequence
WE::Obj::LangCluster
WE::Obj::Doc
)] }
1;
__END__
=head1 NAME
WE::Obj::SiteRestr - the root object of a site
=head1 SYNOPSIS
=head1 DESCRIPTION
This is the restricted version of L<WE::Obj::Site>. Restricted means,
that only objects of the types L<WE::Obj::Folder>,
L<WE::Obj::Sequence>, L<WE::Obj::LangCluster>, L<WE::Obj::Doc> are
allowed to be children of this folder object.
=head1 HISTORY
This was the former C<WE::Obj::Site>. C<WE::Obj::Site> is now the
unrestricted version of C<WE::Obj::SiteRestr>.
=head1 AUTHOR
Slaven Rezic - slaven@rezic.de
=head1 SEE ALSO
L<WE::Obj::Folder>.
=cut