# -*- perl -*-

#
# $Id: FolderRestr.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
# WWW:  http://we-framework.sourceforge.net
#

package WE::Obj::FolderRestr;

use base qw(WE::Obj::FolderObj);

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::FolderRestr - an object containing other objects

=head1 SYNOPSIS


=head1 DESCRIPTION

This is the restricted version of L<WE::Obj::Folder>. 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 created as children of this folder.

=head1 HISTORY

This was the former C<WE::Obj::Folder>. Now C<WE::Obj::Folder> is
unrestricted.

=head1 AUTHOR

Slaven Rezic - slaven@rezic.de

=head1 SEE ALSO

L<WE::Obj::FolderObj>.

=cut